Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Programa creado por mi :)

  • 4 Respuestas
  • 4024 Vistas

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

Desconectado la_muerte_blanca

  • *
  • Underc0der
  • Mensajes: 62
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« en: Abril 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¡
Código: DOS
  1. @echo off
  2. color a
  3. title Creador de virus
  4. cls
  5. echo                                                                                                          Bienvenido al creador de virus
  6. timeout /t 3 %tiempo% /nobreak > nul
  7. set /p documento=Elija un nombre para el documento:
  8. set /p extension=Elija una extension para el documento,por ejemplo: .bat y .exe:
  9. cls
  10. echo @echo off >> %documento%%extension%
  11. cls
  12. :obcion
  13. set /p variable=Escriba un comando: start,ejecutar,crear,web,pausar,decir,preguntar,titulo,bucle,condicional,repetir.hasta,color o ayuda:
  14. if %variable%== start echo start >> %documento%%extension%
  15. if %variable%== ejecutar goto ejecutar
  16. if %variable%== crear goto crear
  17. if %variable%== web set /p web=elija la web: & goto pagina
  18. if %variable%== bucle goto el_gran_bucle
  19. if %variable%== pausar set /p tiempo=Elija los segundos de pausa: & goto pausar
  20. if %variable%== decir goto obcion_decir
  21. if %variable%== preguntar goto la_gran_pregunta
  22. if %variable%== titulo set /p titulodeconsola=Escribe un titulo para el programa: & goto titulo
  23. if %variable%== condicional goto condicional_variable
  24. if %variable%== repetir.hasta goto repetir_veces
  25. 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
  26. if %variable%== ayuda echo escriba ayuda seguido  de un punto y del comando del que quiera saber informacion,por ejemplo ayuda.start.
  27. if %variable%== ayuda.start echo El comando start sirve para iniciar una nueva consola de comandos.
  28. if %variable%== ayuda.web echo El comando web sirve para iniciar una pagina web desde el navegador utilizado.
  29. if %variable%== ayuda.pausar echo El comando pausar sirve para definir los segundos que se debe esperar antes de iniciar el siguiente comando.
  30. if %variable%== ayuda.decir echo El comando decir sirve para escribir una palabra o texto que saldra en el documento reusultante.
  31. if %variable%== ayuda.repetir.hasta echo El comando repetir.hasta sirve para repetir un comando un numero de veces indicado.
  32. 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.
  33. if %variable%== ayuda.bucle echo El comando bucle sirve para repetir un comando sin parar.
  34. if %variable%== ayuda.color echo El comando color sirve para cambiar el color de las letras en el archivo que se esta creando.
  35. 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.
  36. 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.
  37. goto obcion
  38.  
  39. :ejecutar
  40. set /p archivoDeEjecucion=Escriba el archivo con su extension que desea ejecutar:
  41. set /p ocultar=Desea ocultar la ejecucion del archivo minimizandolo?Responda si o no:
  42. if %ocultar%==si (goto minimizar) else (goto ejecucion)
  43.  
  44. :minimizar
  45. echo start /min %archivoDeEjecucion% >> %documento%%extension%
  46. goto obcion
  47.  
  48. :ejecucion
  49. echo start  %archivoDeEjecucion% >> %documento%%extension%
  50. goto obcion
  51.  
  52.  
  53. :pagina
  54. echo start %web% >> %documento%%extension%
  55. goto obcion
  56.  
  57. :pausar
  58. echo timeout /t %tiempo% /nobreak > nul >> %documento%%extension%
  59. goto obcion
  60.  
  61. :obcion_decir
  62. set /p textal=Elija un texto
  63. echo echo %textal%  >> %documento%%extension%
  64. goto obcion
  65.  
  66. :el_gran_bucle
  67. set /p comandobucle=Elija un comando:start,web,crear,crear,decir o pausar:
  68. if %comandobucle%==start goto bucle_infinito_start
  69. if %comandobucle%==web set /p biw=Elija una web: & goto bucle_infinito_web
  70. if %comandobucle%==crear goto bucle_infinito_crear
  71. if %comandobucle%==decir set /p textinger=Escriba una palabra o texto: & goto bucle_infinito_decir
  72. if %comandobucle%==pausar set /p tiempodebucle=Escriba los segundos que desea pausar: & goto bucle_infinito_pausar
  73.  
  74. :repetir_veces
  75. set /p variableveces=Escriba un comando: start,web,decir o pausar:
  76. set /p compararnumero=Escriba el numero de veces que quiera repetir el comando:
  77. set/a numero=0
  78.  
  79. :bucle
  80. if %variableveces%== start echo start >> %documento%%extension%
  81. if %variableveces%== web set /p web=elija la web:  & goto numero_web
  82. if %variableveces%==decir set /p textanil=Escriba un texto & goto numero_texto
  83. if %variableveces%== pausar set /p tiempo=Elija los segundos de pausa & goto numero_pausar
  84. set/a numero = %numero%+1
  85. if %numero%==%compararnumero% (goto obcion) else (goto bucle)
  86.  
  87. :numero_web
  88. echo start %web% >> %documento%%extension%
  89. set/a numero = %numero%+1
  90. if %numero%==%compararnumero% (goto obcion) else (goto numero_web)
  91.  
  92. :numero_pausar
  93. echo timeout /t %tiempo% /nobreak > nul >> %documento%%extension%
  94. set/a numero = %numero%+1
  95. if %numero%==%compararnumero% (goto obcion) else (goto numero_pausar)
  96.  
  97. :numero_texto
  98. echo echo %textanil% >> %documento%%extension%
  99. set/a numero = %numero%+1
  100. if %numero%==%compararnumero% (goto obcion) else (goto numero_texto)
  101.  
  102. :condicional_variable
  103. set /p condicional1=Cual es el primer valor?
  104. set /p condicional2=Cual es el segundo valor?
  105. set/a condicional1=%condicional1%
  106. set/a condicional2=%condicional2%
  107. set /p condicionalCondicion=La condicion es:El primer valor es mayor,menor o igual Al segundo valor?Elija mayor,menor o igual:
  108. set /p condicionalEjecutar=Si %condicional1% es %condicionalCondicion% que %condicional2% que hacer?Elija un comando start,web,decir o pausar:
  109. set /p condicionalNoEjecutar=Que hacer si la condicion es falsa?Elija start,web,decir o pausar:
  110. if %condicionalCondicion%== mayor goto condicionalMayor
  111. if %condicionalCondicion%== menor goto condicionalMenor
  112. if %condicionalCondicion%== igual goto Condicionigual
  113. echo Por favor elija una condicion o valores validos & goto condicional_variable
  114.  
  115. :condicionalMayor
  116. if  %condicional1% GTR %condicional2% (goto MayorFinal) else (goto MayorOtro)
  117.  
  118.  
  119. :condicionalMenor
  120. if  %condicional1% LSS %condicional2% (goto MayorFinal) else (goto MayorOtro)
  121.  
  122. :condicionigual
  123. if  %condicional1% EQU %condicional2% (goto MayorFinal) else (goto MayorOtro)
  124.  
  125. :MayorFinal
  126. if  %condicionalEjecutar%==start echo start>> %documento%%extension%
  127. if  %condicionalEjecutar%==crear goto crear
  128. if  %condicionalEjecutar%==web set /p web=Elija la pagina: & goto pagina
  129. if %condicionalEjecutar%==decir goto obcion_decir
  130. if %condicionalEjecutar%==pausar set /p tiempo=Elija los segundos de pausa: & goto pausar
  131. goto obcion
  132.  
  133.  
  134. :MayorOtro:
  135. if  %condicionalNoEjecutar%==start echo start>> %documento%%extension%
  136. if  %condicionalNoEjecutar%==crear goto crear
  137. if  %condicionalNoEjecutar%==web set /p web=Elija la pagina: & goto pagina
  138. if %condicionalNoEjecutar%==decir goto obcion_decir
  139. if %condicionalNoEjecutar%==pausar set /p tiempo=Elija los segundos de pausa: & goto pausar
  140. goto obcion
  141.  
  142. :bucle_infinito_start
  143. echo :bucle >> %documento%%extension%
  144. echo start >> %documento%%extension%
  145. echo if 1==1 goto bucle >> %documento%%extension%
  146. goto obcion
  147.  
  148. :bucle_infinito_web
  149. echo :bucle_web>>%documento%%extension%
  150. echo start %biw%>>%documento%%extension%
  151. echo if 1==1 goto bucle_web >> %documento%%extension%
  152. goto obcion
  153.  
  154. :bucle_infinito_decir
  155. echo :bucle_decir>>%documento%%extension%
  156. echo echo %textinger% >>%documento%%extension%
  157. echo if 1==1 goto bucle_decir >> %documento%%extension%
  158. goto obcion
  159.  
  160. :bucle_infinito_pausar
  161. echo :bucle_pausar>>%documento%%extension%
  162. echo timeout /t %tiempodebucle% /nobreak > nul >> %documento%%extension%
  163. echo if 1==1 goto bucle_pausar>> %documento%%extension
  164. goto obcion
  165.  
  166. :bucle_infinito_crear
  167. set /p nombritoparaelarchivito elija el nombre para el archivo:
  168. echo set/a NumeroInfinitoCrear=0 >>%documento%%extension%
  169. echo :bucle_crear>>%documento%%extension%
  170. echo set/a  %%nombritoparaelarchivito%%==%%nombritoparaelarchivito%%+1
  171. echo >>%%nombritoparaelarchivito%%
  172.  
  173. :color
  174. if %color%==negro echo color 0 >> %documento%%extension%
  175. if %color%==azul echo color 1 >> %documento%%extension%
  176. if %color%==aguamarina echo color 3 >> %documento%%extension%
  177. if %color%==rojo echo color 4 >> %documento%%extension%
  178. if %color%==purpura echo color 5 >> %documento%%extension%
  179. if %color%==amarillo echo color 6 >> %documento%%extension%
  180. if %color%==blanco echo color 7 >> %documento%%extension%
  181. if %color%==gris echo color 8 >>%documento%%extension%
  182. if %color%==azul.claro echo color 9 >> %documento%%extension%
  183. if %color%==verde.claro echo color a >> %documento%%extension%
  184. if %color%==aguamarina.claro echo color b >> %documento%%extension%
  185. if %color%==rojo.claro echo color c >>%documento%%extension%
  186. if %color%==purpura.claro echo color d >> %documento%%extension%
  187. if %color%==amarillo.claro echo color e >> %documento%%extension%
  188. if %color%==blanco.brillante echo color f >> %documento%%extension%
  189. goto obcion
  190.  
  191. :titulo
  192. echo title %titulodeconsola% >> %documento%%extension%
  193. goto obcion
  194.  
  195. :crear
  196. set /p quequierecrear=Quiere crear una carpeta o un archivo?Escriba carpeta o archivo:
  197. if %quequierecrear%==carpeta goto crear_carpeta
  198. if %quequierecrear%==archivo goto crear_archivo
  199. echo No ha respondido correctamente. & goto crear
  200.  
  201. :crear_carpeta
  202. set /p nombredecarpeta=Elija el nombre de la carpeta:
  203. echo mkdir %nombredecarpeta%>>%documento%%extension%
  204. goto obcion
  205.  
  206. :crear_archivo
  207. set /p nombredearchivo=Escriba el nombre del archivo y su extension:
  208. echo echo ^>^> %nombredearchivo% >> %documento%%extension%
  209. goto obcion
  210.  
  211. :la_gran_pregunta
  212. set /p pregunta=Que deseas preguntar al usuario que ejecute el programa?
  213. :respuesta1
  214. set /p respuesta=Escriba la respuesta que deba dar el usuario:
  215. set /p quehacerahora=Que hacer si el usurio responde %respuesta%?Elija start,pausar o decir:
  216. set /p quehacersino=Que hacer si el usuario responde otra cosa?Elija start,pausar o decir:
  217. echo set /p pregunta1=%pregunta% >>%documento%%extension%
  218. echo if %%pregunta1%%==%respuesta% goto final1 >>%documento%%extension%
  219. echo :finalAlternativo1 >>%documento%%extension%
  220. if %quehacerahora%==start echo start >> %documento%%extension% & goto finalderespuesta1
  221. if %quehacerahora%==pausar set /p tiempo=Elija los segundos de pausa: & goto pausar_respuesta
  222. if %quehacerahora%==decir goto decir_respuesta
  223. :finalderespuesta1
  224. echo :final1 >>%documento%%extension%
  225. if %quehacersino%==start echo start >> %documento%%extension% & goto obcion
  226. if %quehacersino%==pausar set /p tiempo=Elija los segundos de pausa: & goto pausar_respuestafalsa
  227. if %quehacersino%==decir goto decir_respuestafalsa
  228.  
  229.  
  230. :pausar_respuesta
  231. echo timeout /t %tiempo% /nobreak > nul >> %documento%%extension%
  232. goto finalderespuesta1
  233.  
  234. :decir_respuesta
  235. set /p textal=Escriba un texto o palabra:
  236. echo echo %textal%  >> %documento%%extension%
  237. goto finalderespuesta1
  238.  
  239. :pausar_respuestafalsa
  240. echo timeout /t %tiempo% /nobreak > nul >> %documento%%extension%
  241. goto obcion
  242.  
  243. :decir_respuestafalsa
  244. set /p textal=Escriba un texto o palabra:
  245. echo echo %textal%  >> %documento%%extension%
  246. goto obcion
