lenomi

Hola! Hoy les traigos un codificador y descodificador en batch! el codigo consiste en varias variable es decir: set palabra=%palabra:a=1% eso dice que el valor de palabra es igual a la palabra y las as son iguales a 1 el que sabe batch lo entiende El codigo: @echo off title Codificador/Descodificador color 30 rem Producido por lenomi rem abcdefghijklmnopqrstuvwxyz rem 123456789+?-@#_í¦/$¦¬+-0. :menu title Codificador/Descodificador menu cls echo. set/p nom=Escribe tu nombre: :menu1 cls echo. echo Bienvenido %nom% al Codificador/Descodificador que quieres hacer: echo. echo 1-Codificar echo 2-Descodificar echo 3-Salir set/p op= If %op%==1 goto codi If %op%==2 goto des If %op%==3 goto exit :exit title Codificador/Descodificador salir cls echo. echo saliendo. ping 127.0.0.1 -n 1 > nul cls echo. echo saliendo.. ping 127.0.0.1 -n 1 > nul cls echo. echo saliendo... ping 127.0.0.1 -n 1 > nul cls echo. echo saliendo. ping 127.0.0.1 -n 1 > nul cls echo. echo saliendo.. ping 127.0.0.1 -n 1 > nul cls echo. echo saliendo... ping 127.0.0.1 -n 1 > nul exit :codi title Codificador/Descodificador codificando cls echo. echo Elige la palabra a codificar (ENTRE COMILLAS SI ES UNA FRASE!) echo. set /p palabra= if [%palabra%]==[] (goto error2) else (goto codificando) :error2 echo no escribiste nada pause>nul goto codi :codificando set palabra=%palabra:a=1% set palabra=%palabra:b=2% set palabra=%palabra:c=3% set palabra=%palabra:d=4% set palabra=%palabra:e=5% set palabra=%palabra:f=6% set palabra=%palabra:g=7% set palabra=%palabra:h=8% set palabra=%palabra:i=9% set palabra=%palabra:j=¿% set palabra=%palabra:k=?% set palabra=%palabra:l=-% set palabra=%palabra:m=@% set palabra=%palabra:n=#% set palabra=%palabra:o=_% set palabra=%palabra:p=¡% set palabra=%palabra:q=º% set palabra=%palabra:r=/% set palabra=%palabra:s=$% set palabra=%palabra:t=´% set palabra=%palabra:u=ª% set palabra=%palabra:v=+% set palabra=%palabra:w=-% set palabra=%palabra:x=0% set palabra=%palabra:y=% set palabra=%palabra:z=.% echo. echo. cls echo la palabra codificada es %palabra% echo. pause >nul echo palabra: %palabra% >codicada.txt cls goto menu1 :des cls title Codificador/Descodificador descodificando echo. echo Escribi la palabra codificada para decodificarla... echo. echo para pegar, hace click derecho--pegar echo. set /p palabra2= set aaa=%palabra2:1=a% set bbb=%aaa:2=b% set ccc=%bbb:3=c% set ddd=%ccc:4=d% set eee=%ddd:5=e% set fff=%eee:6=f% set ggg=%fff:7=g% set hhh=%ggg:8=h% set iii=%hhh:9=i% set jjj=%iii:¿=j% set kkk=%jjj=k% set lll=%kkk:-=l% set mmm=%lll:@=m% set nnn=%mmm:#=n% set ooo=%nnn:_=o% set ppp=%ooo:¡=p% set qqq=%ppp:º=q% set rrr=%qqq:/=r% set sss=%rrr:$=s% set ttt=%sss:´=t% set uuu=%ttt:ª=u% set vvv=%uuu:+=v% set www=%vvv:-=w% set xxx=%www:0=x% set yyy=%xxx:=y% set zzz=%yyy:.=z% echo. echo * ping 127.0.0.1 -n 1 > nul echo *** ping 127.0.0.1 -n 1 > nul echo ***** ping 127.0.0.1 -n 1 > nul echo Decodificando... ping 127.0.0.1 -n 1 > nul echo ***** ping 127.0.0.1 -n 1 > nul echo *** ping 127.0.0.1 -n 1 > nul echo * ping 127.0.0.1 -n 2 > nul cls echo. echo Palabra descodificada %zzz% pause>nul goto menu1 Espero comentarios o sugerencias