nc MI-IP 4444

@echo off
title Encriptador / Desencriptador v 1.0 By Arkangel
:menu
cls
color 0a
echo.
echo Que es lo que desea hacer?
echo.
echo.
echo 1.       Encriptar
echo.
echo.
echo 2.      Desencriptar
echo.
echo.
echo 3.         Salir
echo.
echo.
set /p opciones=
if %opciones%==1 goto 1
if %opciones%==2 goto 2
if %opciones%==3 (goto 3) else (goto error)
:1
cls
set /p palabra=Ingrese la palabra a Encriptar:
set resultado=%palabra%
set resultado1=%resultado:z=0%
set resultado2=%resultado1:y=z%
set resultado3=%resultado2:x=y%
set resultado4=%resultado3:w=x%
set resultado5=%resultado4:v=w%
set resultado6=%resultado5:u=v%
set resultado7=%resultado6:t=u%
set resultado8=%resultado7:s=t%
set resultado9=%resultado8:r=s%
set resultado10=%resultado9:q=r%
set resultado11=%resultado10:p=q%
set resultado12=%resultado11:o=p%
set resultado13=%resultado12:ñ=o%
set resultado14=%resultado13:n=ñ%
set resultado15=%resultado14:m=n%
set resultado16=%resultado15:l=m%
set resultado17=%resultado16:k=l%
set resultado18=%resultado17:j=k%
set resultado19=%resultado18:i=j%
set resultado20=%resultado19:h=i%
set resultado21=%resultado20:g=h%
set resultado22=%resultado21:f=g%
set resultado23=%resultado22:e=f%
set resultado24=%resultado23:d=e%
set resultado25=%resultado24:c=d%
set resultado26=%resultado25:b=c%
set resultado27=%resultado26:a=b%
set resultado28=%resultado27:0=a%
cls
echo El resultado es: %resultado28%
pause > nul
goto menu
:2
cls
set /p palabra2=Ingrese la palabra a Desencriptar:
set asd=%palabra2%
set asd1=%asd:a=0%
set asd2=%asd1:b=a%
set asd3=%asd2:c=b%
set asd4=%asd3:d=c%
set asd5=%asd4:e=d%
set asd6=%asd5:f=e%
set asd7=%asd6:g=f%
set asd8=%asd7:h=g%
set asd9=%asd8:i=h%
set asd10=%asd9:j=i%
set asd11=%asd10:k=j%
set asd12=%asd11:l=k%
set asd13=%asd12:m=l%
set asd14=%asd13:n=m%
set asd15=%asd14:ñ=n%
set asd16=%asd15:o=ñ%
set asd17=%asd16:p=o%
set asd18=%asd17:q=p%
set asd19=%asd18:r=q%
set asd20=%asd19:s=r%
set asd21=%asd20:t=s%
set asd22=%asd21:u=t%
set asd23=%asd22:v=u%
set asd24=%asd23:w=v%
set asd25=%asd24:x=w%
set asd26=%asd25:y=x%
set asd27=%asd26:z=y%
set asd28=%asd27:0=z%
cls
echo El resultado es: %asd28%
pause > nul
goto menu
:3
cls
echo Hasta la vista baby!
pause > nul
exit
:error
color 0c
cls
echo Tiene que poner uno de los numeros disponibles, intentelo nuevamente.
pause > nul
goto menu

set /p palabra=Ingrese la palabra a Encriptar:
set resultado=%palabra%
set resultado1=%resultado:z=0%
set resultado2=%resultado1:y=z%
set resultado3=%resultado2:x=y%
set resultado4=%resultado3:w=x%
set resultado5=%resultado4:v=w%
set resultado6=%resultado5:u=v%
set resultado7=%resultado6:t=u%
set resultado8=%resultado7:s=t%
set resultado9=%resultado8:r=s%
set resultado10=%resultado9:q=r%
set resultado11=%resultado10:p=q%
set resultado12=%resultado11:o=p%
set resultado13=%resultado12:ñ=o%
set resultado14=%resultado13:n=ñ%
set resultado15=%resultado14:m=n%
set resultado16=%resultado15:l=m%
set resultado17=%resultado16:k=l%
set resultado18=%resultado17:j=k%
set resultado19=%resultado18:i=j%
set resultado20=%resultado19:h=i%
set resultado21=%resultado20:g=h%
set resultado22=%resultado21:f=g%
set resultado23=%resultado22:e=f%
set resultado24=%resultado23:d=e%
set resultado25=%resultado24:c=d%
set resultado26=%resultado25:b=c%
set resultado27=%resultado26:a=b%
set resultado28=%resultado27:0=a%
cls
echo El resultado es: %resultado28%
pause > nul
exit