Zwei verschachtelte for-Schleifen

@echo off & setlocal enabledelayedexpansion
:paare_falsch
set /p paare="Wieviele Paare soll der Schluessel haben?(1-9) "  
set /a paare=%paare%
if %paare%==1 goto paare_ok
if %paare%==2 goto paare_ok
if %paare%==3 goto paare_ok
if %paare%==4 goto paare_ok
if %paare%==5 goto paare_ok
if %paare%==6 goto paare_ok
if %paare%==7 goto paare_ok
if %paare%==8 goto paare_ok
if %paare%==9 goto paare_ok
goto paare_falsch
:paare_ok
set /a paar_nr=0
:naechstes_paar
set /a paar_nr+=1
set Schluessel_Teil_2=%Schluessel_Teil_2%%Zeichen_Teil_n%
:a_falsch
set /p a="Bitte erste Zahl des %paar_nr%. Paares eingeben(1-63): "  
if %a%==1 goto a_ok
if %a%==2 goto a_ok
if %a%==3 goto a_ok
if %a%==4 goto a_ok
if %a%==5 goto a_ok
if %a%==6 goto a_ok
if %a%==7 goto a_ok
if %a%==8 goto a_ok
if %a%==9 goto a_ok
if %a%==10 goto a_ok
if %a%==11 goto a_ok
if %a%==12 goto a_ok
if %a%==13 goto a_ok
if %a%==14 goto a_ok
if %a%==15 goto a_ok
if %a%==16 goto a_ok
if %a%==17 goto a_ok
if %a%==18 goto a_ok
if %a%==19 goto a_ok
if %a%==20 goto a_ok
if %a%==21 goto a_ok
if %a%==22 goto a_ok
if %a%==23 goto a_ok
if %a%==24 goto a_ok
if %a%==25 goto a_ok
if %a%==26 goto a_ok
if %a%==27 goto a_ok
if %a%==28 goto a_ok
if %a%==29 goto a_ok
if %a%==30 goto a_ok
if %a%==31 goto a_ok
if %a%==32 goto a_ok
if %a%==33 goto a_ok
if %a%==34 goto a_ok
if %a%==35 goto a_ok
if %a%==36 goto a_ok
if %a%==37 goto a_ok
if %a%==38 goto a_ok
if %a%==39 goto a_ok
if %a%==40 goto a_ok
if %a%==41 goto a_ok
if %a%==42 goto a_ok
if %a%==43 goto a_ok
if %a%==44 goto a_ok
if %a%==45 goto a_ok
if %a%==46 goto a_ok
if %a%==47 goto a_ok
if %a%==48 goto a_ok
if %a%==49 goto a_ok
if %a%==50 goto a_ok
if %a%==51 goto a_ok
if %a%==52 goto a_ok
if %a%==53 goto a_ok
if %a%==54 goto a_ok
if %a%==55 goto a_ok
if %a%==56 goto a_ok
if %a%==57 goto a_ok
if %a%==58 goto a_ok
if %a%==59 goto a_ok
if %a%==60 goto a_ok
if %a%==61 goto a_ok
if %a%==62 goto a_ok
if %a%==63 goto a_ok
goto a_falsch
:a_ok
set /a a=%a%
:b_falsch
set /p b="Bitte zweite Zahl des %paar_nr%. Paares eingeben(1-63;ungleich %a%): "  
if %b%==%a% goto b_falsch
if %b%==1 goto b_ok
if %b%==2 goto b_ok
if %b%==3 goto b_ok
if %b%==4 goto b_ok
if %b%==5 goto b_ok
if %b%==6 goto b_ok
if %b%==7 goto b_ok
if %b%==8 goto b_ok
if %b%==9 goto b_ok
if %b%==10 goto b_ok
if %b%==11 goto b_ok
if %b%==12 goto b_ok
if %b%==13 goto b_ok
if %b%==14 goto b_ok
if %b%==15 goto b_ok
if %b%==16 goto b_ok
if %b%==17 goto b_ok
if %b%==18 goto b_ok
if %b%==19 goto b_ok
if %b%==20 goto b_ok
if %b%==21 goto b_ok
if %b%==22 goto b_ok
if %b%==23 goto b_ok
if %b%==24 goto b_ok
if %b%==25 goto b_ok
if %b%==26 goto b_ok
if %b%==27 goto b_ok
if %b%==28 goto b_ok
if %b%==29 goto b_ok
if %b%==30 goto b_ok
if %b%==31 goto b_ok
if %b%==32 goto b_ok
if %b%==33 goto b_ok
if %b%==34 goto b_ok
if %b%==35 goto b_ok
if %b%==36 goto b_ok
if %b%==37 goto b_ok
if %b%==38 goto b_ok
if %b%==39 goto b_ok
if %b%==40 goto b_ok
if %b%==41 goto b_ok
if %b%==42 goto b_ok
if %b%==43 goto b_ok
if %b%==44 goto b_ok
if %b%==45 goto b_ok
if %b%==46 goto b_ok
if %b%==47 goto b_ok
if %b%==48 goto b_ok
if %b%==49 goto b_ok
if %b%==50 goto b_ok
if %b%==51 goto b_ok
if %b%==52 goto b_ok
if %b%==53 goto b_ok
if %b%==54 goto b_ok
if %b%==55 goto b_ok
if %b%==56 goto b_ok
if %b%==57 goto b_ok
if %b%==58 goto b_ok
if %b%==59 goto b_ok
if %b%==60 goto b_ok
if %b%==61 goto b_ok
if %b%==62 goto b_ok
if %b%==63 goto b_ok
goto b_falsch
:b_ok
set /a b=%b%
set  /a Teil_n=(%a%-1)*63+%b%
set /a Zeichen_Teil_n=0
:Loop
set "Char=!Teil_n:~%Zeichen_Teil_n%,1!"  
if "%Char%"=="" goto :Weiter  
set /a Zeichen_Teil_n+=1
goto :Loop
:Weiter
set Schluessel_Teil_1=%Schluessel_Teil_1%%Teil_n%

if not %paar_nr%==%paare% goto :naechstes_paar
set /a paare+=-1
set Schluessel=%Schluessel_Teil_1%%Schluessel_Teil_2%%paare%
echo Schluessel:%schluessel%


:Loop_schluessel
set "Char_key=!Schluessel:~%stellen%,1!"  
if "%Char_key%"=="" goto :Weiter_schluessel  
set /a stellen+=1
goto :Loop_schluessel
:Weiter_schluessel
set /a paare_schluessel=%schluessel:~-1,1%
set /a nr_paar_n=0
set /a verbraucht=0
if 0==%paare_schluessel% goto letztes_paar
set /a ort_paar_n=%stellen%-%paare_schluessel%-1
set /a nr_paar_n=1
:naechstes_paar_schluessel
set /a stellen_paar_n=!schluessel:~%ort_paar_n%,1!
set paar_n=!schluessel:~%verbraucht%,%stellen_paar_n%!
set /a a=%paar_n%/63+1
set /a b=%paar_n%-63*(%a%-1)

if exist "alphabet.txt" del "alphabet.txt"  
if not %a% lss %b% goto a_groesser_b

