@ECHO OFF
COLOR 0B
title Encriptador de textos V3.0 [*Hack_zer0*]

mode con cols=80 lines=30 
REM æôØ£׃À©¢¥ãäðÐÆÊÌÇçø¬È§êîÅ
:INI
CLS
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo                    Bienvenido al encriptador Zer0 (256 bits)
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo.
echo      Esta aplicacion te ayudara a encriptar tus archivos de texto mediante un
echo  algoritmo corto de 64 bits es decir de 8 digitos este se cifrara para dar 
echo  resultado a un cripto-diccionario de 64 digitos por lo que la seguridad de 
echo  encriptacion es alta y haciende a 256 bits 
echo.
echo      Para crear una contraseña segura alterna mayusculas y minusculas de esa
echo  manera sera mas dificil desencriptar tu texto ya que tendra que coincidir hata
echo  el mas minimo detalle.
echo.
echo  NOTA! Para desencriptar el archivo la contraseña debe ser identica ya que este
echo  encriptador distingue mayusculas de minsculas
echo.
echo.
echo. 
SET /p file="Archivo de texto a encriptar >> "
setlocal enabledelayedexpansion
if not exist %file%.txt (
	cls
	echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
	echo                    Bienvenido al encriptador Zer0 [256 bits]
	echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
	echo.
	echo El archivo especificado no existe o no es un archivo de texto
	echo.
	echo Nota: El archivo a encriptar no debe tener espacios en su nombre
	echo.
	echo Pulsa una tecla para regresar al menu
	pause > nul
	goto ini
)
:fil
cls
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo                            Seleciona tu contrase¤a
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo.
echo  NOTA: Solo se acepatan letras y numeros, carateres diferentes a estos 
echo  ocasionarian error al codificar el archivo
echo.
echo.
set /p look="Escribe una contrase¤a (minimo 8 digitos) >> "
set limit=%look:~7,1%
if defined limit (
	goto encript
) else (
	cls
	echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
	echo                    Bienvenido al encriptador Zer0 (256 bits)
	echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
	echo.
	echo La contrase¤a es muy corta
	echo.
	echo.
	echo Pulsa una tecla para regresar al menu
	pause > nul
	goto fil
)





:encript

echo Iniciando codificaion de archivos . . . 
title Encriptador de textos V3.0 [*Hack_zer0*]..adquiriendo criptodiccionarios. . .!
@ECHO ON
:dig1

echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:0//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig1x=%look:~0,1%
call :encode1x "%dig1x%"
set dyxio=%encode1x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:1//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig2x=%look:~1,1%
call :encode2x "%dig2x%"
set dyxio=%dyxio%%encode2x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:2//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig3x=%look:~2,1%
call :encode3x "%dig3x%"
set dyxio=%dyxio%%encode3x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:3//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig4x=%look:~3,1%
call :encode4x "%dig4x%"
set dyxio=%dyxio%%encode4x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:4//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig5x=%look:~4,1%
call :encode5x "%dig5x%"
set dyxio=%dyxio%%encode5x%êî
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:5//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig6x=%look:~5,1%
call :encode6x "%dig6x%"
set dyxio=%dyxio%%encode6x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:6//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig7x=%look:~6,1%
call :encode7x "%dig7x%"
set dyxio=%dyxio%%encode7x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:7//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig8x=%look:~7,1%
call :encode8x "%dig8x%"
set dyxio=%dyxio%%encode8x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:8//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo off
if %dyxio%==%encode1x%%encode2x%%encode3x%%encode4x%%encode5x%êî%encode6x%%encode7x%%encode8x% (
	goto:cifrado 
)
cls
echo a ocurrido un error
echo.
echo %dyxio%
echo.
echo %encode1x%%encode2x%%encode3x%%encode4x%%encode5x%êî%encode6x%%encode7x%
pause
exit

:cifrado
title Encriptador de textos V3.0 [*Hack_zer0*] Obteniendo variables . . .!
setlocal enabledelayedexpansion
set clave=%dyxio%
set lin=0
set lina=0
for /f "tokens=*" %%k in (%file%.txt) do set /a lin+=1
for /f "tokens=*" %%z in (%file%.txt) do call :lenn "%%z"
title Encriptador de textos V3.0 [*Hack_zer0*]
@ECHO OFF
cls
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo                        Encriptador Zer0 (256 bits)
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo.
echo                           proceso finalizado !!
echo.
echo El archivo encriptado tiene el siguiente nombre: "%file%.lok"
echo.
echo NOTA: no cambies la extencion del archivo ya que solo asi lo reconocera
echo el desencriptador
PAUSE > NUL
GOTO END




:Nucleo_encriptacion
rem kernel 2.0

:lenn
title Encriptador de textos V3.0 [*Hack_zer0*] Encriptando texto . . .!
set cont=0
set line=%~1
set /a lina+=1
if not defined line echo. >>%file%.lok & goto :Eof
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo     Encriptando texto:       Progreso: %lina%/%lin%                     [Hack_zer0]
echo.
echo %line%
for %%h in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,ñ,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9) do call :loop "%%h"
echo %line% >>%file%.lok
goto :Eof

:loop
set letra=%~1
call set bit=%%clave:~%cont%,1%%
call set line=%%line:%letra%=%bit%%%
echo %line%
set /a cont+=1
goto :eof




:END
EXIT


:encode1x
SET dgs100x=%~1
if ["%dgs100x%"] == ["0"] set encode1x=æôØ£
if ["%dgs100x%"] == ["1"] set encode1x=æôØ£Â
if ["%dgs100x%"] == ["2"] set encode1x=æôÂØ£
if ["%dgs100x%"] == ["3"] set encode1x=æô£Ø
if ["%dgs100x%"] == ["4"] set encode1x=æô£ØÂ
if ["%dgs100x%"] == ["5"] set encode1x=æô£ÂØ
if ["%dgs100x%"] == ["6"] set encode1x=æØô£
if ["%dgs100x%"] == ["7"] set encode1x=æØô£Â
if ["%dgs100x%"] == ["8"] set encode1x=æØÂô£
if ["%dgs100x%"] == ["9"] set encode1x=æØ£ô
if ["%dgs100x%"] == ["A"] set encode1x=æØ£ôÂ
if ["%dgs100x%"] == ["B"] set encode1x=æØ£Âô
if ["%dgs100x%"] == ["C"] set encode1x=æÂôØ£
if ["%dgs100x%"] == ["D"] set encode1x=æÂô£Ø
if ["%dgs100x%"] == ["E"] set encode1x=æÂØô£
if ["%dgs100x%"] == ["F"] set encode1x=æÂØ£ô
if ["%dgs100x%"] == ["G"] set encode1x=æ£ôØ
if ["%dgs100x%"] == ["H"] set encode1x=æ£Øô
if ["%dgs100x%"] == ["I"] set encode1x=æ£ôØÂ
if ["%dgs100x%"] == ["J"] set encode1x=æ£ôÂØ
if ["%dgs100x%"] == ["K"] set encode1x=æ£ØôÂ
if ["%dgs100x%"] == ["L"] set encode1x=æ£ØÂô
if ["%dgs100x%"] == ["M"] set encode1x=æ£ÂôØ
if ["%dgs100x%"] == ["N"] set encode1x=æ£ÂØô
if ["%dgs100x%"] == ["Ñ"] set encode1x=ôæØ£
if ["%dgs100x%"] == ["O"] set encode1x=ôæØ£Â
if ["%dgs100x%"] == ["P"] set encode1x=ôæÂØ£
if ["%dgs100x%"] == ["Q"] set encode1x=ôæ£Ø
if ["%dgs100x%"] == ["R"] set encode1x=ôæ£ØÂ
if ["%dgs100x%"] == ["S"] set encode1x=ôæ£ÂØ
if ["%dgs100x%"] == ["T"] set encode1x=ôØæ£
if ["%dgs100x%"] == ["U"] set encode1x=ôØæ£Â
if ["%dgs100x%"] == ["V"] set encode1x=ôØÂæ£
if ["%dgs100x%"] == ["W"] set encode1x=ôØ£æ
if ["%dgs100x%"] == ["X"] set encode1x=ôØ£æÂ
if ["%dgs100x%"] == ["Y"] set encode1x=ôØ£Âæ
if ["%dgs100x%"] == ["Z"] set encode1x=ôÂæØ£
if ["%dgs100x%"] == ["a"] set encode1x=ôÂæ£Ø
if ["%dgs100x%"] == ["b"] set encode1x=ôÂØæ£
if ["%dgs100x%"] == ["c"] set encode1x=ôÂØ£æ
if ["%dgs100x%"] == ["d"] set encode1x=ô£æØ
if ["%dgs100x%"] == ["e"] set encode1x=ô£Øæ
if ["%dgs100x%"] == ["f"] set encode1x=ô£æØÂ
if ["%dgs100x%"] == ["g"] set encode1x=ô£æÂØ
if ["%dgs100x%"] == ["h"] set encode1x=ô£ØæÂ
if ["%dgs100x%"] == ["i"] set encode1x=ô£ØÂæ
if ["%dgs100x%"] == ["j"] set encode1x=ô£ÂæØ
if ["%dgs100x%"] == ["k"] set encode1x=ô£ÂØæ
if ["%dgs100x%"] == ["l"] set encode1x=Øæô£
if ["%dgs100x%"] == ["m"] set encode1x=Øæô£Â
if ["%dgs100x%"] == ["n"] set encode1x=ØæÂô£
if ["%dgs100x%"] == ["ñ"] set encode1x=Øæ£ô
if ["%dgs100x%"] == ["o"] set encode1x=Øæ£ôÂ
if ["%dgs100x%"] == ["p"] set encode1x=Øæ£Âô
if ["%dgs100x%"] == ["q"] set encode1x=Øôæ£
if ["%dgs100x%"] == ["r"] set encode1x=Øôæ£Â
if ["%dgs100x%"] == ["s"] set encode1x=ØôÂæ£
if ["%dgs100x%"] == ["t"] set encode1x=Øô£æ
if ["%dgs100x%"] == ["u"] set encode1x=Øô£Âæ
if ["%dgs100x%"] == ["v"] set encode1x=Øô£æÂ
if ["%dgs100x%"] == ["w"] set encode1x=ØÂæô£
if ["%dgs100x%"] == ["x"] set encode1x=ØÂæ£ô
if ["%dgs100x%"] == ["y"] set encode1x=ØÂôæ£
if ["%dgs100x%"] == ["z"] set encode1x=ØÂô£æ
goto :eof

