Codificador y descodificador en batch

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 [email protected]#_í¦/$¦¬+-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:[email protected]%
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