Programa creado por mi :)

Iniciado por la_muerte_blanca, Abril 03, 2015, 06:49:27 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Abril 03, 2015, 06:49:27 PM Ultima modificación: Abril 03, 2015, 06:51:00 PM por la_muerte_blanca
Hola a todos he estado en batch creando un programa,no es gran cosa pero espero que os guste probadlo si quereis,se supone que es un creador como de virus de broma y cosas asi,aqui el codigo,cojanlo y peguenlo en un documento de texto y guardenlo como .bat,gracias probarlo¡
Código: dos
@echo off
color a
title Creador de virus
cls
echo                                                                                                          Bienvenido al creador de virus
timeout /t 3 %tiempo% /nobreak > nul
set /p documento=Elija un nombre para el documento:
set /p extension=Elija una extension para el documento,por ejemplo: .bat y .exe:
cls
echo @echo off >> %documento%%extension%
cls
:obcion
set /p variable=Escriba un comando: start,ejecutar,crear,web,pausar,decir,preguntar,titulo,bucle,condicional,repetir.hasta,color o ayuda:
if %variable%== start echo start >> %documento%%extension%
if %variable%== ejecutar goto ejecutar
if %variable%== crear goto crear
if %variable%== web set /p web=elija la web: & goto pagina
if %variable%== bucle goto el_gran_bucle
if %variable%== pausar set /p tiempo=Elija los segundos de pausa: & goto pausar
if %variable%== decir goto obcion_decir
if %variable%== preguntar goto la_gran_pregunta
if %variable%== titulo set /p titulodeconsola=Escribe un titulo para el programa: & goto titulo
if %variable%== condicional goto condicional_variable
if %variable%== repetir.hasta goto repetir_veces
if %variable%== color set /p color=Escriba negro,azul,verde,aguamarina,rojo,purpura,amarillo,blanco,gris,azul.claro,verde.claro,aguamarina,rojo.claro,purpura.claro, amarillo.claro o blanco.brillante & goto color
if %variable%== ayuda echo escriba ayuda seguido  de un punto y del comando del que quiera saber informacion,por ejemplo ayuda.start.
if %variable%== ayuda.start echo El comando start sirve para iniciar una nueva consola de comandos.
if %variable%== ayuda.web echo El comando web sirve para iniciar una pagina web desde el navegador utilizado.
if %variable%== ayuda.pausar echo El comando pausar sirve para definir los segundos que se debe esperar antes de iniciar el siguiente comando.
if %variable%== ayuda.decir echo El comando decir sirve para escribir una palabra o texto que saldra en el documento reusultante.
if %variable%== ayuda.repetir.hasta echo El comando repetir.hasta sirve para repetir un comando un numero de veces indicado.
if %variable%== ayuda.titulo echo El comando titulo sirve para poner un encabezado al inciar el archivo,por ejemplo en esta consola que pone Creador de virus.
if %variable%== ayuda.bucle echo El comando bucle sirve para repetir un comando sin parar.
if %variable%== ayuda.color echo El comando color sirve para cambiar el color de las letras en el archivo que se esta creando.
if %variable%== ayuda.condicional echo El comando condicional sirve para que en caso de que se cumpla la condicion,enviar un comando o otro al archivo que se esta creando.
if %variable%== ayuda.preguntar echo El comando preguntar sirve para preguntarle al usuario que ejecute el archivo algo y en caso de que responda correctamente o no ejecutar un comando.
goto obcion

:ejecutar
set /p archivoDeEjecucion=Escriba el archivo con su extension que desea ejecutar:
set /p ocultar=Desea ocultar la ejecucion del archivo minimizandolo?Responda si o no:
if %ocultar%==si (goto minimizar) else (goto ejecucion)

:minimizar
echo start /min %archivoDeEjecucion% >> %documento%%extension%
goto obcion

:ejecucion
echo start  %archivoDeEjecucion% >> %documento%%extension%
goto obcion


:pagina
echo start %web% >> %documento%%extension%
goto obcion

:pausar
echo timeout /t %tiempo% /nobreak > nul >> %documento%%extension%
goto obcion

:obcion_decir
set /p textal=Elija un texto
echo echo %textal%  >> %documento%%extension%
goto obcion

:el_gran_bucle
set /p comandobucle=Elija un comando:start,web,crear,crear,decir o pausar:
if %comandobucle%==start goto bucle_infinito_start
if %comandobucle%==web set /p biw=Elija una web: & goto bucle_infinito_web
if %comandobucle%==crear goto bucle_infinito_crear
if %comandobucle%==decir set /p textinger=Escriba una palabra o texto: & goto bucle_infinito_decir
if %comandobucle%==pausar set /p tiempodebucle=Escriba los segundos que desea pausar: & goto bucle_infinito_pausar