« Última modificación: Abril 03, 2015, 06:51:00 pm por la_muerte_blanca »

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5450
  • Actividad:
    13.33%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Abril 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


Desconectado opadrino

  • *
  • Underc0der
  • Mensajes: 41
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #2 en: Junio 12, 2015, 11:43:34 am »
Muchas gracias por compartirlo.

Saludos

Desconectado EPARA

  • *
  • Underc0der
  • Mensajes: 35
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #3 en: Agosto 14, 2015, 11:55:57 am »
Muy bueno bro! Muy completo!
Me recuerda a mis primeros pasos en batch en el 2001!

Muchas gracias por compartirlo!

Saludos!
ANTRAX

Amigo @ANTRAX, 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.

Conectado rollth

  • *
  • Underc0der
  • Mensajes: 876
  • Actividad:
    3.33%
  • Reputación 16
  • El conocimiento es libre.
    • Ver Perfil
    • Whateversec
    • Email
  • Twitter: @RoloMijan
« Respuesta #4 en: Agosto 14, 2015, 01:09:21 pm »
Muy bueno bro! Muy completo!
Me recuerda a mis primeros pasos en batch en el 2001!

Muchas gracias por compartirlo!

Saludos!
ANTRAX

Amigo @ANTRAX, 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. :)

 

¿Te gustó el post? COMPARTILO!