:encode2x
SET dgs010x=%~1
if ["%dgs010x%"] == ["0"] set encode2x=׃À©¢
if ["%dgs010x%"] == ["1"] set encode2x=׃À¢©
if ["%dgs010x%"] == ["2"] set encode2x=׃©À¢
if ["%dgs010x%"] == ["3"] set encode2x=׃©¢À
if ["%dgs010x%"] == ["4"] set encode2x=׃¢À©
if ["%dgs010x%"] == ["5"] set encode2x=׃¢©À
if ["%dgs010x%"] == ["6"] set encode2x=×Àƒ©¢
if ["%dgs010x%"] == ["7"] set encode2x=×Àƒ¢©
if ["%dgs010x%"] == ["8"] set encode2x=×À©ƒ¢
if ["%dgs010x%"] == ["9"] set encode2x=×À©¢ƒ
if ["%dgs010x%"] == ["A"] set encode2x=×À¢ƒ©
if ["%dgs010x%"] == ["B"] set encode2x=×À¢©ƒ
if ["%dgs010x%"] == ["C"] set encode2x=שƒÀ¢
if ["%dgs010x%"] == ["D"] set encode2x=שƒ¢À
if ["%dgs010x%"] == ["E"] set encode2x=שÀƒ¢
if ["%dgs010x%"] == ["F"] set encode2x=שÀ¢ƒ
if ["%dgs010x%"] == ["G"] set encode2x=ש¢ƒÀ
if ["%dgs010x%"] == ["H"] set encode2x=ש¢Àƒ
if ["%dgs010x%"] == ["I"] set encode2x=×¢ƒÀ©
if ["%dgs010x%"] == ["J"] set encode2x=×¢ƒ©À
if ["%dgs010x%"] == ["K"] set encode2x=×¢Àƒ©
if ["%dgs010x%"] == ["L"] set encode2x=×¢À©ƒ
if ["%dgs010x%"] == ["M"] set encode2x=×¢©ƒÀ
if ["%dgs010x%"] == ["N"] set encode2x=×¢©Àƒ
if ["%dgs010x%"] == ["Ñ"] set encode2x=ƒ×À©¢
if ["%dgs010x%"] == ["O"] set encode2x=ƒ×À¢©
if ["%dgs010x%"] == ["P"] set encode2x=ƒ×©À¢
if ["%dgs010x%"] == ["Q"] set encode2x=ƒ×©¢À
if ["%dgs010x%"] == ["R"] set encode2x=ƒ×¢À©
if ["%dgs010x%"] == ["S"] set encode2x=ƒ×¢©À
if ["%dgs010x%"] == ["T"] set encode2x=ƒÀש¢
if ["%dgs010x%"] == ["U"] set encode2x=ƒÀ×¢©
if ["%dgs010x%"] == ["V"] set encode2x=ƒÀ©×¢
if ["%dgs010x%"] == ["W"] set encode2x=ƒÀ©¢×
if ["%dgs010x%"] == ["X"] set encode2x=ƒÀ¢×©
if ["%dgs010x%"] == ["Y"] set encode2x=ƒÀ¢©×
if ["%dgs010x%"] == ["Z"] set encode2x=ƒ©×À¢
if ["%dgs010x%"] == ["a"] set encode2x=ƒ©×¢À
if ["%dgs010x%"] == ["b"] set encode2x=ƒ©À×¢
if ["%dgs010x%"] == ["c"] set encode2x=ƒ©À¢×
if ["%dgs010x%"] == ["d"] set encode2x=ƒ©¢×À
if ["%dgs010x%"] == ["e"] set encode2x=ƒ©¢À×
if ["%dgs010x%"] == ["f"] set encode2x=ƒ¢×À©
if ["%dgs010x%"] == ["g"] set encode2x=ƒ¢×©À
if ["%dgs010x%"] == ["h"] set encode2x=ƒ¢Àש
if ["%dgs010x%"] == ["i"] set encode2x=ƒ¢À©×
if ["%dgs010x%"] == ["j"] set encode2x=ƒ¢©×À
if ["%dgs010x%"] == ["k"] set encode2x=ƒ¢©À×
if ["%dgs010x%"] == ["l"] set encode2x=À׃©¢
if ["%dgs010x%"] == ["m"] set encode2x=À׃¢©
if ["%dgs010x%"] == ["n"] set encode2x=Àשƒ¢
if ["%dgs010x%"] == ["ñ"] set encode2x=Àש¢ƒ
if ["%dgs010x%"] == ["o"] set encode2x=À×¢ƒ©
if ["%dgs010x%"] == ["p"] set encode2x=À×¢©ƒ
if ["%dgs010x%"] == ["q"] set encode2x=Àƒ×©¢
if ["%dgs010x%"] == ["r"] set encode2x=Àƒ×¢©
if ["%dgs010x%"] == ["s"] set encode2x=Àƒ©×¢
if ["%dgs010x%"] == ["t"] set encode2x=Àƒ©¢×
if ["%dgs010x%"] == ["u"] set encode2x=Àƒ¢©×
if ["%dgs010x%"] == ["v"] set encode2x=Àƒ¢×©
if ["%dgs010x%"] == ["w"] set encode2x=À©×ƒ¢
if ["%dgs010x%"] == ["x"] set encode2x=À©×¢ƒ
if ["%dgs010x%"] == ["y"] set encode2x=À©ƒ×¢
if ["%dgs010x%"] == ["z"] set encode2x=À©ƒ¢×
goto :eof

:encode3x
SET dgs110x=%~1
if ["%dgs110x%"] == ["0"] set encode3x=¥ãäð
if ["%dgs110x%"] == ["1"] set encode3x=¥ãÃð¤
if ["%dgs110x%"] == ["2"] set encode3x=¥ã¤Ãð
if ["%dgs110x%"] == ["3"] set encode3x=¥ã¤ðÃ
if ["%dgs110x%"] == ["4"] set encode3x=¥ãðä
if ["%dgs110x%"] == ["5"] set encode3x=¥ãð¤Ã
if ["%dgs110x%"] == ["6"] set encode3x=¥Ãã¤ð
if ["%dgs110x%"] == ["7"] set encode3x=¥Ããð¤
if ["%dgs110x%"] == ["8"] set encode3x=¥Ã¤ãð
if ["%dgs110x%"] == ["9"] set encode3x=¥Ã¤ðã
if ["%dgs110x%"] == ["A"] set encode3x=¥Ãðã¤
if ["%dgs110x%"] == ["B"] set encode3x=¥Ãð¤ã
if ["%dgs110x%"] == ["C"] set encode3x=¥¤ãÃð
if ["%dgs110x%"] == ["D"] set encode3x=¥¤ãðÃ
if ["%dgs110x%"] == ["E"] set encode3x=¥¤Ããð
if ["%dgs110x%"] == ["F"] set encode3x=¥¤Ãðã
if ["%dgs110x%"] == ["G"] set encode3x=¥¤ðãÃ
if ["%dgs110x%"] == ["H"] set encode3x=¥¤ðÃã
if ["%dgs110x%"] == ["I"] set encode3x=¥ðãä
if ["%dgs110x%"] == ["J"] set encode3x=¥ðã¤Ã
if ["%dgs110x%"] == ["K"] set encode3x=¥ðÃã¤
if ["%dgs110x%"] == ["L"] set encode3x=¥ðäã
if ["%dgs110x%"] == ["M"] set encode3x=¥ð¤ãÃ
if ["%dgs110x%"] == ["N"] set encode3x=¥ð¤Ãã
if ["%dgs110x%"] == ["Ñ"] set encode3x=ã¥Ã¤ð
if ["%dgs110x%"] == ["O"] set encode3x=ã¥Ãð¤
if ["%dgs110x%"] == ["P"] set encode3x=㥤Ãð
if ["%dgs110x%"] == ["Q"] set encode3x=㥤ðÃ
if ["%dgs110x%"] == ["R"] set encode3x=ã¥ðä
if ["%dgs110x%"] == ["S"] set encode3x=ã¥ð¤Ã
if ["%dgs110x%"] == ["T"] set encode3x=ãÃ¥¤ð
if ["%dgs110x%"] == ["U"] set encode3x=ãÃ¥ð¤
if ["%dgs110x%"] == ["V"] set encode3x=ãä¥ð
if ["%dgs110x%"] == ["W"] set encode3x=ãäð¥
if ["%dgs110x%"] == ["X"] set encode3x=ãÃð¥¤
if ["%dgs110x%"] == ["Y"] set encode3x=ãÃð¤¥
if ["%dgs110x%"] == ["Z"] set encode3x=㤥Ãð
if ["%dgs110x%"] == ["a"] set encode3x=㤥ðÃ
if ["%dgs110x%"] == ["b"] set encode3x=ã¤Ã¥ð
if ["%dgs110x%"] == ["c"] set encode3x=ã¤Ãð¥
if ["%dgs110x%"] == ["d"] set encode3x=ã¤ð¥Ã
if ["%dgs110x%"] == ["e"] set encode3x=ã¤ðÃ¥
if ["%dgs110x%"] == ["f"] set encode3x=ãð¥Ã¤
if ["%dgs110x%"] == ["g"] set encode3x=ãð¥¤Ã
if ["%dgs110x%"] == ["h"] set encode3x=ãðÃ¥¤
if ["%dgs110x%"] == ["i"] set encode3x=ãðä¥
if ["%dgs110x%"] == ["j"] set encode3x=ãð¤¥Ã
if ["%dgs110x%"] == ["k"] set encode3x=ãð¤Ã¥
if ["%dgs110x%"] == ["l"] set encode3x=Ã¥ã¤ð
if ["%dgs110x%"] == ["m"] set encode3x=Ã¥ãð¤
if ["%dgs110x%"] == ["n"] set encode3x=Ã¥¤ãð
if ["%dgs110x%"] == ["ñ"] set encode3x=Ã¥¤ðã
if ["%dgs110x%"] == ["o"] set encode3x=Ã¥ðã¤
if ["%dgs110x%"] == ["p"] set encode3x=Ã¥ð¤ã
if ["%dgs110x%"] == ["q"] set encode3x=Ã㥤ð
if ["%dgs110x%"] == ["r"] set encode3x=Ãã¥ð¤
if ["%dgs110x%"] == ["s"] set encode3x=Ã㤥ð
if ["%dgs110x%"] == ["t"] set encode3x=Ãã¤ð¥
if ["%dgs110x%"] == ["u"] set encode3x=Ããð¤¥
if ["%dgs110x%"] == ["v"] set encode3x=Ããð¥¤
if ["%dgs110x%"] == ["w"] set encode3x=ä¥ãð
if ["%dgs110x%"] == ["x"] set encode3x=ä¥ðã
if ["%dgs110x%"] == ["y"] set encode3x=äã¥ð
if ["%dgs110x%"] == ["z"] set encode3x=äãð¥
goto :eof