set /a Abbruch_1_1=%b%-%a%+1
set /a Abbruch_1_2=%b%-%a%
set /a Abbruch_1_3=%b%

set /a zeichen_alpha=%b%-1
:abschnitt_1_1 
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_1% goto weiter_1_1
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_1_1

:weiter_1_1
set /a zeichen_alpha=1
:abschnitt_1_2
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_2% goto weiter_1_2
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_1_2

:weiter_1_2
set /a zeichen_alpha=63
:abschnitt_1_3
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_3% goto weiter_1_3
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_1_3

:a_groesser_b
set /a Abbruch_2_1=63
set /a Abbruch_2_2=1
set /a Abbruch_2_3=63-%b%

set /a zeichen_alpha=64-%b%
:abschnitt_2_1 
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_1% goto weiter_2_1
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_2_1

:weiter_2_1
set /a zeichen_alpha=%a%-%b%
:abschnitt_2_2
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_2% goto weiter_2_2
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_2_2

:weiter_2_2
set /a zeichen_alpha=%a%-%b%+1
:abschnitt_2_3
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_3% goto weiter_2_3
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_2_3

:weiter_1_3
:weiter_2_3

if exist "alphabet2.txt" del "alphabet2.txt"  
for /F "delims=" %%I in (alphabet.txt) do @echo %%~I>>"alphabet2.txt"  
del "alphabet.txt"  
for /F "delims=" %%I in (alphabet2.txt) do (  
if %%I==1 @echo "A">>alphabet.txt  
if %%I==2 @echo "B">>alphabet.txt  
if %%I==3 @echo "C">>alphabet.txt  
if %%I==4 @echo "D">>alphabet.txt  
if %%I==5 @echo "E">>alphabet.txt  
if %%I==6 @echo "F">>alphabet.txt  
if %%I==7 @echo "G">>alphabet.txt  
if %%I==8 @echo "H">>alphabet.txt  
if %%I==9 @echo "I">>alphabet.txt  
if %%I==10 @echo "J">>alphabet.txt  
if %%I==11 @echo "K">>alphabet.txt  
if %%I==12 @echo "L">>alphabet.txt  
if %%I==13 @echo "M">>alphabet.txt  
if %%I==14 @echo "N">>alphabet.txt  
if %%I==15 @echo "O">>alphabet.txt  
if %%I==16 @echo "P">>alphabet.txt  
if %%I==17 @echo "Q">>alphabet.txt  
if %%I==18 @echo "R">>alphabet.txt  
if %%I==19 @echo "S">>alphabet.txt  
if %%I==20 @echo "T">>alphabet.txt  
if %%I==21 @echo "U">>alphabet.txt  
if %%I==22 @echo "V">>alphabet.txt  
if %%I==23 @echo "W">>alphabet.txt  
if %%I==24 @echo "X">>alphabet.txt  
if %%I==25 @echo "Y">>alphabet.txt  
if %%I==26 @echo "Z">>alphabet.txt  
if %%I==27 @echo " ">>alphabet.txt  
if %%I==28 @echo "a">>alphabet.txt  
if %%I==29 @echo "b">>alphabet.txt  
if %%I==30 @echo "c">>alphabet.txt  
if %%I==31 @echo "d">>alphabet.txt  
if %%I==32 @echo "e">>alphabet.txt  
if %%I==33 @echo "f">>alphabet.txt  
if %%I==34 @echo "g">>alphabet.txt  
if %%I==35 @echo "h">>alphabet.txt  
if %%I==36 @echo "i">>alphabet.txt  
if %%I==37 @echo "j">>alphabet.txt  
if %%I==38 @echo "k">>alphabet.txt  
if %%I==39 @echo "l">>alphabet.txt  
if %%I==40 @echo "m">>alphabet.txt  
if %%I==41 @echo "n">>alphabet.txt  
if %%I==42 @echo "o">>alphabet.txt  
if %%I==43 @echo "p">>alphabet.txt  
if %%I==44 @echo "q">>alphabet.txt  
if %%I==45 @echo "r">>alphabet.txt  
if %%I==46 @echo "s">>alphabet.txt  
if %%I==47 @echo "t">>alphabet.txt  
if %%I==48 @echo "u">>alphabet.txt  
if %%I==49 @echo "v">>alphabet.txt  
if %%I==50 @echo "w">>alphabet.txt  
if %%I==51 @echo "x">>alphabet.txt  
if %%I==52 @echo "y">>alphabet.txt  
if %%I==53 @echo "z">>alphabet.txt  
if %%I==54 @echo "0">>alphabet.txt  
if %%I==55 @echo "1">>alphabet.txt  
if %%I==56 @echo "2">>alphabet.txt  
if %%I==57 @echo "3">>alphabet.txt  
if %%I==58 @echo "4">>alphabet.txt  
if %%I==59 @echo "5">>alphabet.txt  
if %%I==60 @echo "6">>alphabet.txt  
if %%I==61 @echo "7">>alphabet.txt  
if %%I==62 @echo "8">>alphabet.txt  
if %%I==63 @echo "9">>alphabet.txt  
)
if exist "alphabet2.txt" del "alphabet2.txt"  
for /F "delims=" %%I in (alphabet.txt) do @echo\%%~I>>"alphabet2.txt"  
del "alphabet.txt"  
ren "alphabet2.txt" "alphabet.txt"  
set /a zeile_nr=1
for /F "delims=" %%I in (alphabet.txt)do (  
if !zeile_nr!==1 @echo "A=%%I">>alphabet2.txt  
if !zeile_nr!==2 @echo "B=%%I">>alphabet2.txt  
if !zeile_nr!==3 @echo "C=%%I">>alphabet2.txt  
if !zeile_nr!==4 @echo "D=%%I">>alphabet2.txt  
if !zeile_nr!==5 @echo "E=%%I">>alphabet2.txt  
if !zeile_nr!==6 @echo "F=%%I">>alphabet2.txt  
if !zeile_nr!==7 @echo "G=%%I">>alphabet2.txt  
if !zeile_nr!==8 @echo "H=%%I">>alphabet2.txt  
if !zeile_nr!==9 @echo "I=%%I">>alphabet2.txt  
if !zeile_nr!==10 @echo "J=%%I">>alphabet2.txt  
if !zeile_nr!==11 @echo "K=%%I">>alphabet2.txt  
if !zeile_nr!==12 @echo "L=%%I">>alphabet2.txt  
if !zeile_nr!==13 @echo "M=%%I">>alphabet2.txt  
if !zeile_nr!==14 @echo "N=%%I">>alphabet2.txt  
if !zeile_nr!==15 @echo "O=%%I">>alphabet2.txt  
if !zeile_nr!==16 @echo "P=%%I">>alphabet2.txt  
if !zeile_nr!==17 @echo "Q=%%I">>alphabet2.txt  
if !zeile_nr!==18 @echo "R=%%I">>alphabet2.txt  
if !zeile_nr!==19 @echo "S=%%I">>alphabet2.txt  
if !zeile_nr!==20 @echo "T=%%I">>alphabet2.txt  
if !zeile_nr!==21 @echo "U=%%I">>alphabet2.txt  
if !zeile_nr!==22 @echo "V=%%I">>alphabet2.txt  
if !zeile_nr!==23 @echo "W=%%I">>alphabet2.txt  
if !zeile_nr!==24 @echo "X=%%I">>alphabet2.txt  
if !zeile_nr!==25 @echo "Y=%%I">>alphabet2.txt  
if !zeile_nr!==26 @echo "Z=%%I">>alphabet2.txt  
if !zeile_nr!==27 @echo " =%%I">>alphabet2.txt  
if !zeile_nr!==28 @echo "a=%%I">>alphabet2.txt  
if !zeile_nr!==29 @echo "b=%%I">>alphabet2.txt  
if !zeile_nr!==30 @echo "c=%%I">>alphabet2.txt  
if !zeile_nr!==31 @echo "d=%%I">>alphabet2.txt  
if !zeile_nr!==32 @echo "e=%%I">>alphabet2.txt  
if !zeile_nr!==33 @echo "f=%%I">>alphabet2.txt  
if !zeile_nr!==34 @echo "g=%%I">>alphabet2.txt  
if !zeile_nr!==35 @echo "h=%%I">>alphabet2.txt  
if !zeile_nr!==36 @echo "i=%%I">>alphabet2.txt  
if !zeile_nr!==37 @echo "j=%%I">>alphabet2.txt  
if !zeile_nr!==38 @echo "k=%%I">>alphabet2.txt  
if !zeile_nr!==39 @echo "l=%%I">>alphabet2.txt  
if !zeile_nr!==40 @echo "m=%%I">>alphabet2.txt  
if !zeile_nr!==41 @echo "n=%%I">>alphabet2.txt  
if !zeile_nr!==42 @echo "o=%%I">>alphabet2.txt  
if !zeile_nr!==43 @echo "p=%%I">>alphabet2.txt  
if !zeile_nr!==44 @echo "q=%%I">>alphabet2.txt  
if !zeile_nr!==45 @echo "r=%%I">>alphabet2.txt  
if !zeile_nr!==46 @echo "s=%%I">>alphabet2.txt  
if !zeile_nr!==47 @echo "t=%%I">>alphabet2.txt  
if !zeile_nr!==48 @echo "u=%%I">>alphabet2.txt  
if !zeile_nr!==49 @echo "v=%%I">>alphabet2.txt  
if !zeile_nr!==50 @echo "w=%%I">>alphabet2.txt  
if !zeile_nr!==51 @echo "x=%%I">>alphabet2.txt  
if !zeile_nr!==52 @echo "y=%%I">>alphabet2.txt  
if !zeile_nr!==53 @echo "z=%%I">>alphabet2.txt  
if !zeile_nr!==54 @echo "0=%%I">>alphabet2.txt  
if !zeile_nr!==55 @echo "1=%%I">>alphabet2.txt  
if !zeile_nr!==56 @echo "2=%%I">>alphabet2.txt  
if !zeile_nr!==57 @echo "3=%%I">>alphabet2.txt  
if !zeile_nr!==58 @echo "4=%%I">>alphabet2.txt  
if !zeile_nr!==59 @echo "5=%%I">>alphabet2.txt  
if !zeile_nr!==60 @echo "6=%%I">>alphabet2.txt  
if !zeile_nr!==61 @echo "7=%%I">>alphabet2.txt  
if !zeile_nr!==62 @echo "8=%%I">>alphabet2.txt  
if !zeile_nr!==63 @echo "9=%%I">>alphabet2.txt  
set /a zeile_nr+=1
)
del "alphabet.txt"  
for /F "delims=" %%I in (alphabet2.txt) do @echo\%%~I>>"alphabet.txt"  
del "alphabet2.txt"  

