This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

Programa creado por mi :)

  • 4 Replies
  • 7124 Views

0 Members and 1 Guest are viewing this topic.

Offline la_muerte_blanca

  • *
  • Underc0der
  • Posts: 62
  • Actividad:
    0%
  • Reputación 0
    • View Profile

Programa creado por mi :)

  • on: April 03, 2015, 06:49:27 pm
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¡
Code: (dos) You are not allowed to view links. Register or Login
@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
« Last Edit: April 03, 2015, 06:51:00 pm by la_muerte_blanca »

Offline ANTRAX

  • *
  • Administrator
  • Posts: 5854
  • Actividad:
    10%
  • Country: ar
  • Reputación 43
  • ANTRAX
  • Twitter: @Underc0de
    • View Profile
    • Underc0de
    • Email

Re:Programa creado por mi :)

  • on: April 04, 2015, 02:15:00 pm
Muy bueno bro! Muy completo!
Me recuerda a mis primeros pasos en batch en el 2001!

Muchas gracias por compartirlo!

Saludos!
ANTRAX


Offline opadrino

  • *
  • Underc0der
  • Posts: 39
  • Actividad:
    0%
  • Reputación 0
    • View Profile

Re:Programa creado por mi :)

  • on: June 12, 2015, 11:43:34 am
Muchas gracias por compartirlo.

Saludos

Offline EPARA

  • *
  • Underc0der
  • Posts: 36
  • Actividad:
    3.33%
  • Reputación 0
    • View Profile
    • Email

Re:Programa creado por mi :)

  • on: August 14, 2015, 11:55:57 am
You are not allowed to view links. Register or Login
Muy bueno bro! Muy completo!
Me recuerda a mis primeros pasos en batch en el 2001!

Muchas gracias por compartirlo!

Saludos!
ANTRAX

Amigo @You are not allowed to view links. Register or Login, 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.

Offline rollth

  • *
  • Ex-Staff
  • *****
  • Posts: 889
  • Actividad:
    0%
  • Reputación 16
  • El conocimiento es libre.
  • Twitter: @RoloMijan
    • View Profile
    • Whateversec
    • Email

Re:Programa creado por mi :)

  • on: August 14, 2015, 01:09:21 pm
You are not allowed to view links. Register or Login
You are not allowed to view links. Register or Login
Muy bueno bro! Muy completo!
Me recuerda a mis primeros pasos en batch en el 2001!

Muchas gracias por compartirlo!

Saludos!
ANTRAX

Amigo @You are not allowed to view links. Register or Login, 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. :)

Rollth
Buen hacker mejor persona.
You are not allowed to view links. Register or Login
You are not allowed to view links. Register or Login
You are not allowed to view links. Register or Login