:encode4x
SET dgs001x=%~1
if ["%dgs001x%"] == ["0"] set encode4x=ÐÆÊÌÇ
if ["%dgs001x%"] == ["1"] set encode4x=ÐÆÊÇÌ
if ["%dgs001x%"] == ["2"] set encode4x=ÐÆÌÊÇ
if ["%dgs001x%"] == ["3"] set encode4x=ÐÆÌÇÊ
if ["%dgs001x%"] == ["4"] set encode4x=ÐÆÇÊÌ
if ["%dgs001x%"] == ["5"] set encode4x=ÐÆÇÌÊ
if ["%dgs001x%"] == ["6"] set encode4x=ÐÊÆÌÇ
if ["%dgs001x%"] == ["7"] set encode4x=ÐÊÆÇÌ
if ["%dgs001x%"] == ["8"] set encode4x=ÐÊÌÆÇ
if ["%dgs001x%"] == ["9"] set encode4x=ÐÊÌÇÆ
if ["%dgs001x%"] == ["A"] set encode4x=ÐÊÇÆÌ
if ["%dgs001x%"] == ["B"] set encode4x=ÐÊÇÌÆ
if ["%dgs001x%"] == ["C"] set encode4x=ÐÌÆÊÇ
if ["%dgs001x%"] == ["D"] set encode4x=ÐÌÆÇÊ
if ["%dgs001x%"] == ["E"] set encode4x=ÐÌÊÆÇ
if ["%dgs001x%"] == ["F"] set encode4x=ÐÌÊÇÆ
if ["%dgs001x%"] == ["G"] set encode4x=ÐÌÇÆÊ
if ["%dgs001x%"] == ["H"] set encode4x=ÐÌÇÊÆ
if ["%dgs001x%"] == ["I"] set encode4x=ÐÇÆÊÌ
if ["%dgs001x%"] == ["J"] set encode4x=ÐÇÆÌÊ
if ["%dgs001x%"] == ["K"] set encode4x=ÐÇÊÆÌ
if ["%dgs001x%"] == ["L"] set encode4x=ÐÇÊÌÆ
if ["%dgs001x%"] == ["M"] set encode4x=ÐÇÌÆÊ
if ["%dgs001x%"] == ["N"] set encode4x=ÐÇÌÊÆ
if ["%dgs001x%"] == ["Ñ"] set encode4x=ÆÐÊÌÇ
if ["%dgs001x%"] == ["O"] set encode4x=ÆÐÊÇÌ
if ["%dgs001x%"] == ["P"] set encode4x=ÆÐÌÊÇ
if ["%dgs001x%"] == ["Q"] set encode4x=ÆÐÌÇÊ
if ["%dgs001x%"] == ["R"] set encode4x=ÆÐÇÊÌ
if ["%dgs001x%"] == ["S"] set encode4x=ÆÐÇÌÊ
if ["%dgs001x%"] == ["T"] set encode4x=ÆÊÐÌÇ
if ["%dgs001x%"] == ["U"] set encode4x=ÆÊÐÇÌ
if ["%dgs001x%"] == ["V"] set encode4x=ÆÊÌÐÇ
if ["%dgs001x%"] == ["W"] set encode4x=ÆÊÌÇÐ
if ["%dgs001x%"] == ["X"] set encode4x=ÆÊÇÐÌ
if ["%dgs001x%"] == ["Y"] set encode4x=ÆÊÇÌÐ
if ["%dgs001x%"] == ["Z"] set encode4x=ÆÌÐÊÇ
if ["%dgs001x%"] == ["a"] set encode4x=ÆÌÐÇÊ
if ["%dgs001x%"] == ["b"] set encode4x=ÆÌÊÐÇ
if ["%dgs001x%"] == ["c"] set encode4x=ÆÌÊÇÐ
if ["%dgs001x%"] == ["d"] set encode4x=ÆÌÇÐÊ
if ["%dgs001x%"] == ["e"] set encode4x=ÆÌÇÊÐ
if ["%dgs001x%"] == ["f"] set encode4x=ÆÇÐÊÌ
if ["%dgs001x%"] == ["g"] set encode4x=ÆÇÐÌÊ
if ["%dgs001x%"] == ["h"] set encode4x=ÆÇÊÐÌ
if ["%dgs001x%"] == ["i"] set encode4x=ÆÇÊÌÐ
if ["%dgs001x%"] == ["j"] set encode4x=ÆÇÌÐÊ
if ["%dgs001x%"] == ["k"] set encode4x=ÆÇÌÊÐ
if ["%dgs001x%"] == ["l"] set encode4x=ÊÐÆÌÇ
if ["%dgs001x%"] == ["m"] set encode4x=ÊÐÆÇÌ
if ["%dgs001x%"] == ["n"] set encode4x=ÊÐÌÆÇ
if ["%dgs001x%"] == ["ñ"] set encode4x=ÊÐÌÇÆ
if ["%dgs001x%"] == ["o"] set encode4x=ÊÐÇÆÌ
if ["%dgs001x%"] == ["p"] set encode4x=ÊÐÇÌÆ
if ["%dgs001x%"] == ["q"] set encode4x=ÊÆÐÌÇ
if ["%dgs001x%"] == ["r"] set encode4x=ÊÆÐÇÌ
if ["%dgs001x%"] == ["s"] set encode4x=ÊÆÌÐÇ
if ["%dgs001x%"] == ["t"] set encode4x=ÊÆÌÇÐ
if ["%dgs001x%"] == ["u"] set encode4x=ÊÆÇÌÐ
if ["%dgs001x%"] == ["v"] set encode4x=ÊÆÇÐÌ
if ["%dgs001x%"] == ["w"] set encode4x=ÊÌÐÆÇ
if ["%dgs001x%"] == ["x"] set encode4x=ÊÌÐÇÆ
if ["%dgs001x%"] == ["y"] set encode4x=ÊÌÆÐÇ
if ["%dgs001x%"] == ["z"] set encode4x=ÊÌÆÇÐ
goto :eof

:encode5x
SET dgs101x=%~1
if ["%dgs101x%"] == ["0"] set encode5x=çø¬È§
if ["%dgs101x%"] == ["1"] set encode5x=çø¬§È
if ["%dgs101x%"] == ["2"] set encode5x=çøȬ§
if ["%dgs101x%"] == ["3"] set encode5x=çøȧ¬
if ["%dgs101x%"] == ["4"] set encode5x=çø§¬È
if ["%dgs101x%"] == ["5"] set encode5x=çø§È¬
if ["%dgs101x%"] == ["6"] set encode5x=ç¬øȧ
if ["%dgs101x%"] == ["7"] set encode5x=ç¬ø§È
if ["%dgs101x%"] == ["8"] set encode5x=ç¬Èø§
if ["%dgs101x%"] == ["9"] set encode5x=ç¬È§ø
if ["%dgs101x%"] == ["A"] set encode5x=笧øÈ
if ["%dgs101x%"] == ["B"] set encode5x=笧Èø
if ["%dgs101x%"] == ["C"] set encode5x=çÈø¬§
if ["%dgs101x%"] == ["D"] set encode5x=çÈø§¬
if ["%dgs101x%"] == ["E"] set encode5x=çȬø§
if ["%dgs101x%"] == ["F"] set encode5x=çȬ§ø
if ["%dgs101x%"] == ["G"] set encode5x=çȧø¬
if ["%dgs101x%"] == ["H"] set encode5x=çȧ¬ø
if ["%dgs101x%"] == ["I"] set encode5x=ç§ø¬È
if ["%dgs101x%"] == ["J"] set encode5x=ç§øȬ
if ["%dgs101x%"] == ["K"] set encode5x=秬øÈ
if ["%dgs101x%"] == ["L"] set encode5x=秬Èø
if ["%dgs101x%"] == ["M"] set encode5x=ç§Èø¬
if ["%dgs101x%"] == ["N"] set encode5x=ç§È¬ø
if ["%dgs101x%"] == ["Ñ"] set encode5x=øç¬È§
if ["%dgs101x%"] == ["O"] set encode5x=ø笧È
if ["%dgs101x%"] == ["P"] set encode5x=øçȬ§
if ["%dgs101x%"] == ["Q"] set encode5x=øçȧ¬
if ["%dgs101x%"] == ["R"] set encode5x=ø秬È
if ["%dgs101x%"] == ["S"] set encode5x=øç§È¬
if ["%dgs101x%"] == ["T"] set encode5x=ø¬çȧ
if ["%dgs101x%"] == ["U"] set encode5x=ø¬ç§È
if ["%dgs101x%"] == ["V"] set encode5x=ø¬Èç§
if ["%dgs101x%"] == ["W"] set encode5x=ø¬È§ç
if ["%dgs101x%"] == ["X"] set encode5x=ø¬§çÈ
if ["%dgs101x%"] == ["Y"] set encode5x=ø¬§Èç
if ["%dgs101x%"] == ["Z"] set encode5x=øÈ笧
if ["%dgs101x%"] == ["a"] set encode5x=øÈ秬
if ["%dgs101x%"] == ["b"] set encode5x=øȬç§
if ["%dgs101x%"] == ["c"] set encode5x=øȬ§ç
if ["%dgs101x%"] == ["d"] set encode5x=øȧç¬
if ["%dgs101x%"] == ["e"] set encode5x=øȧ¬ç
if ["%dgs101x%"] == ["f"] set encode5x=ø§ç¬È
if ["%dgs101x%"] == ["g"] set encode5x=ø§çȬ
if ["%dgs101x%"] == ["h"] set encode5x=ø§¬çÈ
if ["%dgs101x%"] == ["i"] set encode5x=ø§¬Èç
if ["%dgs101x%"] == ["j"] set encode5x=ø§Èç¬
if ["%dgs101x%"] == ["k"] set encode5x=ø§È¬ç
if ["%dgs101x%"] == ["l"] set encode5x=¬çøȧ
if ["%dgs101x%"] == ["m"] set encode5x=¬çø§È
if ["%dgs101x%"] == ["n"] set encode5x=鿤
if ["%dgs101x%"] == ["ñ"] set encode5x=¬çȧø
if ["%dgs101x%"] == ["o"] set encode5x=¬ç§øÈ
if ["%dgs101x%"] == ["p"] set encode5x=¬ç§Èø
if ["%dgs101x%"] == ["q"] set encode5x=¬øçȧ
if ["%dgs101x%"] == ["r"] set encode5x=¬øç§È
if ["%dgs101x%"] == ["s"] set encode5x=¿鍤
if ["%dgs101x%"] == ["t"] set encode5x=¿餍
if ["%dgs101x%"] == ["u"] set encode5x=¬ø§Èç
if ["%dgs101x%"] == ["v"] set encode5x=¬ø§çÈ
if ["%dgs101x%"] == ["w"] set encode5x=¬Èçø§
if ["%dgs101x%"] == ["x"] set encode5x=¬Èç§ø
if ["%dgs101x%"] == ["y"] set encode5x=¬Èøç§
if ["%dgs101x%"] == ["z"] set encode5x=¬Èø§ç
goto :eof

:encode6x
SET dgs011x=%~1

if ["%dgs011x%"] == ["0"] set encode6x=abcde
if ["%dgs011x%"] == ["1"] set encode6x=abced
if ["%dgs011x%"] == ["2"] set encode6x=abdce
if ["%dgs011x%"] == ["3"] set encode6x=abdec
if ["%dgs011x%"] == ["4"] set encode6x=abecd
if ["%dgs011x%"] == ["5"] set encode6x=abedc
if ["%dgs011x%"] == ["6"] set encode6x=acbde
if ["%dgs011x%"] == ["7"] set encode6x=acbed
if ["%dgs011x%"] == ["8"] set encode6x=acdbe
if ["%dgs011x%"] == ["9"] set encode6x=acdeb
if ["%dgs011x%"] == ["A"] set encode6x=acebd
if ["%dgs011x%"] == ["B"] set encode6x=acedb
if ["%dgs011x%"] == ["C"] set encode6x=adbce
if ["%dgs011x%"] == ["D"] set encode6x=adbec
if ["%dgs011x%"] == ["E"] set encode6x=adcbe
if ["%dgs011x%"] == ["F"] set encode6x=adceb
if ["%dgs011x%"] == ["G"] set encode6x=adebc
if ["%dgs011x%"] == ["H"] set encode6x=adecb
if ["%dgs011x%"] == ["I"] set encode6x=aebcd
if ["%dgs011x%"] == ["J"] set encode6x=aebdc
if ["%dgs011x%"] == ["K"] set encode6x=aecbd
if ["%dgs011x%"] == ["L"] set encode6x=aecdb
if ["%dgs011x%"] == ["M"] set encode6x=aedcb
if ["%dgs011x%"] == ["N"] set encode6x=aedbc
if ["%dgs011x%"] == ["Ñ"] set encode6x=bcdea
if ["%dgs011x%"] == ["O"] set encode6x=bcdae
if ["%dgs011x%"] == ["P"] set encode6x=bceda
if ["%dgs011x%"] == ["Q"] set encode6x=bcead
if ["%dgs011x%"] == ["R"] set encode6x=bcade
if ["%dgs011x%"] == ["S"] set encode6x=bcaed
if ["%dgs011x%"] == ["T"] set encode6x=bdcea
if ["%dgs011x%"] == ["U"] set encode6x=bdcae
if ["%dgs011x%"] == ["V"] set encode6x=bdeca
if ["%dgs011x%"] == ["W"] set encode6x=bdeac
if ["%dgs011x%"] == ["X"] set encode6x=bdaec
if ["%dgs011x%"] == ["Y"] set encode6x=bdace
if ["%dgs011x%"] == ["Z"] set encode6x=becda
if ["%dgs011x%"] == ["a"] set encode6x=becad
if ["%dgs011x%"] == ["b"] set encode6x=bedca
if ["%dgs011x%"] == ["c"] set encode6x=bedac
if ["%dgs011x%"] == ["d"] set encode6x=beadc
if ["%dgs011x%"] == ["e"] set encode6x=beacd
if ["%dgs011x%"] == ["f"] set encode6x=bacde
if ["%dgs011x%"] == ["g"] set encode6x=baced
if ["%dgs011x%"] == ["h"] set encode6x=badce
if ["%dgs011x%"] == ["i"] set encode6x=badec
if ["%dgs011x%"] == ["j"] set encode6x=baecd
if ["%dgs011x%"] == ["k"] set encode6x=baedc
if ["%dgs011x%"] == ["l"] set encode6x=cdeab
if ["%dgs011x%"] == ["m"] set encode6x=cdeba
if ["%dgs011x%"] == ["n"] set encode6x=cdaeb
if ["%dgs011x%"] == ["ñ"] set encode6x=cdabe
if ["%dgs011x%"] == ["o"] set encode6x=cdbea
if ["%dgs011x%"] == ["p"] set encode6x=cdbae
if ["%dgs011x%"] == ["q"] set encode6x=cedab
if ["%dgs011x%"] == ["r"] set encode6x=cedba
if ["%dgs011x%"] == ["s"] set encode6x=ceabd
if ["%dgs011x%"] == ["t"] set encode6x=ceadb
if ["%dgs011x%"] == ["u"] set encode6x=cebda
if ["%dgs011x%"] == ["v"] set encode6x=cebad
if ["%dgs011x%"] == ["w"] set encode6x=cabde
if ["%dgs011x%"] == ["x"] set encode6x=cabed
if ["%dgs011x%"] == ["y"] set encode6x=cadbe
if ["%dgs011x%"] == ["z"] set encode6x=cadeb

