Batch-Probleme bei Verschlüsselung

@echo off
title Encryption/Decryption
color 0a
setlocal enableDelayedExpansion

:encrypt
cls
start "%~dp0\newcodes.bat"  
ping localhost -n 05>nul
set "charSet=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*#@(.,$ /\-"  
set a=1
set i=0
for /f "usebackq tokens=%a%" %%a in ("%~dp0\newcodes.txt") do (  
     for %%b in (!i!) do for /f "delims=" %%c in ("!charSet:~%%b,1!") do (  
          set "ENC[%%c]=%%a"  
          set "DEC[%%a]=%%c"  
     )
     set /a i+=1
     set /a a+=1
)
cls
echo Enter String: 
set /p Encrypt=
cls
set Encrypt2=%Encrypt%
set "EncryptOut="  

:encrypt2
set "EncryptOut=%EncryptOut%!ENC[%Encrypt2:~0,1%]!"  
set "Encrypt2=%Encrypt2:~1%"  
if defined Encrypt2 goto encrypt2
echo %EncryptOut%> "%~dp0\encrypted.txt"  
set /p CryptedPass=< "%~dp0\encrypted.txt"  
echo Input string clear text ===^> %Encrypt%
echo Output string crypted ===^> %CryptedPass%
pause>nul
set /p Decrypt=< "%~dp0\encrypted.txt"  
cls
set Decrypt2=%Decrypt%
set "DecryptOut="  

:decrypt2
set "DecryptOut=%DecryptOut%!DEC[%Decrypt2:~0,5]!"  
set "Decrypt2=%Decrypt2=:~5%  
if defined Decrypt2 goto decrypt2
echo Input string: %Decrypt%
echo Output string: %DecryptOut%
pause>nul
goto Encrypt

@echo off
title newcodes
setlocal enableDelayedExpansion
set /a nmb2=1

:Menu
cls
set /a code%nmb2%=%random% %% 100000 + 9999
set /a nmb2+=1
if %nmb2% EQU 72 goto Menu2
goto Menu

:Menu2
set a=0
set nmb=1
goto Menu3

:Menu3
if 70 GEQ !a! goto Menu4
exit

:Menu4
echo !code%nmb%! >>"%~dp0\newcodes.txt"  
set /a nmb+=1
set /a a+=1
goto Menu3