set "ctext=ctext.txt"  
for /f "delims=" %%I in (ktext.txt) do set text=!text!_%%I  
set text=%text:~1%_
set "alphabet=alphabet.txt"  
if exist %ctext% del %ctext%

set "Code="  
:Loop_codieren
if "%Text%"=="" goto :fertig  
set "Char=%Text:~,1%"  
if "%Char%"=="_" goto naechste_zeile  
for /f "tokens=1-2 delims==" %%i in ('findstr /c:"%Char%=" "%alphabet%"') do set "CodeChar=%%j"  
if not defined CodeChar (echo "%Char%" nicht gefunden! & goto :fertig)  
set "Text=%Text:~1%"  
set "Code=%Code%%CodeChar%"  
goto :Loop_codieren

:naechste_zeile
echo\%Code%>>"%ctext%"  
set "Code="  
set "Text=%Text:~1%"  
goto loop_codieren

:fertig
if exist "ktext.txt" del "ktext.txt"  
ren "ctext.txt" "ktext.txt"  

set /a verbraucht=%verbraucht%+%stellen_paar_n%
if %nr_paar_n%==%paare_schluessel% goto letztes_paar
set /a ort_paar_n=%ort_paar_n%+1
set /a nr_paar_n=%nr_paar_n%+1
goto naechstes_paar_schluessel
:letztes_paar
set /a nr_paar_n=%nr_paar_n%+1
set /a stellen_paar_n=%stellen%-%paare_schluessel%-%verbraucht%-1
set paar_n=!schluessel:~%verbraucht%,%stellen_paar_n%!
set /a a=%paar_n%/63+1
set /a b=%paar_n%-63*(%a%-1)

if exist "alphabet.txt" del "alphabet.txt"  
if not %a% lss %b% goto a_groesser_b

set /a Abbruch_1_1=%b%-%a%+1
set /a Abbruch_1_2=%b%-%a%
set /a Abbruch_1_3=%b%

set /a zeichen_alpha=%b%-1
:abschnitt_1_1 
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_1% goto weiter_1_1
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_1_1

:weiter_1_1
set /a zeichen_alpha=1
:abschnitt_1_2
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_2% goto weiter_1_2
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_1_2

:weiter_1_2
set /a zeichen_alpha=63
:abschnitt_1_3
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_3% goto weiter_1_3
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_1_3

:a_groesser_b
set /a Abbruch_2_1=63
set /a Abbruch_2_2=1
set /a Abbruch_2_3=63-%b%

set /a zeichen_alpha=64-%b%
:abschnitt_2_1 
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_1% goto weiter_2_1
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_2_1

:weiter_2_1
set /a zeichen_alpha=%a%-%b%
:abschnitt_2_2
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_2% goto weiter_2_2
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_2_2

:weiter_2_2
set /a zeichen_alpha=%a%-%b%+1
:abschnitt_2_3
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_3% goto weiter_2_3
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_2_3

:weiter_1_3
:weiter_2_3