goto :eof

:encode7x
SET dgs111x=%~1

if ["%dgs111x%"] == ["0"] set encode7x=fghij
if ["%dgs111x%"] == ["1"] set encode7x=fghji
if ["%dgs111x%"] == ["2"] set encode7x=fgihj
if ["%dgs111x%"] == ["3"] set encode7x=fgijh
if ["%dgs111x%"] == ["4"] set encode7x=fgjhi
if ["%dgs111x%"] == ["5"] set encode7x=fgjih
if ["%dgs111x%"] == ["6"] set encode7x=fhgij
if ["%dgs111x%"] == ["7"] set encode7x=fhgji
if ["%dgs111x%"] == ["8"] set encode7x=fhigj
if ["%dgs111x%"] == ["9"] set encode7x=fhijg
if ["%dgs111x%"] == ["A"] set encode7x=fhjgi
if ["%dgs111x%"] == ["B"] set encode7x=fhjig
if ["%dgs111x%"] == ["C"] set encode7x=fighj
if ["%dgs111x%"] == ["D"] set encode7x=figjh
if ["%dgs111x%"] == ["E"] set encode7x=fihgj
if ["%dgs111x%"] == ["F"] set encode7x=fihjg
if ["%dgs111x%"] == ["G"] set encode7x=fijgh
if ["%dgs111x%"] == ["H"] set encode7x=fijhg
if ["%dgs111x%"] == ["I"] set encode7x=fjghi
if ["%dgs111x%"] == ["J"] set encode7x=fjgih
if ["%dgs111x%"] == ["K"] set encode7x=fjhgi
if ["%dgs111x%"] == ["L"] set encode7x=fjhig
if ["%dgs111x%"] == ["M"] set encode7x=fjihg
if ["%dgs111x%"] == ["N"] set encode7x=fjigh
if ["%dgs111x%"] == ["Ñ"] set encode7x=ghijf
if ["%dgs111x%"] == ["O"] set encode7x=ghifj
if ["%dgs111x%"] == ["P"] set encode7x=ghjif
if ["%dgs111x%"] == ["Q"] set encode7x=ghjfi
if ["%dgs111x%"] == ["R"] set encode7x=ghfij
if ["%dgs111x%"] == ["S"] set encode7x=ghfji
if ["%dgs111x%"] == ["T"] set encode7x=gihjf
if ["%dgs111x%"] == ["U"] set encode7x=gihfj
if ["%dgs111x%"] == ["V"] set encode7x=gijhf
if ["%dgs111x%"] == ["W"] set encode7x=gijfh
if ["%dgs111x%"] == ["X"] set encode7x=gifjh
if ["%dgs111x%"] == ["Y"] set encode7x=gifhj
if ["%dgs111x%"] == ["Z"] set encode7x=gjhif
if ["%dgs111x%"] == ["a"] set encode7x=gjhfi
if ["%dgs111x%"] == ["b"] set encode7x=gjihf
if ["%dgs111x%"] == ["c"] set encode7x=gjifh
if ["%dgs111x%"] == ["d"] set encode7x=gjfih
if ["%dgs111x%"] == ["e"] set encode7x=gjfhi
if ["%dgs111x%"] == ["f"] set encode7x=gfhij
if ["%dgs111x%"] == ["g"] set encode7x=gfhji
if ["%dgs111x%"] == ["h"] set encode7x=gfihj
if ["%dgs111x%"] == ["i"] set encode7x=gfijh
if ["%dgs111x%"] == ["j"] set encode7x=gfjhi
if ["%dgs111x%"] == ["k"] set encode7x=gfjih
if ["%dgs111x%"] == ["l"] set encode7x=hijfg
if ["%dgs111x%"] == ["m"] set encode7x=hijgf
if ["%dgs111x%"] == ["n"] set encode7x=hifjg
if ["%dgs111x%"] == ["ñ"] set encode7x=hifgj
if ["%dgs111x%"] == ["o"] set encode7x=higjf
if ["%dgs111x%"] == ["p"] set encode7x=higfj
if ["%dgs111x%"] == ["q"] set encode7x=hjifg
if ["%dgs111x%"] == ["r"] set encode7x=hjigf
if ["%dgs111x%"] == ["s"] set encode7x=hjfgi
if ["%dgs111x%"] == ["t"] set encode7x=hjfig
if ["%dgs111x%"] == ["u"] set encode7x=hjgif
if ["%dgs111x%"] == ["v"] set encode7x=hjgfi
if ["%dgs111x%"] == ["w"] set encode7x=hfgij
if ["%dgs111x%"] == ["x"] set encode7x=hfgji
if ["%dgs111x%"] == ["y"] set encode7x=hfigj
if ["%dgs111x%"] == ["z"] set encode7x=hfijg


goto :eof

:encode8x
SET dgs0001x=%~1

if ["%dgs0001x%"] == ["0"] set encode8x=klmno
if ["%dgs0001x%"] == ["1"] set encode8x=klmon
if ["%dgs0001x%"] == ["2"] set encode8x=klnmo
if ["%dgs0001x%"] == ["3"] set encode8x=klnom
if ["%dgs0001x%"] == ["4"] set encode8x=klomn
if ["%dgs0001x%"] == ["5"] set encode8x=klonm
if ["%dgs0001x%"] == ["6"] set encode8x=kmlno
if ["%dgs0001x%"] == ["7"] set encode8x=kmlon
if ["%dgs0001x%"] == ["8"] set encode8x=kmnlo
if ["%dgs0001x%"] == ["9"] set encode8x=kmnol
if ["%dgs0001x%"] == ["A"] set encode8x=kmoln
if ["%dgs0001x%"] == ["B"] set encode8x=kmonl
if ["%dgs0001x%"] == ["C"] set encode8x=knlmo
if ["%dgs0001x%"] == ["D"] set encode8x=knlom
if ["%dgs0001x%"] == ["E"] set encode8x=knmlo
if ["%dgs0001x%"] == ["F"] set encode8x=knmol
if ["%dgs0001x%"] == ["G"] set encode8x=knolm
if ["%dgs0001x%"] == ["H"] set encode8x=knoml
if ["%dgs0001x%"] == ["I"] set encode8x=kolmn
if ["%dgs0001x%"] == ["J"] set encode8x=kolnm
if ["%dgs0001x%"] == ["K"] set encode8x=komln
if ["%dgs0001x%"] == ["L"] set encode8x=komnl
if ["%dgs0001x%"] == ["M"] set encode8x=konml
if ["%dgs0001x%"] == ["N"] set encode8x=konlm
if ["%dgs0001x%"] == ["Ñ"] set encode8x=lmnok
if ["%dgs0001x%"] == ["O"] set encode8x=lmnko
if ["%dgs0001x%"] == ["P"] set encode8x=lmonk
if ["%dgs0001x%"] == ["Q"] set encode8x=lmokn
if ["%dgs0001x%"] == ["R"] set encode8x=lmkno
if ["%dgs0001x%"] == ["S"] set encode8x=lmkon
if ["%dgs0001x%"] == ["T"] set encode8x=lnmok
if ["%dgs0001x%"] == ["U"] set encode8x=lnmko
if ["%dgs0001x%"] == ["V"] set encode8x=lnomk
if ["%dgs0001x%"] == ["W"] set encode8x=lnokm
if ["%dgs0001x%"] == ["X"] set encode8x=lnkom
if ["%dgs0001x%"] == ["Y"] set encode8x=lnkmo
if ["%dgs0001x%"] == ["Z"] set encode8x=lomnk
if ["%dgs0001x%"] == ["a"] set encode8x=lomkn
if ["%dgs0001x%"] == ["b"] set encode8x=lonmk
if ["%dgs0001x%"] == ["c"] set encode8x=lonkm
if ["%dgs0001x%"] == ["d"] set encode8x=loknm
if ["%dgs0001x%"] == ["e"] set encode8x=lokmn
if ["%dgs0001x%"] == ["f"] set encode8x=lkmno
if ["%dgs0001x%"] == ["g"] set encode8x=lkmon
if ["%dgs0001x%"] == ["h"] set encode8x=lknmo
if ["%dgs0001x%"] == ["i"] set encode8x=lknom
if ["%dgs0001x%"] == ["j"] set encode8x=lkomn
if ["%dgs0001x%"] == ["k"] set encode8x=lkonm
if ["%dgs0001x%"] == ["l"] set encode8x=mnokl
if ["%dgs0001x%"] == ["m"] set encode8x=mnolk
if ["%dgs0001x%"] == ["n"] set encode8x=mnkol
if ["%dgs0001x%"] == ["ñ"] set encode8x=mnklo
if ["%dgs0001x%"] == ["o"] set encode8x=mnlok
if ["%dgs0001x%"] == ["p"] set encode8x=mnlko
if ["%dgs0001x%"] == ["q"] set encode8x=monkl
if ["%dgs0001x%"] == ["r"] set encode8x=monlk
if ["%dgs0001x%"] == ["s"] set encode8x=mokln
if ["%dgs0001x%"] == ["t"] set encode8x=moknl
if ["%dgs0001x%"] == ["u"] set encode8x=molnk
if ["%dgs0001x%"] == ["v"] set encode8x=molkn
if ["%dgs0001x%"] == ["w"] set encode8x=mklno
if ["%dgs0001x%"] == ["x"] set encode8x=mklon
if ["%dgs0001x%"] == ["y"] set encode8x=mknlo
if ["%dgs0001x%"] == ["z"] set encode8x=mknol

goto :eof
  