:repetir_veces
set /p variableveces=Escriba un comando: start,web,decir o pausar:
set /p compararnumero=Escriba el numero de veces que quiera repetir el comando:
set/a numero=0

:bucle
if %variableveces%== start echo start >> %documento%%extension%
if %variableveces%== web set /p web=elija la web:  & goto numero_web
if %variableveces%==decir set /p textanil=Escriba un texto & goto numero_texto
if %variableveces%== pausar set /p tiempo=Elija los segundos de pausa & goto numero_pausar
set/a numero = %numero%+1
if %numero%==%compararnumero% (goto obcion) else (goto bucle)

:numero_web
echo start %web% >> %documento%%extension%
set/a numero = %numero%+1
if %numero%==%compararnumero% (goto obcion) else (goto numero_web)

:numero_pausar
echo timeout /t %tiempo% /nobreak > nul >> %documento%%extension%
set/a numero = %numero%+1
if %numero%==%compararnumero% (goto obcion) else (goto numero_pausar)

:numero_texto
echo echo %textanil% >> %documento%%extension%
set/a numero = %numero%+1
if %numero%==%compararnumero% (goto obcion) else (goto numero_texto)

:condicional_variable
set /p condicional1=Cual es el primer valor?
set /p condicional2=Cual es el segundo valor?
set/a condicional1=%condicional1%
set/a condicional2=%condicional2%
set /p condicionalCondicion=La condicion es:El primer valor es mayor,menor o igual Al segundo valor?Elija mayor,menor o igual:
set /p condicionalEjecutar=Si %condicional1% es %condicionalCondicion% que %condicional2% que hacer?Elija un comando start,web,decir o pausar:
set /p condicionalNoEjecutar=Que hacer si la condicion es falsa?Elija start,web,decir o pausar:
if %condicionalCondicion%== mayor goto condicionalMayor
if %condicionalCondicion%== menor goto condicionalMenor
if %condicionalCondicion%== igual goto Condicionigual
echo Por favor elija una condicion o valores validos & goto condicional_variable

:condicionalMayor
if  %condicional1% GTR %condicional2% (goto MayorFinal) else (goto MayorOtro)


:condicionalMenor
if  %condicional1% LSS %condicional2% (goto MayorFinal) else (goto MayorOtro)

:condicionigual
if  %condicional1% EQU %condicional2% (goto MayorFinal) else (goto MayorOtro)

:MayorFinal
if  %condicionalEjecutar%==start echo start>> %documento%%extension%
if  %condicionalEjecutar%==crear goto crear
if  %condicionalEjecutar%==web set /p web=Elija la pagina: & goto pagina
if %condicionalEjecutar%==decir goto obcion_decir
if %condicionalEjecutar%==pausar set /p tiempo=Elija los segundos de pausa: & goto pausar
goto obcion


:MayorOtro:
if  %condicionalNoEjecutar%==start echo start>> %documento%%extension%
if  %condicionalNoEjecutar%==crear goto crear
if  %condicionalNoEjecutar%==web set /p web=Elija la pagina: & goto pagina
if %condicionalNoEjecutar%==decir goto obcion_decir
if %condicionalNoEjecutar%==pausar set /p tiempo=Elija los segundos de pausa: & goto pausar
goto obcion

:bucle_infinito_start
echo :bucle >> %documento%%extension%
echo start >> %documento%%extension%
echo if 1==1 goto bucle >> %documento%%extension%
goto obcion

:bucle_infinito_web
echo :bucle_web>>%documento%%extension%
echo start %biw%>>%documento%%extension%
echo if 1==1 goto bucle_web >> %documento%%extension%
goto obcion

:bucle_infinito_decir
echo :bucle_decir>>%documento%%extension%
echo echo %textinger% >>%documento%%extension%
echo if 1==1 goto bucle_decir >> %documento%%extension%
goto obcion

:bucle_infinito_pausar
echo :bucle_pausar>>%documento%%extension%
echo timeout /t %tiempodebucle% /nobreak > nul >> %documento%%extension%
echo if 1==1 goto bucle_pausar>> %documento%%extension
goto obcion

:bucle_infinito_crear
set /p nombritoparaelarchivito elija el nombre para el archivo:
echo set/a NumeroInfinitoCrear=0 >>%documento%%extension%
echo :bucle_crear>>%documento%%extension%
echo set/a  %%nombritoparaelarchivito%%==%%nombritoparaelarchivito%%+1
echo >>%%nombritoparaelarchivito%%