if exist "alphabet2.txt" del "alphabet2.txt"  
for /F "delims=" %%I in (alphabet.txt) do @echo %%~I>>"alphabet2.txt"  
del "alphabet.txt"  
for /F "delims=" %%I in (alphabet2.txt) do (  
if %%I==1 @echo "A">>alphabet.txt  
if %%I==2 @echo "B">>alphabet.txt  
if %%I==3 @echo "C">>alphabet.txt  
if %%I==4 @echo "D">>alphabet.txt  
if %%I==5 @echo "E">>alphabet.txt  
if %%I==6 @echo "F">>alphabet.txt  
if %%I==7 @echo "G">>alphabet.txt  
if %%I==8 @echo "H">>alphabet.txt  
if %%I==9 @echo "I">>alphabet.txt  
if %%I==10 @echo "J">>alphabet.txt  
if %%I==11 @echo "K">>alphabet.txt  
if %%I==12 @echo "L">>alphabet.txt  
if %%I==13 @echo "M">>alphabet.txt  
if %%I==14 @echo "N">>alphabet.txt  
if %%I==15 @echo "O">>alphabet.txt  
if %%I==16 @echo "P">>alphabet.txt  
if %%I==17 @echo "Q">>alphabet.txt  
if %%I==18 @echo "R">>alphabet.txt  
if %%I==19 @echo "S">>alphabet.txt  
if %%I==20 @echo "T">>alphabet.txt  
if %%I==21 @echo "U">>alphabet.txt  
if %%I==22 @echo "V">>alphabet.txt  
if %%I==23 @echo "W">>alphabet.txt  
if %%I==24 @echo "X">>alphabet.txt  
if %%I==25 @echo "Y">>alphabet.txt  
if %%I==26 @echo "Z">>alphabet.txt  
if %%I==27 @echo " ">>alphabet.txt  
if %%I==28 @echo "a">>alphabet.txt  
if %%I==29 @echo "b">>alphabet.txt  
if %%I==30 @echo "c">>alphabet.txt  
if %%I==31 @echo "d">>alphabet.txt  
if %%I==32 @echo "e">>alphabet.txt  
if %%I==33 @echo "f">>alphabet.txt  
if %%I==34 @echo "g">>alphabet.txt  
if %%I==35 @echo "h">>alphabet.txt  
if %%I==36 @echo "i">>alphabet.txt  
if %%I==37 @echo "j">>alphabet.txt  
if %%I==38 @echo "k">>alphabet.txt  
if %%I==39 @echo "l">>alphabet.txt  
if %%I==40 @echo "m">>alphabet.txt  
if %%I==41 @echo "n">>alphabet.txt  
if %%I==42 @echo "o">>alphabet.txt  
if %%I==43 @echo "p">>alphabet.txt  
if %%I==44 @echo "q">>alphabet.txt  
if %%I==45 @echo "r">>alphabet.txt  
if %%I==46 @echo "s">>alphabet.txt  
if %%I==47 @echo "t">>alphabet.txt  
if %%I==48 @echo "u">>alphabet.txt  
if %%I==49 @echo "v">>alphabet.txt  
if %%I==50 @echo "w">>alphabet.txt  
if %%I==51 @echo "x">>alphabet.txt  
if %%I==52 @echo "y">>alphabet.txt  
if %%I==53 @echo "z">>alphabet.txt  
if %%I==54 @echo "0">>alphabet.txt  
if %%I==55 @echo "1">>alphabet.txt  
if %%I==56 @echo "2">>alphabet.txt  
if %%I==57 @echo "3">>alphabet.txt  
if %%I==58 @echo "4">>alphabet.txt  
if %%I==59 @echo "5">>alphabet.txt  
if %%I==60 @echo "6">>alphabet.txt  
if %%I==61 @echo "7">>alphabet.txt  
if %%I==62 @echo "8">>alphabet.txt  
if %%I==63 @echo "9">>alphabet.txt  
)
if exist "alphabet2.txt" del "alphabet2.txt"  
for /F "delims=" %%I in (alphabet.txt) do @echo\%%~I>>"alphabet2.txt"  
del "alphabet.txt"  
ren "alphabet2.txt" "alphabet.txt"  
set /a zeile_nr=1
for /F "delims=" %%I in (alphabet.txt)do (  
if !zeile_nr!==1 @echo "A=%%I">>alphabet2.txt  
if !zeile_nr!==2 @echo "B=%%I">>alphabet2.txt  
if !zeile_nr!==3 @echo "C=%%I">>alphabet2.txt  
if !zeile_nr!==4 @echo "D=%%I">>alphabet2.txt  
if !zeile_nr!==5 @echo "E=%%I">>alphabet2.txt  
if !zeile_nr!==6 @echo "F=%%I">>alphabet2.txt  
if !zeile_nr!==7 @echo "G=%%I">>alphabet2.txt  
if !zeile_nr!==8 @echo "H=%%I">>alphabet2.txt  
if !zeile_nr!==9 @echo "I=%%I">>alphabet2.txt  
if !zeile_nr!==10 @echo "J=%%I">>alphabet2.txt  
if !zeile_nr!==11 @echo "K=%%I">>alphabet2.txt  
if !zeile_nr!==12 @echo "L=%%I">>alphabet2.txt  
if !zeile_nr!==13 @echo "M=%%I">>alphabet2.txt  
if !zeile_nr!==14 @echo "N=%%I">>alphabet2.txt  
if !zeile_nr!==15 @echo "O=%%I">>alphabet2.txt  
if !zeile_nr!==16 @echo "P=%%I">>alphabet2.txt  
if !zeile_nr!==17 @echo "Q=%%I">>alphabet2.txt  
if !zeile_nr!==18 @echo "R=%%I">>alphabet2.txt  
if !zeile_nr!==19 @echo "S=%%I">>alphabet2.txt  
if !zeile_nr!==20 @echo "T=%%I">>alphabet2.txt  
if !zeile_nr!==21 @echo "U=%%I">>alphabet2.txt  
if !zeile_nr!==22 @echo "V=%%I">>alphabet2.txt  
if !zeile_nr!==23 @echo "W=%%I">>alphabet2.txt  
if !zeile_nr!==24 @echo "X=%%I">>alphabet2.txt  
if !zeile_nr!==25 @echo "Y=%%I">>alphabet2.txt  
if !zeile_nr!==26 @echo "Z=%%I">>alphabet2.txt  
if !zeile_nr!==27 @echo " =%%I">>alphabet2.txt  
if !zeile_nr!==28 @echo "a=%%I">>alphabet2.txt  
if !zeile_nr!==29 @echo "b=%%I">>alphabet2.txt  
if !zeile_nr!==30 @echo "c=%%I">>alphabet2.txt  
if !zeile_nr!==31 @echo "d=%%I">>alphabet2.txt  
if !zeile_nr!==32 @echo "e=%%I">>alphabet2.txt  
if !zeile_nr!==33 @echo "f=%%I">>alphabet2.txt  
if !zeile_nr!==34 @echo "g=%%I">>alphabet2.txt  
if !zeile_nr!==35 @echo "h=%%I">>alphabet2.txt  
if !zeile_nr!==36 @echo "i=%%I">>alphabet2.txt  
if !zeile_nr!==37 @echo "j=%%I">>alphabet2.txt  
if !zeile_nr!==38 @echo "k=%%I">>alphabet2.txt  
if !zeile_nr!==39 @echo "l=%%I">>alphabet2.txt  
if !zeile_nr!==40 @echo "m=%%I">>alphabet2.txt  
if !zeile_nr!==41 @echo "n=%%I">>alphabet2.txt  
if !zeile_nr!==42 @echo "o=%%I">>alphabet2.txt  
if !zeile_nr!==43 @echo "p=%%I">>alphabet2.txt  
if !zeile_nr!==44 @echo "q=%%I">>alphabet2.txt  
if !zeile_nr!==45 @echo "r=%%I">>alphabet2.txt  
if !zeile_nr!==46 @echo "s=%%I">>alphabet2.txt  
if !zeile_nr!==47 @echo "t=%%I">>alphabet2.txt  
if !zeile_nr!==48 @echo "u=%%I">>alphabet2.txt  
if !zeile_nr!==49 @echo "v=%%I">>alphabet2.txt  
if !zeile_nr!==50 @echo "w=%%I">>alphabet2.txt  
if !zeile_nr!==51 @echo "x=%%I">>alphabet2.txt  
if !zeile_nr!==52 @echo "y=%%I">>alphabet2.txt  
if !zeile_nr!==53 @echo "z=%%I">>alphabet2.txt  
if !zeile_nr!==54 @echo "0=%%I">>alphabet2.txt  
if !zeile_nr!==55 @echo "1=%%I">>alphabet2.txt  
if !zeile_nr!==56 @echo "2=%%I">>alphabet2.txt  
if !zeile_nr!==57 @echo "3=%%I">>alphabet2.txt  
if !zeile_nr!==58 @echo "4=%%I">>alphabet2.txt  
if !zeile_nr!==59 @echo "5=%%I">>alphabet2.txt  
if !zeile_nr!==60 @echo "6=%%I">>alphabet2.txt  
if !zeile_nr!==61 @echo "7=%%I">>alphabet2.txt  
if !zeile_nr!==62 @echo "8=%%I">>alphabet2.txt  
if !zeile_nr!==63 @echo "9=%%I">>alphabet2.txt  
set /a zeile_nr+=1
)
del "alphabet.txt"  
for /F "delims=" %%I in (alphabet2.txt) do @echo\%%~I>>"alphabet.txt"  
del "alphabet2.txt"  