@ECHO OFF
COLOR 0B
title Desencriptador de textos V3.0 [*Hack_zer0*]

mode con cols=80 lines=30 
REM æôØ£׃À©¢¥ãäðÐÆÊÌÇçø¬È§êîÅ
:INI
CLS
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo                   Bienvenido al desencriptador Zer0 (256 bits)
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo.
echo     Esta aplicacion te ayudara a desencriptar tus archivos de texto que hayas
echo  encriptado con EL "Encriptador de textos V3.0 Zer0 "  
echo.
echo     Para crear una contraseña segura alterna mayusculas y minusculas de esa
echo  manera sera mas dificil desencriptar tu texto ya que tendra que coincidir hata
echo  el mas minimo detalle.
echo.
echo  NOTA! Para desencriptar el archivo la contraseña debe ser identica ya que este
echo  encriptador distingue mayusculas de minsculas
echo.
echo.
echo. 
SET /p file="Archivo de texto a desencriptar >> "
setlocal enabledelayedexpansion
if not exist %file%.lok (
	cls
	echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
	echo                   Bienvenido al desencriptador Zer0 [256 bits]
	echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
	echo.
	echo El archivo especificado no existe o no es un archivo encriptado
	echo.
	echo Nota: El archivo debe poseer extencion .lok
	ECHO.
	echo Pulsa una tecla para regresar al menu
	pause > nul
	goto ini
)
:fil
cls
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo                             Escribe tu contrase¤a
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo.
echo  NOTA: Solo se acepatan letras y numeros, carateres diferentes a estos 
echo  ocasionarian error al codificar el archivo
echo.
echo.
set /p look="Escribe tu contrase¤a >> "
set limit=%look:~7,1%
if defined limit (
	goto encript
) else (
	cls
	echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
	echo                   Bienvenido al desencriptador Zer0 (256 bits)
	echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
	echo.
	echo La contrase¤a es muy corta
	echo.
	echo.
	echo Pulsa una tecla para regresar al menu
	pause > nul
	goto fil
)





:encript

echo Iniciando decodificaion de archivos . . . 
title Encriptador de textos V3.0 [*Hack_zer0*]..adquiriendo criptodiccionarios. . .!
@ECHO ON
:dig1

echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:0//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig1x=%look:~0,1%
call :encode1x "%dig1x%"
set dyxio=%encode1x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:1//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig2x=%look:~1,1%
call :encode2x "%dig2x%"
set dyxio=%dyxio%%encode2x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:2//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig3x=%look:~2,1%
call :encode3x "%dig3x%"
set dyxio=%dyxio%%encode3x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:3//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig4x=%look:~3,1%
call :encode4x "%dig4x%"
set dyxio=%dyxio%%encode4x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:4//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig5x=%look:~4,1%
call :encode5x "%dig5x%"
set dyxio=%dyxio%%encode5x%êî
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:5//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig6x=%look:~5,1%
call :encode6x "%dig6x%"
set dyxio=%dyxio%%encode6x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:6//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig7x=%look:~6,1%
call :encode7x "%dig7x%"
set dyxio=%dyxio%%encode7x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:7//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo on
set dig8x=%look:~7,1%
call :encode8x "%dig8x%"
set dyxio=%dyxio%%encode8x%
echo off
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo   Adquiriendo cripto-diccionario:     rogreso:8//8       [Hack_zer0]
echo.
echo  Cripto diccionario: %dyxio%
echo off
set dyxio=%encode6x%%encode7x%%encode1x%%encode2x%%encode3x%%encode4x%%encode5x%êî
echo off
if %dyxio%==%encode6x%%encode7x%%encode1x%%encode2x%%encode3x%%encode4x%%encode5x%êî (
	goto:cifrado 
)
cls
echo a ocurrido un error
echo.
echo %dyxio%
echo.
echo %encode6x%%encode7x%%encode1x%%encode2x%%encode3x%%encode4x%%encode5x%êî
pause
exit

:cifrado
title Desencriptador de textos V3.0 [*Hack_zer0*] Obteniendo variables . . .!
setlocal enabledelayedexpansion
set clave=%dyxio%
set lin=0
set lina=0
for /f "tokens=*" %%k in (%file%.lok) do set /a lin+=1
for /f "tokens=*" %%z in (%file%.lok) do call :lenn "%%z"
title Encriptador de textos V3.0 [*Hack_zer0*]
@ECHO OFF
cls
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo                       Desencriptador Zer0 (256 bits)
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo.
echo proceso finaLIZADO !!
echo.
PAUSE > NUL
GOTO END




:Nucleo_desencriptacion
rem kernel 2.0

:lenn
title Desencriptador de textos V3.0 [*Hack_zer0*] Desencriptando texto . . .!
set cont=0
set line=%~1
set /a lina+=1
if not defined line echo. >>%file%_lok.txt & goto :Eof
echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
echo     Desencriptando texto:       Progreso: %lina%/%lin%                     [Hack_zer0]
echo.
echo %line%
for %%h in (0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,ñ,o,p,q,r,s,t,u,v,w,x,y,z) do call :loop "%%h"
echo %line% >>%file%_lok.txt
goto :Eof

:loop
set letra=%~1
call set bit=%%clave:~%cont%,1%%
call set line=%%line:%bit%=%letra%%%
echo %line%
set /a cont+=1
goto :eof




:END
EXIT


:encode1x
SET dgs100x=%~1
if ["%dgs100x%"] == ["0"] set encode1x=æôØ£
if ["%dgs100x%"] == ["1"] set encode1x=æôØ£Â
if ["%dgs100x%"] == ["2"] set encode1x=æôÂØ£
if ["%dgs100x%"] == ["3"] set encode1x=æô£Ø
if ["%dgs100x%"] == ["4"] set encode1x=æô£ØÂ
if ["%dgs100x%"] == ["5"] set encode1x=æô£ÂØ
if ["%dgs100x%"] == ["6"] set encode1x=æØô£
if ["%dgs100x%"] == ["7"] set encode1x=æØô£Â
if ["%dgs100x%"] == ["8"] set encode1x=æØÂô£
if ["%dgs100x%"] == ["9"] set encode1x=æØ£ô
if ["%dgs100x%"] == ["A"] set encode1x=æØ£ôÂ
if ["%dgs100x%"] == ["B"] set encode1x=æØ£Âô
if ["%dgs100x%"] == ["C"] set encode1x=æÂôØ£
if ["%dgs100x%"] == ["D"] set encode1x=æÂô£Ø
if ["%dgs100x%"] == ["E"] set encode1x=æÂØô£
if ["%dgs100x%"] == ["F"] set encode1x=æÂØ£ô
if ["%dgs100x%"] == ["G"] set encode1x=æ£ôØ
if ["%dgs100x%"] == ["H"] set encode1x=æ£Øô
if ["%dgs100x%"] == ["I"] set encode1x=æ£ôØÂ
if ["%dgs100x%"] == ["J"] set encode1x=æ£ôÂØ
if ["%dgs100x%"] == ["K"] set encode1x=æ£ØôÂ
if ["%dgs100x%"] == ["L"] set encode1x=æ£ØÂô
if ["%dgs100x%"] == ["M"] set encode1x=æ£ÂôØ
if ["%dgs100x%"] == ["N"] set encode1x=æ£ÂØô
if ["%dgs100x%"] == ["Ñ"] set encode1x=ôæØ£
if ["%dgs100x%"] == ["O"] set encode1x=ôæØ£Â
if ["%dgs100x%"] == ["P"] set encode1x=ôæÂØ£
if ["%dgs100x%"] == ["Q"] set encode1x=ôæ£Ø
if ["%dgs100x%"] == ["R"] set encode1x=ôæ£ØÂ
if ["%dgs100x%"] == ["S"] set encode1x=ôæ£ÂØ
if ["%dgs100x%"] == ["T"] set encode1x=ôØæ£
if ["%dgs100x%"] == ["U"] set encode1x=ôØæ£Â
if ["%dgs100x%"] == ["V"] set encode1x=ôØÂæ£
if ["%dgs100x%"] == ["W"] set encode1x=ôØ£æ
if ["%dgs100x%"] == ["X"] set encode1x=ôØ£æÂ
if ["%dgs100x%"] == ["Y"] set encode1x=ôØ£Âæ
if ["%dgs100x%"] == ["Z"] set encode1x=ôÂæØ£
if ["%dgs100x%"] == ["a"] set encode1x=ôÂæ£Ø
if ["%dgs100x%"] == ["b"] set encode1x=ôÂØæ£
if ["%dgs100x%"] == ["c"] set encode1x=ôÂØ£æ
if ["%dgs100x%"] == ["d"] set encode1x=ô£æØ
if ["%dgs100x%"] == ["e"] set encode1x=ô£Øæ
if ["%dgs100x%"] == ["f"] set encode1x=ô£æØÂ
if ["%dgs100x%"] == ["g"] set encode1x=ô£æÂØ
if ["%dgs100x%"] == ["h"] set encode1x=ô£ØæÂ
if ["%dgs100x%"] == ["i"] set encode1x=ô£ØÂæ
if ["%dgs100x%"] == ["j"] set encode1x=ô£ÂæØ
if ["%dgs100x%"] == ["k"] set encode1x=ô£ÂØæ
if ["%dgs100x%"] == ["l"] set encode1x=Øæô£
if ["%dgs100x%"] == ["m"] set encode1x=Øæô£Â
if ["%dgs100x%"] == ["n"] set encode1x=ØæÂô£
if ["%dgs100x%"] == ["ñ"] set encode1x=Øæ£ô
if ["%dgs100x%"] == ["o"] set encode1x=Øæ£ôÂ
if ["%dgs100x%"] == ["p"] set encode1x=Øæ£Âô
if ["%dgs100x%"] == ["q"] set encode1x=Øôæ£
if ["%dgs100x%"] == ["r"] set encode1x=Øôæ£Â
if ["%dgs100x%"] == ["s"] set encode1x=ØôÂæ£
if ["%dgs100x%"] == ["t"] set encode1x=Øô£æ
if ["%dgs100x%"] == ["u"] set encode1x=Øô£Âæ
if ["%dgs100x%"] == ["v"] set encode1x=Øô£æÂ
if ["%dgs100x%"] == ["w"] set encode1x=ØÂæô£
if ["%dgs100x%"] == ["x"] set encode1x=ØÂæ£ô
if ["%dgs100x%"] == ["y"] set encode1x=ØÂôæ£
if ["%dgs100x%"] == ["z"] set encode1x=ØÂô£æ
goto :eof

