@echo off
color a
:menu
cls
echo __________________________________________________________________
echo [+]______________Crypter and Decrypter v1.0 by sal _____________[+]
echo [+] *1. cifrar texto [+]
echo [+] *2. descifrar texto [+]
echo [+] *3. salir [+]
echo [+] *4. Creditos [+]
echo [+]______________________________________________________________[+]
echo [+]___________________________MP©2017____________________________[+]
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"] exit
If ["%var%"]==["4"] goto cre
:cifrar
cls
echo [+]______________________________________________________________[+]
echo [+] *1.Cifrar [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo/
echo/
echo/
set/p "palabra=Escriba las palabras que quieras cifrar: "
if not defined palabra (goto:cifrar)
set "var=%palabra%"
set "resultado=%var:a=61%"
set "resultado=%resultado:b=62%"
set "resultado=%resultado:c=63%"
set "resultado=%resultado:d=64%"
set "resultado=%resultado:e=65%"
set "resultado=%resultado:f=66%"
set "resultado=%resultado:g=67%"
set "resultado=%resultado:h=68%"
set "resultado=%resultado:i=69%"
set "resultado=%resultado:j=70%"
set "resultado=%resultado:k=72%"
set "resultado=%resultado:l=73%"
set "resultado=%resultado:m=74%"
set "resultado=%resultado:n=75%"
set "resultado=%resultado:ñ=76%"
set "resultado=%resultado:o=77%"
set "resultado=%resultado:p=78%"
set "resultado=%resultado:q=79%"
set "resultado=%resultado:r=100%"
set "resultado=%resultado:s=101%"
set "resultado=%resultado:t=102%"
set "resultado=%resultado:u=103%"
set "resultado=%resultado:v=104%"
set "resultado=%resultado:w=105%"
set "resultado=%resultado:x=30%"
set "resultado=%resultado:y=638%"
set "resultado=%resultado:z=666%"
:finenc
cls
echo.
echo Las palabras encriptadas son: %resultado%
echo %resultado% >> cifrado.txt
pause
goto menu
:descifrar
cls
echo [+]______________________________________________________________[+]
echo [+] *1.Descifrar [+]
echo [+]______________________________________________________________[+]
echo [+]______________________________________________________________[+]
echo/
echo/
echo/
set /p palabra=Escriba los numeros que quieras descifrar:
set "var23=%palabra%"
set "resultado=%var23:61=a%"
set "resultado=%resultado:62=b%"
set "resultado=%resultado:63=c%"
set "resultado=%resultado:64=d%"
set "resultado=%resultado:65=e%"
set "resultado=%resultado:66=f%"
set "resultado=%resultado:67=g%"
set "resultado=%resultado:68=h%"
set "resultado=%resultado:69=i%"
set "resultado=%resultado:70=j%"
set "resultado=%resultado:72=k%"
set "resultado=%resultado:73=l%"
set "resultado=%resultado:74=m%"
set "resultado=%resultado:75=n%"
set "resultado=%resultado:76=ñ%"
set "resultado=%resultado:77=o%"
set "resultado=%resultado:78=p%"
set "resultado=%resultado:79=q%"
set "resultado=%resultado:100=r%"
set "resultado=%resultado:101=s%"
set "resultado=%resultado:102=t%"
set "resultado=%resultado:103=u%"
set "resultado=%resultado:104=v%"
set "resultado=%resultado:105=w%"
set "resultado=%resultado:30=x%"
set "resultado=%resultado:638=y%"
set "resultado=%resultado:666=z%"
:fin
cls
echo.
echo Las palabras desencriptadas son: %resultado%
echo/
echo/
echo/
pause & goto menu
:cre
(
echo/ & echo/
echo :::::::::::::::::::::::::::::::::::::::::::::::::::
echo ::::::: By **Aincrad** :::::::
echo :::::::::::::::::::::::::::::::::::::::::::::::::::
echo/ & echo/ & pause & goto menu
)