set "ctext=ctext.txt"  
for /f "delims=" %%I in (ktext.txt) do set text=!text!_%%I  
set text=%text:~1%_
set "alphabet=alphabet.txt"  
if exist %ctext% del %ctext%

set "Code="  
:Loop_codieren2
if "%Text%"=="" goto :fertig  
set "Char=%Text:~,1%"  
if "%Char%"=="_" goto naechste_zeile  
for /f "tokens=1-2 delims==" %%i in ('findstr /c:"%Char%=" "%alphabet%"') do set "CodeChar=%%j"  
if not defined CodeChar (echo "%Char%" nicht gefunden! & goto :fertig)  
set "Text=%Text:~1%"  
set "Code=%Code%%CodeChar%"  
goto :Loop_codieren2

:naechste_zeile
echo\%Code%>>"%ctext%"  
set "Code="  
set "Text=%Text:~1%"  
goto loop_codieren2

:fertig
del alphabet.txt
if exist "ktext.txt" del "ktext.txt"  
ren "ctext.txt" "ktext.txt"  
pause

@echo off & setlocal enabledelayedexpansion
set /p schluessel="Bitte Schluessel eingeben: "  
:Loop_schluessel
set "Char_key=!Schluessel:~%stellen%,1!"  
if "%Char_key%"=="" goto :Weiter_schluessel  
set /a stellen+=1
goto :Loop_schluessel
:Weiter_schluessel
set /a paare_schluessel=%schluessel:~-1,1%
set /a nr_paar_n=0
set /a verbraucht=0
if 0==%paare_schluessel% goto letztes_paar
set /a nr_paar_n=1
set /a ort_paar_n=%stellen%-%nr_paar_n%-1
:naechstes_paar_schluessel
set /a stellen_paar_n=!schluessel:~%ort_paar_n%,1!
set /a anfang_paar_n=%stellen%-%paare_schluessel%-%verbraucht%-%stellen_paar_n%-1
set paar_n=!schluessel:~%anfang_paar_n%,%stellen_paar_n%!
set /a a=%paar_n%/63+1
set /a b=%paar_n%-63*(%a%-1)

if exist "alphabet.txt" del "alphabet.txt"  
if not %a% lss %b% goto a_groesser_b

set /a Abbruch_1_1=%b%-1
set /a Abbruch_1_2=1
set /a Abbruch_1_3=%b%

set /a zeichen_alpha=%a%
:abschnitt_1_1 
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_1% goto weiter_1_1
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_1_1

:weiter_1_1
set /a zeichen_alpha=%a%-1
:abschnitt_1_2
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_2% goto weiter_1_2
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_1_2

:weiter_1_2
set /a zeichen_alpha=63
:abschnitt_1_3
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_3% goto weiter_1_3
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_1_3

:a_groesser_b
set /a Abbruch_2_1=%b%+1
set /a Abbruch_2_2=63
set /a Abbruch_2_3=%b%

set /a zeichen_alpha=%a%
:abschnitt_2_1 
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_1% goto weiter_2_1
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_2_1

:weiter_2_1
set /a zeichen_alpha=%a%+1
:abschnitt_2_2
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_2% goto weiter_2_2
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_2_2

:weiter_2_2
set /a zeichen_alpha=1
:abschnitt_2_3
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_3% goto weiter_2_3
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_2_3

:weiter_1_3
:weiter_2_3