:encode2x
SET dgs010x=%~1
if ["%dgs010x%"] == ["0"] set encode2x=׃À©¢
if ["%dgs010x%"] == ["1"] set encode2x=׃À¢©
if ["%dgs010x%"] == ["2"] set encode2x=׃©À¢
if ["%dgs010x%"] == ["3"] set encode2x=׃©¢À
if ["%dgs010x%"] == ["4"] set encode2x=׃¢À©
if ["%dgs010x%"] == ["5"] set encode2x=׃¢©À
if ["%dgs010x%"] == ["6"] set encode2x=×Àƒ©¢
if ["%dgs010x%"] == ["7"] set encode2x=×Àƒ¢©
if ["%dgs010x%"] == ["8"] set encode2x=×À©ƒ¢
if ["%dgs010x%"] == ["9"] set encode2x=×À©¢ƒ
if ["%dgs010x%"] == ["A"] set encode2x=×À¢ƒ©
if ["%dgs010x%"] == ["B"] set encode2x=×À¢©ƒ
if ["%dgs010x%"] == ["C"] set encode2x=שƒÀ¢
if ["%dgs010x%"] == ["D"] set encode2x=שƒ¢À
if ["%dgs010x%"] == ["E"] set encode2x=שÀƒ¢
if ["%dgs010x%"] == ["F"] set encode2x=שÀ¢ƒ
if ["%dgs010x%"] == ["G"] set encode2x=ש¢ƒÀ
if ["%dgs010x%"] == ["H"] set encode2x=ש¢Àƒ
if ["%dgs010x%"] == ["I"] set encode2x=×¢ƒÀ©
if ["%dgs010x%"] == ["J"] set encode2x=×¢ƒ©À
if ["%dgs010x%"] == ["K"] set encode2x=×¢Àƒ©
if ["%dgs010x%"] == ["L"] set encode2x=×¢À©ƒ
if ["%dgs010x%"] == ["M"] set encode2x=×¢©ƒÀ
if ["%dgs010x%"] == ["N"] set encode2x=×¢©Àƒ
if ["%dgs010x%"] == ["Ñ"] set encode2x=ƒ×À©¢
if ["%dgs010x%"] == ["O"] set encode2x=ƒ×À¢©
if ["%dgs010x%"] == ["P"] set encode2x=ƒ×©À¢
if ["%dgs010x%"] == ["Q"] set encode2x=ƒ×©¢À
if ["%dgs010x%"] == ["R"] set encode2x=ƒ×¢À©
if ["%dgs010x%"] == ["S"] set encode2x=ƒ×¢©À
if ["%dgs010x%"] == ["T"] set encode2x=ƒÀש¢
if ["%dgs010x%"] == ["U"] set encode2x=ƒÀ×¢©
if ["%dgs010x%"] == ["V"] set encode2x=ƒÀ©×¢
if ["%dgs010x%"] == ["W"] set encode2x=ƒÀ©¢×
if ["%dgs010x%"] == ["X"] set encode2x=ƒÀ¢×©
if ["%dgs010x%"] == ["Y"] set encode2x=ƒÀ¢©×
if ["%dgs010x%"] == ["Z"] set encode2x=ƒ©×À¢
if ["%dgs010x%"] == ["a"] set encode2x=ƒ©×¢À
if ["%dgs010x%"] == ["b"] set encode2x=ƒ©À×¢
if ["%dgs010x%"] == ["c"] set encode2x=ƒ©À¢×
if ["%dgs010x%"] == ["d"] set encode2x=ƒ©¢×À
if ["%dgs010x%"] == ["e"] set encode2x=ƒ©¢À×
if ["%dgs010x%"] == ["f"] set encode2x=ƒ¢×À©
if ["%dgs010x%"] == ["g"] set encode2x=ƒ¢×©À
if ["%dgs010x%"] == ["h"] set encode2x=ƒ¢Àש
if ["%dgs010x%"] == ["i"] set encode2x=ƒ¢À©×
if ["%dgs010x%"] == ["j"] set encode2x=ƒ¢©×À
if ["%dgs010x%"] == ["k"] set encode2x=ƒ¢©À×
if ["%dgs010x%"] == ["l"] set encode2x=À׃©¢
if ["%dgs010x%"] == ["m"] set encode2x=À׃¢©
if ["%dgs010x%"] == ["n"] set encode2x=Àשƒ¢
if ["%dgs010x%"] == ["ñ"] set encode2x=Àש¢ƒ
if ["%dgs010x%"] == ["o"] set encode2x=À×¢ƒ©
if ["%dgs010x%"] == ["p"] set encode2x=À×¢©ƒ
if ["%dgs010x%"] == ["q"] set encode2x=Àƒ×©¢
if ["%dgs010x%"] == ["r"] set encode2x=Àƒ×¢©
if ["%dgs010x%"] == ["s"] set encode2x=Àƒ©×¢
if ["%dgs010x%"] == ["t"] set encode2x=Àƒ©¢×
if ["%dgs010x%"] == ["u"] set encode2x=Àƒ¢©×
if ["%dgs010x%"] == ["v"] set encode2x=Àƒ¢×©
if ["%dgs010x%"] == ["w"] set encode2x=À©×ƒ¢
if ["%dgs010x%"] == ["x"] set encode2x=À©×¢ƒ
if ["%dgs010x%"] == ["y"] set encode2x=À©ƒ×¢
if ["%dgs010x%"] == ["z"] set encode2x=À©ƒ¢×
goto :eof

:encode3x
SET dgs110x=%~1
if ["%dgs110x%"] == ["0"] set encode3x=¥ãäð
if ["%dgs110x%"] == ["1"] set encode3x=¥ãÃð¤
if ["%dgs110x%"] == ["2"] set encode3x=¥ã¤Ãð
if ["%dgs110x%"] == ["3"] set encode3x=¥ã¤ðÃ
if ["%dgs110x%"] == ["4"] set encode3x=¥ãðä
if ["%dgs110x%"] == ["5"] set encode3x=¥ãð¤Ã
if ["%dgs110x%"] == ["6"] set encode3x=¥Ãã¤ð
if ["%dgs110x%"] == ["7"] set encode3x=¥Ããð¤
if ["%dgs110x%"] == ["8"] set encode3x=¥Ã¤ãð
if ["%dgs110x%"] == ["9"] set encode3x=¥Ã¤ðã
if ["%dgs110x%"] == ["A"] set encode3x=¥Ãðã¤
if ["%dgs110x%"] == ["B"] set encode3x=¥Ãð¤ã
if ["%dgs110x%"] == ["C"] set encode3x=¥¤ãÃð
if ["%dgs110x%"] == ["D"] set encode3x=¥¤ãðÃ
if ["%dgs110x%"] == ["E"] set encode3x=¥¤Ããð
if ["%dgs110x%"] == ["F"] set encode3x=¥¤Ãðã
if ["%dgs110x%"] == ["G"] set encode3x=¥¤ðãÃ
if ["%dgs110x%"] == ["H"] set encode3x=¥¤ðÃã
if ["%dgs110x%"] == ["I"] set encode3x=¥ðãä
if ["%dgs110x%"] == ["J"] set encode3x=¥ðã¤Ã
if ["%dgs110x%"] == ["K"] set encode3x=¥ðÃã¤
if ["%dgs110x%"] == ["L"] set encode3x=¥ðäã
if ["%dgs110x%"] == ["M"] set encode3x=¥ð¤ãÃ
if ["%dgs110x%"] == ["N"] set encode3x=¥ð¤Ãã
if ["%dgs110x%"] == ["Ñ"] set encode3x=ã¥Ã¤ð
if ["%dgs110x%"] == ["O"] set encode3x=ã¥Ãð¤
if ["%dgs110x%"] == ["P"] set encode3x=㥤Ãð
if ["%dgs110x%"] == ["Q"] set encode3x=㥤ðÃ
if ["%dgs110x%"] == ["R"] set encode3x=ã¥ðä
if ["%dgs110x%"] == ["S"] set encode3x=ã¥ð¤Ã
if ["%dgs110x%"] == ["T"] set encode3x=ãÃ¥¤ð
if ["%dgs110x%"] == ["U"] set encode3x=ãÃ¥ð¤
if ["%dgs110x%"] == ["V"] set encode3x=ãä¥ð
if ["%dgs110x%"] == ["W"] set encode3x=ãäð¥
if ["%dgs110x%"] == ["X"] set encode3x=ãÃð¥¤
if ["%dgs110x%"] == ["Y"] set encode3x=ãÃð¤¥
if ["%dgs110x%"] == ["Z"] set encode3x=㤥Ãð
if ["%dgs110x%"] == ["a"] set encode3x=㤥ðÃ
if ["%dgs110x%"] == ["b"] set encode3x=ã¤Ã¥ð
if ["%dgs110x%"] == ["c"] set encode3x=ã¤Ãð¥
if ["%dgs110x%"] == ["d"] set encode3x=ã¤ð¥Ã
if ["%dgs110x%"] == ["e"] set encode3x=ã¤ðÃ¥
if ["%dgs110x%"] == ["f"] set encode3x=ãð¥Ã¤
if ["%dgs110x%"] == ["g"] set encode3x=ãð¥¤Ã
if ["%dgs110x%"] == ["h"] set encode3x=ãðÃ¥¤
if ["%dgs110x%"] == ["i"] set encode3x=ãðä¥
if ["%dgs110x%"] == ["j"] set encode3x=ãð¤¥Ã
if ["%dgs110x%"] == ["k"] set encode3x=ãð¤Ã¥
if ["%dgs110x%"] == ["l"] set encode3x=Ã¥ã¤ð
if ["%dgs110x%"] == ["m"] set encode3x=Ã¥ãð¤
if ["%dgs110x%"] == ["n"] set encode3x=Ã¥¤ãð
if ["%dgs110x%"] == ["ñ"] set encode3x=Ã¥¤ðã
if ["%dgs110x%"] == ["o"] set encode3x=Ã¥ðã¤
if ["%dgs110x%"] == ["p"] set encode3x=Ã¥ð¤ã
if ["%dgs110x%"] == ["q"] set encode3x=Ã㥤ð
if ["%dgs110x%"] == ["r"] set encode3x=Ãã¥ð¤
if ["%dgs110x%"] == ["s"] set encode3x=Ã㤥ð
if ["%dgs110x%"] == ["t"] set encode3x=Ãã¤ð¥
if ["%dgs110x%"] == ["u"] set encode3x=Ããð¤¥
if ["%dgs110x%"] == ["v"] set encode3x=Ããð¥¤
if ["%dgs110x%"] == ["w"] set encode3x=ä¥ãð
if ["%dgs110x%"] == ["x"] set encode3x=ä¥ðã
if ["%dgs110x%"] == ["y"] set encode3x=äã¥ð
if ["%dgs110x%"] == ["z"] set encode3x=äãð¥
goto :eof