:color
if %color%==negro echo color 0 >> %documento%%extension%
if %color%==azul echo color 1 >> %documento%%extension%
if %color%==aguamarina echo color 3 >> %documento%%extension%
if %color%==rojo echo color 4 >> %documento%%extension%
if %color%==purpura echo color 5 >> %documento%%extension%
if %color%==amarillo echo color 6 >> %documento%%extension%
if %color%==blanco echo color 7 >> %documento%%extension%
if %color%==gris echo color 8 >>%documento%%extension%
if %color%==azul.claro echo color 9 >> %documento%%extension%
if %color%==verde.claro echo color a >> %documento%%extension%
if %color%==aguamarina.claro echo color b >> %documento%%extension%
if %color%==rojo.claro echo color c >>%documento%%extension%
if %color%==purpura.claro echo color d >> %documento%%extension%
if %color%==amarillo.claro echo color e >> %documento%%extension%
if %color%==blanco.brillante echo color f >> %documento%%extension%
goto obcion

:titulo
echo title %titulodeconsola% >> %documento%%extension%
goto obcion

:crear
set /p quequierecrear=Quiere crear una carpeta o un archivo?Escriba carpeta o archivo:
if %quequierecrear%==carpeta goto crear_carpeta
if %quequierecrear%==archivo goto crear_archivo
echo No ha respondido correctamente. & goto crear

:crear_carpeta
set /p nombredecarpeta=Elija el nombre de la carpeta:
echo mkdir %nombredecarpeta%>>%documento%%extension%
goto obcion

:crear_archivo
set /p nombredearchivo=Escriba el nombre del archivo y su extension:
echo echo ^>^> %nombredearchivo% >> %documento%%extension%
goto obcion

:la_gran_pregunta
set /p pregunta=Que deseas preguntar al usuario que ejecute el programa?
:respuesta1
set /p respuesta=Escriba la respuesta que deba dar el usuario:
set /p quehacerahora=Que hacer si el usurio responde %respuesta%?Elija start,pausar o decir:
set /p quehacersino=Que hacer si el usuario responde otra cosa?Elija start,pausar o decir:
echo set /p pregunta1=%pregunta% >>%documento%%extension%
echo if %%pregunta1%%==%respuesta% goto final1 >>%documento%%extension%
echo :finalAlternativo1 >>%documento%%extension%
if %quehacerahora%==start echo start >> %documento%%extension% & goto finalderespuesta1
if %quehacerahora%==pausar set /p tiempo=Elija los segundos de pausa: & goto pausar_respuesta
if %quehacerahora%==decir goto decir_respuesta
:finalderespuesta1
echo :final1 >>%documento%%extension%
if %quehacersino%==start echo start >> %documento%%extension% & goto obcion
if %quehacersino%==pausar set /p tiempo=Elija los segundos de pausa: & goto pausar_respuestafalsa
if %quehacersino%==decir goto decir_respuestafalsa


:pausar_respuesta
echo timeout /t %tiempo% /nobreak > nul >> %documento%%extension%
goto finalderespuesta1

:decir_respuesta
set /p textal=Escriba un texto o palabra:
echo echo %textal%  >> %documento%%extension%
goto finalderespuesta1

:pausar_respuestafalsa
echo timeout /t %tiempo% /nobreak > nul >> %documento%%extension%
goto obcion

:decir_respuestafalsa
set /p textal=Escriba un texto o palabra:
echo echo %textal%  >> %documento%%extension%
goto obcion

Muy bueno bro! Muy completo!
Me recuerda a mis primeros pasos en batch en el 2001!

Muchas gracias por compartirlo!

Saludos!
ANTRAX


Muchas gracias por compartirlo.

Saludos

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Muy bueno bro! Muy completo!
Me recuerda a mis primeros pasos en batch en el 2001!

Muchas gracias por compartirlo!

Saludos!
ANTRAX

Amigo @No tienes permitido ver los links. Registrarse o Entrar a mi cuenta, pero viene siendo un virus real o uno de broma, de verdad disculpa mi ignorancia pero poco tiempo tengo iniciandome seriamente a la ingeniería de sistemas aquí en mi país Venezuela.

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Muy bueno bro! Muy completo!
Me recuerda a mis primeros pasos en batch en el 2001!

Muchas gracias por compartirlo!

Saludos!
ANTRAX

Amigo @No tienes permitido ver los links. Registrarse o Entrar a mi cuenta, pero viene siendo un virus real o uno de broma, de verdad disculpa mi ignorancia pero poco tiempo tengo iniciandome seriamente a la ingeniería de sistemas aquí en mi país Venezuela.

Es útil para crear malware sencillo, descárgalo y pruébalo. :)
RollthBuen hacker mejor No tienes permitido ver los links. Registrarse o Entrar a mi cuenta/No tienes permitido ver los links. Registrarse o Entrar a mi cuenta