if exist "alphabet2.txt" del "alphabet2.txt"  
for /F "delims=" %%I in (alphabet.txt) do @echo %%~I>>"alphabet2.txt"  
del "alphabet.txt"  
for /F "delims=" %%I in (alphabet2.txt) do (  
if %%I==1 @echo "A">>alphabet.txt  
if %%I==2 @echo "B">>alphabet.txt  
if %%I==3 @echo "C">>alphabet.txt  
if %%I==4 @echo "D">>alphabet.txt  
if %%I==5 @echo "E">>alphabet.txt  
if %%I==6 @echo "F">>alphabet.txt  
if %%I==7 @echo "G">>alphabet.txt  
if %%I==8 @echo "H">>alphabet.txt  
if %%I==9 @echo "I">>alphabet.txt  
if %%I==10 @echo "J">>alphabet.txt  
if %%I==11 @echo "K">>alphabet.txt  
if %%I==12 @echo "L">>alphabet.txt  
if %%I==13 @echo "M">>alphabet.txt  
if %%I==14 @echo "N">>alphabet.txt  
if %%I==15 @echo "O">>alphabet.txt  
if %%I==16 @echo "P">>alphabet.txt  
if %%I==17 @echo "Q">>alphabet.txt  
if %%I==18 @echo "R">>alphabet.txt  
if %%I==19 @echo "S">>alphabet.txt  
if %%I==20 @echo "T">>alphabet.txt  
if %%I==21 @echo "U">>alphabet.txt  
if %%I==22 @echo "V">>alphabet.txt  
if %%I==23 @echo "W">>alphabet.txt  
if %%I==24 @echo "X">>alphabet.txt  
if %%I==25 @echo "Y">>alphabet.txt  
if %%I==26 @echo "Z">>alphabet.txt  
if %%I==27 @echo " ">>alphabet.txt  
if %%I==28 @echo "a">>alphabet.txt  
if %%I==29 @echo "b">>alphabet.txt  
if %%I==30 @echo "c">>alphabet.txt  
if %%I==31 @echo "d">>alphabet.txt  
if %%I==32 @echo "e">>alphabet.txt  
if %%I==33 @echo "f">>alphabet.txt  
if %%I==34 @echo "g">>alphabet.txt  
if %%I==35 @echo "h">>alphabet.txt  
if %%I==36 @echo "i">>alphabet.txt  
if %%I==37 @echo "j">>alphabet.txt  
if %%I==38 @echo "k">>alphabet.txt  
if %%I==39 @echo "l">>alphabet.txt  
if %%I==40 @echo "m">>alphabet.txt  
if %%I==41 @echo "n">>alphabet.txt  
if %%I==42 @echo "o">>alphabet.txt  
if %%I==43 @echo "p">>alphabet.txt  
if %%I==44 @echo "q">>alphabet.txt  
if %%I==45 @echo "r">>alphabet.txt  
if %%I==46 @echo "s">>alphabet.txt  
if %%I==47 @echo "t">>alphabet.txt  
if %%I==48 @echo "u">>alphabet.txt  
if %%I==49 @echo "v">>alphabet.txt  
if %%I==50 @echo "w">>alphabet.txt  
if %%I==51 @echo "x">>alphabet.txt  
if %%I==52 @echo "y">>alphabet.txt  
if %%I==53 @echo "z">>alphabet.txt  
if %%I==54 @echo "0">>alphabet.txt  
if %%I==55 @echo "1">>alphabet.txt  
if %%I==56 @echo "2">>alphabet.txt  
if %%I==57 @echo "3">>alphabet.txt  
if %%I==58 @echo "4">>alphabet.txt  
if %%I==59 @echo "5">>alphabet.txt  
if %%I==60 @echo "6">>alphabet.txt  
if %%I==61 @echo "7">>alphabet.txt  
if %%I==62 @echo "8">>alphabet.txt  
if %%I==63 @echo "9">>alphabet.txt  
)
if exist "alphabet2.txt" del "alphabet2.txt"  
for /F "delims=" %%I in (alphabet.txt) do @echo\%%~I>>"alphabet2.txt"  
del "alphabet.txt"  
ren "alphabet2.txt" "alphabet.txt"  
set /a zeile_nr=1
for /F "delims=" %%I in (alphabet.txt)do (  
if !zeile_nr!==1 @echo "A=%%I">>alphabet2.txt  
if !zeile_nr!==2 @echo "B=%%I">>alphabet2.txt  
if !zeile_nr!==3 @echo "C=%%I">>alphabet2.txt  
if !zeile_nr!==4 @echo "D=%%I">>alphabet2.txt  
if !zeile_nr!==5 @echo "E=%%I">>alphabet2.txt  
if !zeile_nr!==6 @echo "F=%%I">>alphabet2.txt  
if !zeile_nr!==7 @echo "G=%%I">>alphabet2.txt  
if !zeile_nr!==8 @echo "H=%%I">>alphabet2.txt  
if !zeile_nr!==9 @echo "I=%%I">>alphabet2.txt  
if !zeile_nr!==10 @echo "J=%%I">>alphabet2.txt  
if !zeile_nr!==11 @echo "K=%%I">>alphabet2.txt  
if !zeile_nr!==12 @echo "L=%%I">>alphabet2.txt  
if !zeile_nr!==13 @echo "M=%%I">>alphabet2.txt  
if !zeile_nr!==14 @echo "N=%%I">>alphabet2.txt  
if !zeile_nr!==15 @echo "O=%%I">>alphabet2.txt  
if !zeile_nr!==16 @echo "P=%%I">>alphabet2.txt  
if !zeile_nr!==17 @echo "Q=%%I">>alphabet2.txt  
if !zeile_nr!==18 @echo "R=%%I">>alphabet2.txt  
if !zeile_nr!==19 @echo "S=%%I">>alphabet2.txt  
if !zeile_nr!==20 @echo "T=%%I">>alphabet2.txt  
if !zeile_nr!==21 @echo "U=%%I">>alphabet2.txt  
if !zeile_nr!==22 @echo "V=%%I">>alphabet2.txt  
if !zeile_nr!==23 @echo "W=%%I">>alphabet2.txt  
if !zeile_nr!==24 @echo "X=%%I">>alphabet2.txt  
if !zeile_nr!==25 @echo "Y=%%I">>alphabet2.txt  
if !zeile_nr!==26 @echo "Z=%%I">>alphabet2.txt  
if !zeile_nr!==27 @echo " =%%I">>alphabet2.txt  
if !zeile_nr!==28 @echo "a=%%I">>alphabet2.txt  
if !zeile_nr!==29 @echo "b=%%I">>alphabet2.txt  
if !zeile_nr!==30 @echo "c=%%I">>alphabet2.txt  
if !zeile_nr!==31 @echo "d=%%I">>alphabet2.txt  
if !zeile_nr!==32 @echo "e=%%I">>alphabet2.txt  
if !zeile_nr!==33 @echo "f=%%I">>alphabet2.txt  
if !zeile_nr!==34 @echo "g=%%I">>alphabet2.txt  
if !zeile_nr!==35 @echo "h=%%I">>alphabet2.txt  
if !zeile_nr!==36 @echo "i=%%I">>alphabet2.txt  
if !zeile_nr!==37 @echo "j=%%I">>alphabet2.txt  
if !zeile_nr!==38 @echo "k=%%I">>alphabet2.txt  
if !zeile_nr!==39 @echo "l=%%I">>alphabet2.txt  
if !zeile_nr!==40 @echo "m=%%I">>alphabet2.txt  
if !zeile_nr!==41 @echo "n=%%I">>alphabet2.txt  
if !zeile_nr!==42 @echo "o=%%I">>alphabet2.txt  
if !zeile_nr!==43 @echo "p=%%I">>alphabet2.txt  
if !zeile_nr!==44 @echo "q=%%I">>alphabet2.txt  
if !zeile_nr!==45 @echo "r=%%I">>alphabet2.txt  
if !zeile_nr!==46 @echo "s=%%I">>alphabet2.txt  
if !zeile_nr!==47 @echo "t=%%I">>alphabet2.txt  
if !zeile_nr!==48 @echo "u=%%I">>alphabet2.txt  
if !zeile_nr!==49 @echo "v=%%I">>alphabet2.txt  
if !zeile_nr!==50 @echo "w=%%I">>alphabet2.txt  
if !zeile_nr!==51 @echo "x=%%I">>alphabet2.txt  
if !zeile_nr!==52 @echo "y=%%I">>alphabet2.txt  
if !zeile_nr!==53 @echo "z=%%I">>alphabet2.txt  
if !zeile_nr!==54 @echo "0=%%I">>alphabet2.txt  
if !zeile_nr!==55 @echo "1=%%I">>alphabet2.txt  
if !zeile_nr!==56 @echo "2=%%I">>alphabet2.txt  
if !zeile_nr!==57 @echo "3=%%I">>alphabet2.txt  
if !zeile_nr!==58 @echo "4=%%I">>alphabet2.txt  
if !zeile_nr!==59 @echo "5=%%I">>alphabet2.txt  
if !zeile_nr!==60 @echo "6=%%I">>alphabet2.txt  
if !zeile_nr!==61 @echo "7=%%I">>alphabet2.txt  
if !zeile_nr!==62 @echo "8=%%I">>alphabet2.txt  
if !zeile_nr!==63 @echo "9=%%I">>alphabet2.txt  
set /a zeile_nr+=1
)
del "alphabet.txt"  
for /F "delims=" %%I in (alphabet2.txt) do @echo\%%~I>>"alphabet.txt"  
del "alphabet2.txt"  