:encode4x
SET dgs001x=%~1
if ["%dgs001x%"] == ["0"] set encode4x=ÐÆÊÌÇ
if ["%dgs001x%"] == ["1"] set encode4x=ÐÆÊÇÌ
if ["%dgs001x%"] == ["2"] set encode4x=ÐÆÌÊÇ
if ["%dgs001x%"] == ["3"] set encode4x=ÐÆÌÇÊ
if ["%dgs001x%"] == ["4"] set encode4x=ÐÆÇÊÌ
if ["%dgs001x%"] == ["5"] set encode4x=ÐÆÇÌÊ
if ["%dgs001x%"] == ["6"] set encode4x=ÐÊÆÌÇ
if ["%dgs001x%"] == ["7"] set encode4x=ÐÊÆÇÌ
if ["%dgs001x%"] == ["8"] set encode4x=ÐÊÌÆÇ
if ["%dgs001x%"] == ["9"] set encode4x=ÐÊÌÇÆ
if ["%dgs001x%"] == ["A"] set encode4x=ÐÊÇÆÌ
if ["%dgs001x%"] == ["B"] set encode4x=ÐÊÇÌÆ
if ["%dgs001x%"] == ["C"] set encode4x=ÐÌÆÊÇ
if ["%dgs001x%"] == ["D"] set encode4x=ÐÌÆÇÊ
if ["%dgs001x%"] == ["E"] set encode4x=ÐÌÊÆÇ
if ["%dgs001x%"] == ["F"] set encode4x=ÐÌÊÇÆ
if ["%dgs001x%"] == ["G"] set encode4x=ÐÌÇÆÊ
if ["%dgs001x%"] == ["H"] set encode4x=ÐÌÇÊÆ
if ["%dgs001x%"] == ["I"] set encode4x=ÐÇÆÊÌ
if ["%dgs001x%"] == ["J"] set encode4x=ÐÇÆÌÊ
if ["%dgs001x%"] == ["K"] set encode4x=ÐÇÊÆÌ
if ["%dgs001x%"] == ["L"] set encode4x=ÐÇÊÌÆ
if ["%dgs001x%"] == ["M"] set encode4x=ÐÇÌÆÊ
if ["%dgs001x%"] == ["N"] set encode4x=ÐÇÌÊÆ
if ["%dgs001x%"] == ["Ñ"] set encode4x=ÆÐÊÌÇ
if ["%dgs001x%"] == ["O"] set encode4x=ÆÐÊÇÌ
if ["%dgs001x%"] == ["P"] set encode4x=ÆÐÌÊÇ
if ["%dgs001x%"] == ["Q"] set encode4x=ÆÐÌÇÊ
if ["%dgs001x%"] == ["R"] set encode4x=ÆÐÇÊÌ
if ["%dgs001x%"] == ["S"] set encode4x=ÆÐÇÌÊ
if ["%dgs001x%"] == ["T"] set encode4x=ÆÊÐÌÇ
if ["%dgs001x%"] == ["U"] set encode4x=ÆÊÐÇÌ
if ["%dgs001x%"] == ["V"] set encode4x=ÆÊÌÐÇ
if ["%dgs001x%"] == ["W"] set encode4x=ÆÊÌÇÐ
if ["%dgs001x%"] == ["X"] set encode4x=ÆÊÇÐÌ
if ["%dgs001x%"] == ["Y"] set encode4x=ÆÊÇÌÐ
if ["%dgs001x%"] == ["Z"] set encode4x=ÆÌÐÊÇ
if ["%dgs001x%"] == ["a"] set encode4x=ÆÌÐÇÊ
if ["%dgs001x%"] == ["b"] set encode4x=ÆÌÊÐÇ
if ["%dgs001x%"] == ["c"] set encode4x=ÆÌÊÇÐ
if ["%dgs001x%"] == ["d"] set encode4x=ÆÌÇÐÊ
if ["%dgs001x%"] == ["e"] set encode4x=ÆÌÇÊÐ
if ["%dgs001x%"] == ["f"] set encode4x=ÆÇÐÊÌ
if ["%dgs001x%"] == ["g"] set encode4x=ÆÇÐÌÊ
if ["%dgs001x%"] == ["h"] set encode4x=ÆÇÊÐÌ
if ["%dgs001x%"] == ["i"] set encode4x=ÆÇÊÌÐ
if ["%dgs001x%"] == ["j"] set encode4x=ÆÇÌÐÊ
if ["%dgs001x%"] == ["k"] set encode4x=ÆÇÌÊÐ
if ["%dgs001x%"] == ["l"] set encode4x=ÊÐÆÌÇ
if ["%dgs001x%"] == ["m"] set encode4x=ÊÐÆÇÌ
if ["%dgs001x%"] == ["n"] set encode4x=ÊÐÌÆÇ
if ["%dgs001x%"] == ["ñ"] set encode4x=ÊÐÌÇÆ
if ["%dgs001x%"] == ["o"] set encode4x=ÊÐÇÆÌ
if ["%dgs001x%"] == ["p"] set encode4x=ÊÐÇÌÆ
if ["%dgs001x%"] == ["q"] set encode4x=ÊÆÐÌÇ
if ["%dgs001x%"] == ["r"] set encode4x=ÊÆÐÇÌ
if ["%dgs001x%"] == ["s"] set encode4x=ÊÆÌÐÇ
if ["%dgs001x%"] == ["t"] set encode4x=ÊÆÌÇÐ
if ["%dgs001x%"] == ["u"] set encode4x=ÊÆÇÌÐ
if ["%dgs001x%"] == ["v"] set encode4x=ÊÆÇÐÌ
if ["%dgs001x%"] == ["w"] set encode4x=ÊÌÐÆÇ
if ["%dgs001x%"] == ["x"] set encode4x=ÊÌÐÇÆ
if ["%dgs001x%"] == ["y"] set encode4x=ÊÌÆÐÇ
if ["%dgs001x%"] == ["z"] set encode4x=ÊÌÆÇÐ
goto :eof

:encode5x
SET dgs101x=%~1
if ["%dgs101x%"] == ["0"] set encode5x=çø¬È§
if ["%dgs101x%"] == ["1"] set encode5x=çø¬§È
if ["%dgs101x%"] == ["2"] set encode5x=çøȬ§
if ["%dgs101x%"] == ["3"] set encode5x=çøȧ¬
if ["%dgs101x%"] == ["4"] set encode5x=çø§¬È
if ["%dgs101x%"] == ["5"] set encode5x=çø§È¬
if ["%dgs101x%"] == ["6"] set encode5x=ç¬øȧ
if ["%dgs101x%"] == ["7"] set encode5x=ç¬ø§È
if ["%dgs101x%"] == ["8"] set encode5x=ç¬Èø§
if ["%dgs101x%"] == ["9"] set encode5x=ç¬È§ø
if ["%dgs101x%"] == ["A"] set encode5x=笧øÈ
if ["%dgs101x%"] == ["B"] set encode5x=笧Èø
if ["%dgs101x%"] == ["C"] set encode5x=çÈø¬§
if ["%dgs101x%"] == ["D"] set encode5x=çÈø§¬
if ["%dgs101x%"] == ["E"] set encode5x=çȬø§
if ["%dgs101x%"] == ["F"] set encode5x=çȬ§ø
if ["%dgs101x%"] == ["G"] set encode5x=çȧø¬
if ["%dgs101x%"] == ["H"] set encode5x=çȧ¬ø
if ["%dgs101x%"] == ["I"] set encode5x=ç§ø¬È
if ["%dgs101x%"] == ["J"] set encode5x=ç§øȬ
if ["%dgs101x%"] == ["K"] set encode5x=秬øÈ
if ["%dgs101x%"] == ["L"] set encode5x=秬Èø
if ["%dgs101x%"] == ["M"] set encode5x=ç§Èø¬
if ["%dgs101x%"] == ["N"] set encode5x=ç§È¬ø
if ["%dgs101x%"] == ["Ñ"] set encode5x=øç¬È§
if ["%dgs101x%"] == ["O"] set encode5x=ø笧È
if ["%dgs101x%"] == ["P"] set encode5x=øçȬ§
if ["%dgs101x%"] == ["Q"] set encode5x=øçȧ¬
if ["%dgs101x%"] == ["R"] set encode5x=ø秬È
if ["%dgs101x%"] == ["S"] set encode5x=øç§È¬
if ["%dgs101x%"] == ["T"] set encode5x=ø¬çȧ
if ["%dgs101x%"] == ["U"] set encode5x=ø¬ç§È
if ["%dgs101x%"] == ["V"] set encode5x=ø¬Èç§
if ["%dgs101x%"] == ["W"] set encode5x=ø¬È§ç
if ["%dgs101x%"] == ["X"] set encode5x=ø¬§çÈ
if ["%dgs101x%"] == ["Y"] set encode5x=ø¬§Èç
if ["%dgs101x%"] == ["Z"] set encode5x=øÈ笧
if ["%dgs101x%"] == ["a"] set encode5x=øÈ秬
if ["%dgs101x%"] == ["b"] set encode5x=øȬç§
if ["%dgs101x%"] == ["c"] set encode5x=øȬ§ç
if ["%dgs101x%"] == ["d"] set encode5x=øȧç¬
if ["%dgs101x%"] == ["e"] set encode5x=øȧ¬ç
if ["%dgs101x%"] == ["f"] set encode5x=ø§ç¬È
if ["%dgs101x%"] == ["g"] set encode5x=ø§çȬ
if ["%dgs101x%"] == ["h"] set encode5x=ø§¬çÈ
if ["%dgs101x%"] == ["i"] set encode5x=ø§¬Èç
if ["%dgs101x%"] == ["j"] set encode5x=ø§Èç¬
if ["%dgs101x%"] == ["k"] set encode5x=ø§È¬ç
if ["%dgs101x%"] == ["l"] set encode5x=¬çøȧ
if ["%dgs101x%"] == ["m"] set encode5x=¬çø§È
if ["%dgs101x%"] == ["n"] set encode5x=鿤
if ["%dgs101x%"] == ["ñ"] set encode5x=¬çȧø
if ["%dgs101x%"] == ["o"] set encode5x=¬ç§øÈ
if ["%dgs101x%"] == ["p"] set encode5x=¬ç§Èø
if ["%dgs101x%"] == ["q"] set encode5x=¬øçȧ
if ["%dgs101x%"] == ["r"] set encode5x=¬øç§È
if ["%dgs101x%"] == ["s"] set encode5x=¿鍤
if ["%dgs101x%"] == ["t"] set encode5x=¿餍
if ["%dgs101x%"] == ["u"] set encode5x=¬ø§Èç
if ["%dgs101x%"] == ["v"] set encode5x=¬ø§çÈ
if ["%dgs101x%"] == ["w"] set encode5x=¬Èçø§
if ["%dgs101x%"] == ["x"] set encode5x=¬Èç§ø
if ["%dgs101x%"] == ["y"] set encode5x=¬Èøç§
if ["%dgs101x%"] == ["z"] set encode5x=¬Èø§ç
goto :eof

:encode6x
SET dgs011x=%~1

if ["%dgs011x%"] == ["0"] set encode6x=abcde
if ["%dgs011x%"] == ["1"] set encode6x=abced
if ["%dgs011x%"] == ["2"] set encode6x=abdce
if ["%dgs011x%"] == ["3"] set encode6x=abdec
if ["%dgs011x%"] == ["4"] set encode6x=abecd
if ["%dgs011x%"] == ["5"] set encode6x=abedc
if ["%dgs011x%"] == ["6"] set encode6x=acbde
if ["%dgs011x%"] == ["7"] set encode6x=acbed
if ["%dgs011x%"] == ["8"] set encode6x=acdbe
if ["%dgs011x%"] == ["9"] set encode6x=acdeb
if ["%dgs011x%"] == ["A"] set encode6x=acebd
if ["%dgs011x%"] == ["B"] set encode6x=acedb
if ["%dgs011x%"] == ["C"] set encode6x=adbce
if ["%dgs011x%"] == ["D"] set encode6x=adbec
if ["%dgs011x%"] == ["E"] set encode6x=adcbe
if ["%dgs011x%"] == ["F"] set encode6x=adceb
if ["%dgs011x%"] == ["G"] set encode6x=adebc
if ["%dgs011x%"] == ["H"] set encode6x=adecb
if ["%dgs011x%"] == ["I"] set encode6x=aebcd
if ["%dgs011x%"] == ["J"] set encode6x=aebdc
if ["%dgs011x%"] == ["K"] set encode6x=aecbd
if ["%dgs011x%"] == ["L"] set encode6x=aecdb
if ["%dgs011x%"] == ["M"] set encode6x=aedcb
if ["%dgs011x%"] == ["N"] set encode6x=aedbc
if ["%dgs011x%"] == ["Ñ"] set encode6x=bcdea
if ["%dgs011x%"] == ["O"] set encode6x=bcdae
if ["%dgs011x%"] == ["P"] set encode6x=bceda
if ["%dgs011x%"] == ["Q"] set encode6x=bcead
if ["%dgs011x%"] == ["R"] set encode6x=bcade
if ["%dgs011x%"] == ["S"] set encode6x=bcaed
if ["%dgs011x%"] == ["T"] set encode6x=bdcea
if ["%dgs011x%"] == ["U"] set encode6x=bdcae
if ["%dgs011x%"] == ["V"] set encode6x=bdeca
if ["%dgs011x%"] == ["W"] set encode6x=bdeac
if ["%dgs011x%"] == ["X"] set encode6x=bdaec
if ["%dgs011x%"] == ["Y"] set encode6x=bdace
if ["%dgs011x%"] == ["Z"] set encode6x=becda
if ["%dgs011x%"] == ["a"] set encode6x=becad
if ["%dgs011x%"] == ["b"] set encode6x=bedca
if ["%dgs011x%"] == ["c"] set encode6x=bedac
if ["%dgs011x%"] == ["d"] set encode6x=beadc
if ["%dgs011x%"] == ["e"] set encode6x=beacd
if ["%dgs011x%"] == ["f"] set encode6x=bacde
if ["%dgs011x%"] == ["g"] set encode6x=baced
if ["%dgs011x%"] == ["h"] set encode6x=badce
if ["%dgs011x%"] == ["i"] set encode6x=badec
if ["%dgs011x%"] == ["j"] set encode6x=baecd
if ["%dgs011x%"] == ["k"] set encode6x=baedc
if ["%dgs011x%"] == ["l"] set encode6x=cdeab
if ["%dgs011x%"] == ["m"] set encode6x=cdeba
if ["%dgs011x%"] == ["n"] set encode6x=cdaeb
if ["%dgs011x%"] == ["ñ"] set encode6x=cdabe
if ["%dgs011x%"] == ["o"] set encode6x=cdbea
if ["%dgs011x%"] == ["p"] set encode6x=cdbae
if ["%dgs011x%"] == ["q"] set encode6x=cedab
if ["%dgs011x%"] == ["r"] set encode6x=cedba
if ["%dgs011x%"] == ["s"] set encode6x=ceabd
if ["%dgs011x%"] == ["t"] set encode6x=ceadb
if ["%dgs011x%"] == ["u"] set encode6x=cebda
if ["%dgs011x%"] == ["v"] set encode6x=cebad
if ["%dgs011x%"] == ["w"] set encode6x=cabde
if ["%dgs011x%"] == ["x"] set encode6x=cabed
if ["%dgs011x%"] == ["y"] set encode6x=cadbe
if ["%dgs011x%"] == ["z"] set encode6x=cadeb