set "ctext=ctext.txt"  
for /f "delims=" %%I in (ktext.txt) do set text=!text!_%%I  
set text=%text:~1%_
set "alphabet=alphabet.txt"  
if exist %ctext% del %ctext%

set "Code="  
:Loop_codieren
if "%Text%"=="" goto :fertig  
set "Char=%Text:~,1%"  
if "%Char%"=="_" goto naechste_zeile  
for /f "tokens=1-2 delims==" %%i in ('findstr /c:"%Char%=" "%alphabet%"') do set "CodeChar=%%j"  
if not defined CodeChar (echo "%Char%" nicht gefunden! & goto :fertig)  
set "Text=%Text:~1%"  
set "Code=%Code%%CodeChar%"  
goto :Loop_codieren

:naechste_zeile
echo\%Code%>>"%ctext%"  
set "Code="  
set "Text=%Text:~1%"  
goto loop_codieren

:fertig
if exist "ktext.txt" del "ktext.txt"  
ren "ctext.txt" "ktext.txt"  

set /a verbraucht=%verbraucht%+%stellen_paar_n%
if %nr_paar_n%==%paare_schluessel% goto letztes_paar
set /a ort_paar_n=%ort_paar_n%-1
set /a nr_paar_n=%nr_paar_n%+1
goto naechstes_paar_schluessel
:letztes_paar
set /a nr_paar_n=%nr_paar_n%+1
set /a stellen_paar_n=%stellen%-%paare_schluessel%-%verbraucht%-1
set paar_n=!schluessel:~0,%stellen_paar_n%!
set /a a=%paar_n%/63+1
set /a b=%paar_n%-63*(%a%-1)

if exist "alphabet.txt" del "alphabet.txt"  
if not %a% lss %b% goto a_groesser_b

set /a Abbruch_1_1=%b%-1
set /a Abbruch_1_2=1
set /a Abbruch_1_3=%b%

set /a zeichen_alpha=%a%
:abschnitt_1_1 
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_1% goto weiter_1_1
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_1_1

:weiter_1_1
set /a zeichen_alpha=%a%-1
:abschnitt_1_2
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_2% goto weiter_1_2
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_1_2

:weiter_1_2
set /a zeichen_alpha=63
:abschnitt_1_3
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_1_3% goto weiter_1_3
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_1_3

:a_groesser_b
set /a Abbruch_2_1=%b%+1
set /a Abbruch_2_2=63
set /a Abbruch_2_3=%b%

set /a zeichen_alpha=%a%
:abschnitt_2_1 
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_1% goto weiter_2_1
set /a zeichen_alpha=%zeichen_alpha%-1
goto abschnitt_2_1

:weiter_2_1
set /a zeichen_alpha=%a%+1
:abschnitt_2_2
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_2% goto weiter_2_2
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_2_2

:weiter_2_2
set /a zeichen_alpha=1
:abschnitt_2_3
@echo "%zeichen_alpha%">>alphabet.txt  
if %zeichen_alpha%==%Abbruch_2_3% goto weiter_2_3
set /a zeichen_alpha=%zeichen_alpha%+1
goto abschnitt_2_3

:weiter_1_3
:weiter_2_3

if exist "alphabet2.txt" del "alphabet2.txt"  
for /F "delims=" %%I in (alphabet.txt) do @echo %%~I>>"alphabet2.txt"  
del "alphabet.txt"  
for /F "delims=" %%I in (alphabet2.txt) do (  
if %%I==1 @echo "A">>alphabet.txt  
if %%I==2 @echo "B">>alphabet.txt  
if %%I==3 @echo "C">>alphabet.txt  
if %%I==4 @echo "D">>alphabet.txt  
if %%I==5 @echo "E">>alphabet.txt  
if %%I==6 @echo "F">>alphabet.txt  
if %%I==7 @echo "G">>alphabet.txt  
if %%I==8 @echo "H">>alphabet.txt  
if %%I==9 @echo "I">>alphabet.txt  
if %%I==10 @echo "J">>alphabet.txt  
if %%I==11 @echo "K">>alphabet.txt  
if %%I==12 @echo "L">>alphabet.txt  
if %%I==13 @echo "M">>alphabet.txt  
if %%I==14 @echo "N">>alphabet.txt  
if %%I==15 @echo "O">>alphabet.txt  
if %%I==16 @echo "P">>alphabet.txt  
if %%I==17 @echo "Q">>alphabet.txt  
if %%I==18 @echo "R">>alphabet.txt  
if %%I==19 @echo "S">>alphabet.txt  
if %%I==20 @echo "T">>alphabet.txt  
if %%I==21 @echo "U">>alphabet.txt  
if %%I==22 @echo "V">>alphabet.txt  
if %%I==23 @echo "W">>alphabet.txt  
if %%I==24 @echo "X">>alphabet.txt  
if %%I==25 @echo "Y">>alphabet.txt  
if %%I==26 @echo "Z">>alphabet.txt  
if %%I==27 @echo " ">>alphabet.txt  
if %%I==28 @echo "a">>alphabet.txt  
if %%I==29 @echo "b">>alphabet.txt  
if %%I==30 @echo "c">>alphabet.txt  
if %%I==31 @echo "d">>alphabet.txt  
if %%I==32 @echo "e">>alphabet.txt  
if %%I==33 @echo "f">>alphabet.txt  
if %%I==34 @echo "g">>alphabet.txt  
if %%I==35 @echo "h">>alphabet.txt  
if %%I==36 @echo "i">>alphabet.txt  
if %%I==37 @echo "j">>alphabet.txt  
if %%I==38 @echo "k">>alphabet.txt  
if %%I==39 @echo "l">>alphabet.txt  
if %%I==40 @echo "m">>alphabet.txt  
if %%I==41 @echo "n">>alphabet.txt  
if %%I==42 @echo "o">>alphabet.txt  
if %%I==43 @echo "p">>alphabet.txt  
if %%I==44 @echo "q">>alphabet.txt  
if %%I==45 @echo "r">>alphabet.txt  
if %%I==46 @echo "s">>alphabet.txt  
if %%I==47 @echo "t">>alphabet.txt  
if %%I==48 @echo "u">>alphabet.txt  
if %%I==49 @echo "v">>alphabet.txt  
if %%I==50 @echo "w">>alphabet.txt  
if %%I==51 @echo "x">>alphabet.txt  
if %%I==52 @echo "y">>alphabet.txt  
if %%I==53 @echo "z">>alphabet.txt  
if %%I==54 @echo "0">>alphabet.txt  
if %%I==55 @echo "1">>alphabet.txt  
if %%I==56 @echo "2">>alphabet.txt  
if %%I==57 @echo "3">>alphabet.txt  
if %%I==58 @echo "4">>alphabet.txt  
if %%I==59 @echo "5">>alphabet.txt  
if %%I==60 @echo "6">>alphabet.txt  
if %%I==61 @echo "7">>alphabet.txt  
if %%I==62 @echo "8">>alphabet.txt  
if %%I==63 @echo "9">>alphabet.txt  
)
if exist "alphabet2.txt" del "alphabet2.txt"  
for /F "delims=" %%I in (alphabet.txt) do @echo\%%~I>>"alphabet2.txt"  
del "alphabet.txt"  
ren "alphabet2.txt" "alphabet.txt"  
set /a zeile_nr=1
for /F "delims=" %%I in (alphabet.txt)do (  
if !zeile_nr!==1 @echo "A=%%I">>alphabet2.txt  
if !zeile_nr!==2 @echo "B=%%I">>alphabet2.txt  
if !zeile_nr!==3 @echo "C=%%I">>alphabet2.txt  
if !zeile_nr!==4 @echo "D=%%I">>alphabet2.txt  
if !zeile_nr!==5 @echo "E=%%I">>alphabet2.txt  
if !zeile_nr!==6 @echo "F=%%I">>alphabet2.txt  
if !zeile_nr!==7 @echo "G=%%I">>alphabet2.txt  
if !zeile_nr!==8 @echo "H=%%I">>alphabet2.txt  
if !zeile_nr!==9 @echo "I=%%I">>alphabet2.txt  
if !zeile_nr!==10 @echo "J=%%I">>alphabet2.txt  
if !zeile_nr!==11 @echo "K=%%I">>alphabet2.txt  
if !zeile_nr!==12 @echo "L=%%I">>alphabet2.txt  
if !zeile_nr!==13 @echo "M=%%I">>alphabet2.txt  
if !zeile_nr!==14 @echo "N=%%I">>alphabet2.txt  
if !zeile_nr!==15 @echo "O=%%I">>alphabet2.txt  
if !zeile_nr!==16 @echo "P=%%I">>alphabet2.txt  
if !zeile_nr!==17 @echo "Q=%%I">>alphabet2.txt  
if !zeile_nr!==18 @echo "R=%%I">>alphabet2.txt  
if !zeile_nr!==19 @echo "S=%%I">>alphabet2.txt  
if !zeile_nr!==20 @echo "T=%%I">>alphabet2.txt  
if !zeile_nr!==21 @echo "U=%%I">>alphabet2.txt  
if !zeile_nr!==22 @echo "V=%%I">>alphabet2.txt  
if !zeile_nr!==23 @echo "W=%%I">>alphabet2.txt  
if !zeile_nr!==24 @echo "X=%%I">>alphabet2.txt  
if !zeile_nr!==25 @echo "Y=%%I">>alphabet2.txt  
if !zeile_nr!==26 @echo "Z=%%I">>alphabet2.txt  
if !zeile_nr!==27 @echo " =%%I">>alphabet2.txt  
if !zeile_nr!==28 @echo "a=%%I">>alphabet2.txt  
if !zeile_nr!==29 @echo "b=%%I">>alphabet2.txt  
if !zeile_nr!==30 @echo "c=%%I">>alphabet2.txt  
if !zeile_nr!==31 @echo "d=%%I">>alphabet2.txt  
if !zeile_nr!==32 @echo "e=%%I">>alphabet2.txt  
if !zeile_nr!==33 @echo "f=%%I">>alphabet2.txt  
if !zeile_nr!==34 @echo "g=%%I">>alphabet2.txt  
if !zeile_nr!==35 @echo "h=%%I">>alphabet2.txt  
if !zeile_nr!==36 @echo "i=%%I">>alphabet2.txt  
if !zeile_nr!==37 @echo "j=%%I">>alphabet2.txt  
if !zeile_nr!==38 @echo "k=%%I">>alphabet2.txt  
if !zeile_nr!==39 @echo "l=%%I">>alphabet2.txt  
if !zeile_nr!==40 @echo "m=%%I">>alphabet2.txt  
if !zeile_nr!==41 @echo "n=%%I">>alphabet2.txt  
if !zeile_nr!==42 @echo "o=%%I">>alphabet2.txt  
if !zeile_nr!==43 @echo "p=%%I">>alphabet2.txt  
if !zeile_nr!==44 @echo "q=%%I">>alphabet2.txt  
if !zeile_nr!==45 @echo "r=%%I">>alphabet2.txt  
if !zeile_nr!==46 @echo "s=%%I">>alphabet2.txt  
if !zeile_nr!==47 @echo "t=%%I">>alphabet2.txt  
if !zeile_nr!==48 @echo "u=%%I">>alphabet2.txt  
if !zeile_nr!==49 @echo "v=%%I">>alphabet2.txt  
if !zeile_nr!==50 @echo "w=%%I">>alphabet2.txt  
if !zeile_nr!==51 @echo "x=%%I">>alphabet2.txt  
if !zeile_nr!==52 @echo "y=%%I">>alphabet2.txt  
if !zeile_nr!==53 @echo "z=%%I">>alphabet2.txt  
if !zeile_nr!==54 @echo "0=%%I">>alphabet2.txt  
if !zeile_nr!==55 @echo "1=%%I">>alphabet2.txt  
if !zeile_nr!==56 @echo "2=%%I">>alphabet2.txt  
if !zeile_nr!==57 @echo "3=%%I">>alphabet2.txt  
if !zeile_nr!==58 @echo "4=%%I">>alphabet2.txt  
if !zeile_nr!==59 @echo "5=%%I">>alphabet2.txt  
if !zeile_nr!==60 @echo "6=%%I">>alphabet2.txt  
if !zeile_nr!==61 @echo "7=%%I">>alphabet2.txt  
if !zeile_nr!==62 @echo "8=%%I">>alphabet2.txt  
if !zeile_nr!==63 @echo "9=%%I">>alphabet2.txt  
set /a zeile_nr+=1
)
del "alphabet.txt"  
for /F "delims=" %%I in (alphabet2.txt) do @echo\%%~I>>"alphabet.txt"  
del "alphabet2.txt"  

set "ctext=ctext.txt"  
for /f "delims=" %%I in (ktext.txt) do set text=!text!_%%I  
set text=%text:~1%_
set "alphabet=alphabet.txt"  
if exist %ctext% del %ctext%

set "Code="  
:Loop_codieren2
if "%Text%"=="" goto :fertig  
set "Char=%Text:~,1%"  
if "%Char%"=="_" goto naechste_zeile  
for /f "tokens=1-2 delims==" %%i in ('findstr /c:"%Char%=" "%alphabet%"') do set "CodeChar=%%j"  
if not defined CodeChar (echo "%Char%" nicht gefunden! & goto :fertig)  
set "Text=%Text:~1%"  
set "Code=%Code%%CodeChar%"  
goto :Loop_codieren2

:naechste_zeile
echo\%Code%>>"%ctext%"  
set "Code="  
set "Text=%Text:~1%"  
goto loop_codieren2

:fertig
del alphabet.txt
if exist "ktext.txt" del "ktext.txt"  
ren "ctext.txt" "ktext.txt"  
pause