goto :eof

:encode7x
SET dgs111x=%~1

if ["%dgs111x%"] == ["0"] set encode7x=fghij
if ["%dgs111x%"] == ["1"] set encode7x=fghji
if ["%dgs111x%"] == ["2"] set encode7x=fgihj
if ["%dgs111x%"] == ["3"] set encode7x=fgijh
if ["%dgs111x%"] == ["4"] set encode7x=fgjhi
if ["%dgs111x%"] == ["5"] set encode7x=fgjih
if ["%dgs111x%"] == ["6"] set encode7x=fhgij
if ["%dgs111x%"] == ["7"] set encode7x=fhgji
if ["%dgs111x%"] == ["8"] set encode7x=fhigj
if ["%dgs111x%"] == ["9"] set encode7x=fhijg
if ["%dgs111x%"] == ["A"] set encode7x=fhjgi
if ["%dgs111x%"] == ["B"] set encode7x=fhjig
if ["%dgs111x%"] == ["C"] set encode7x=fighj
if ["%dgs111x%"] == ["D"] set encode7x=figjh
if ["%dgs111x%"] == ["E"] set encode7x=fihgj
if ["%dgs111x%"] == ["F"] set encode7x=fihjg
if ["%dgs111x%"] == ["G"] set encode7x=fijgh
if ["%dgs111x%"] == ["H"] set encode7x=fijhg
if ["%dgs111x%"] == ["I"] set encode7x=fjghi
if ["%dgs111x%"] == ["J"] set encode7x=fjgih
if ["%dgs111x%"] == ["K"] set encode7x=fjhgi
if ["%dgs111x%"] == ["L"] set encode7x=fjhig
if ["%dgs111x%"] == ["M"] set encode7x=fjihg
if ["%dgs111x%"] == ["N"] set encode7x=fjigh
if ["%dgs111x%"] == ["Ñ"] set encode7x=ghijf
if ["%dgs111x%"] == ["O"] set encode7x=ghifj
if ["%dgs111x%"] == ["P"] set encode7x=ghjif
if ["%dgs111x%"] == ["Q"] set encode7x=ghjfi
if ["%dgs111x%"] == ["R"] set encode7x=ghfij
if ["%dgs111x%"] == ["S"] set encode7x=ghfji
if ["%dgs111x%"] == ["T"] set encode7x=gihjf
if ["%dgs111x%"] == ["U"] set encode7x=gihfj
if ["%dgs111x%"] == ["V"] set encode7x=gijhf
if ["%dgs111x%"] == ["W"] set encode7x=gijfh
if ["%dgs111x%"] == ["X"] set encode7x=gifjh
if ["%dgs111x%"] == ["Y"] set encode7x=gifhj
if ["%dgs111x%"] == ["Z"] set encode7x=gjhif
if ["%dgs111x%"] == ["a"] set encode7x=gjhfi
if ["%dgs111x%"] == ["b"] set encode7x=gjihf
if ["%dgs111x%"] == ["c"] set encode7x=gjifh
if ["%dgs111x%"] == ["d"] set encode7x=gjfih
if ["%dgs111x%"] == ["e"] set encode7x=gjfhi
if ["%dgs111x%"] == ["f"] set encode7x=gfhij
if ["%dgs111x%"] == ["g"] set encode7x=gfhji
if ["%dgs111x%"] == ["h"] set encode7x=gfihj
if ["%dgs111x%"] == ["i"] set encode7x=gfijh
if ["%dgs111x%"] == ["j"] set encode7x=gfjhi
if ["%dgs111x%"] == ["k"] set encode7x=gfjih
if ["%dgs111x%"] == ["l"] set encode7x=hijfg
if ["%dgs111x%"] == ["m"] set encode7x=hijgf
if ["%dgs111x%"] == ["n"] set encode7x=hifjg
if ["%dgs111x%"] == ["ñ"] set encode7x=hifgj
if ["%dgs111x%"] == ["o"] set encode7x=higjf
if ["%dgs111x%"] == ["p"] set encode7x=higfj
if ["%dgs111x%"] == ["q"] set encode7x=hjifg
if ["%dgs111x%"] == ["r"] set encode7x=hjigf
if ["%dgs111x%"] == ["s"] set encode7x=hjfgi
if ["%dgs111x%"] == ["t"] set encode7x=hjfig
if ["%dgs111x%"] == ["u"] set encode7x=hjgif
if ["%dgs111x%"] == ["v"] set encode7x=hjgfi
if ["%dgs111x%"] == ["w"] set encode7x=hfgij
if ["%dgs111x%"] == ["x"] set encode7x=hfgji
if ["%dgs111x%"] == ["y"] set encode7x=hfigj
if ["%dgs111x%"] == ["z"] set encode7x=hfijg


goto :eof

:encode8x
SET dgs0001x=%~1

if ["%dgs0001x%"] == ["0"] set encode8x=klmno
if ["%dgs0001x%"] == ["1"] set encode8x=klmon
if ["%dgs0001x%"] == ["2"] set encode8x=klnmo
if ["%dgs0001x%"] == ["3"] set encode8x=klnom
if ["%dgs0001x%"] == ["4"] set encode8x=klomn
if ["%dgs0001x%"] == ["5"] set encode8x=klonm
if ["%dgs0001x%"] == ["6"] set encode8x=kmlno
if ["%dgs0001x%"] == ["7"] set encode8x=kmlon
if ["%dgs0001x%"] == ["8"] set encode8x=kmnlo
if ["%dgs0001x%"] == ["9"] set encode8x=kmnol
if ["%dgs0001x%"] == ["A"] set encode8x=kmoln
if ["%dgs0001x%"] == ["B"] set encode8x=kmonl
if ["%dgs0001x%"] == ["C"] set encode8x=knlmo
if ["%dgs0001x%"] == ["D"] set encode8x=knlom
if ["%dgs0001x%"] == ["E"] set encode8x=knmlo
if ["%dgs0001x%"] == ["F"] set encode8x=knmol
if ["%dgs0001x%"] == ["G"] set encode8x=knolm
if ["%dgs0001x%"] == ["H"] set encode8x=knoml
if ["%dgs0001x%"] == ["I"] set encode8x=kolmn
if ["%dgs0001x%"] == ["J"] set encode8x=kolnm
if ["%dgs0001x%"] == ["K"] set encode8x=komln
if ["%dgs0001x%"] == ["L"] set encode8x=komnl
if ["%dgs0001x%"] == ["M"] set encode8x=konml
if ["%dgs0001x%"] == ["N"] set encode8x=konlm
if ["%dgs0001x%"] == ["Ñ"] set encode8x=lmnok
if ["%dgs0001x%"] == ["O"] set encode8x=lmnko
if ["%dgs0001x%"] == ["P"] set encode8x=lmonk
if ["%dgs0001x%"] == ["Q"] set encode8x=lmokn
if ["%dgs0001x%"] == ["R"] set encode8x=lmkno
if ["%dgs0001x%"] == ["S"] set encode8x=lmkon
if ["%dgs0001x%"] == ["T"] set encode8x=lnmok
if ["%dgs0001x%"] == ["U"] set encode8x=lnmko
if ["%dgs0001x%"] == ["V"] set encode8x=lnomk
if ["%dgs0001x%"] == ["W"] set encode8x=lnokm
if ["%dgs0001x%"] == ["X"] set encode8x=lnkom
if ["%dgs0001x%"] == ["Y"] set encode8x=lnkmo
if ["%dgs0001x%"] == ["Z"] set encode8x=lomnk
if ["%dgs0001x%"] == ["a"] set encode8x=lomkn
if ["%dgs0001x%"] == ["b"] set encode8x=lonmk
if ["%dgs0001x%"] == ["c"] set encode8x=lonkm
if ["%dgs0001x%"] == ["d"] set encode8x=loknm
if ["%dgs0001x%"] == ["e"] set encode8x=lokmn
if ["%dgs0001x%"] == ["f"] set encode8x=lkmno
if ["%dgs0001x%"] == ["g"] set encode8x=lkmon
if ["%dgs0001x%"] == ["h"] set encode8x=lknmo
if ["%dgs0001x%"] == ["i"] set encode8x=lknom
if ["%dgs0001x%"] == ["j"] set encode8x=lkomn
if ["%dgs0001x%"] == ["k"] set encode8x=lkonm
if ["%dgs0001x%"] == ["l"] set encode8x=mnokl
if ["%dgs0001x%"] == ["m"] set encode8x=mnolk
if ["%dgs0001x%"] == ["n"] set encode8x=mnkol
if ["%dgs0001x%"] == ["ñ"] set encode8x=mnklo
if ["%dgs0001x%"] == ["o"] set encode8x=mnlok
if ["%dgs0001x%"] == ["p"] set encode8x=mnlko
if ["%dgs0001x%"] == ["q"] set encode8x=monkl
if ["%dgs0001x%"] == ["r"] set encode8x=monlk
if ["%dgs0001x%"] == ["s"] set encode8x=mokln
if ["%dgs0001x%"] == ["t"] set encode8x=moknl
if ["%dgs0001x%"] == ["u"] set encode8x=molnk
if ["%dgs0001x%"] == ["v"] set encode8x=molkn
if ["%dgs0001x%"] == ["w"] set encode8x=mklno
if ["%dgs0001x%"] == ["x"] set encode8x=mklon
if ["%dgs0001x%"] == ["y"] set encode8x=mknlo
if ["%dgs0001x%"] == ["z"] set encode8x=mknol

goto :eof