Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Zwei verschachtelte for-Schleifen

Frage Entwicklung Batch & Shell

Mitglied: mathe172

mathe172 (Level 1) - Jetzt verbinden

19.06.2010, aktualisiert 16:56 Uhr, 7766 Aufrufe, 11 Kommentare

Hallo zusammen!

Ich leider gleich einen Berg Probleme.

Hier der Inhalt meiner Dateien:

Code.bat:
01.
@echo on & setlocal enabledelayedexpansion 
02.
pause 
03.
for /F "delims=" %%I in (split.txt) do ( 
04.
	if %%I==a ( 
05.
		for /f "skip=0 delims=" %%J in (alphabet.txt) do ( 
06.
			@echo %%J>>ctest.txt 
07.
			break 
08.
09.
		pause 
10.
11.
12.
pause
Die Zeilen 4 und 5 würde ich wenn alles funktioniert für alle anderen Buchstaben und Zeichen wiederholen.
Also etwa:
01.
if %%I==a ( 
02.
	for /f "skip=0 delims=" %%J in (alphabet.txt) do ( 
03.
if %%I==b ( 
04.
	for /f "skip=1 delims=" %%J in (alphabet.txt) do ( 
05.
 
06.
if %%I==c ( 
07.
	for /f "skip=2 delims=" %%J in (alphabet.txt) do ( 
08.
 
09.
10.
11.
12.
 
13.
if %%I==8 ( 
14.
	for /f "skip=35 delims=" %%J in (alphabet.txt) do ( 
15.
if %%I==9 ( 
16.
	for /f "skip=36 delims=" %%J in (alphabet.txt) do (
Damit soll erreicht werden, dass jedes Zeichen durch ein bestimmtes anderes Zeichen ersetzt wird.
(z.B. a durch das erste in der Datei Alphabet.txt b durch das zweite ...)

Die Datei Alphabet.txt enthält:
    • die Grossbuchstaben von A-Z
    • die Zahlen von 0-9
    • das Zeichen _

Pro Zeile ist immer ein Zeichen, jedes Zeichen kommt nur einmal vor.
Die Reihenfolge ist dabei verschieden.

Die Datei split.txt enthält dieselben Zeichen jedoch nicht immer alle und in nicht definierter Anzahl.
Sie wird von der Datei Split.bat erzeugt.

Split.bat:
01.
@echo on & setlocal enabledelayedexpansion 
02.
for /F "delims=" %%I in (ktext.txt) do set text=%%I 
03.
set /a stellen_split=0 
04.
:loop_split 
05.
set "char_split=!text:~%stellen_split%,1!" 
06.
if "%char_split%"=="" goto :weiter_split 
07.
echo "%char_split%">>split2.txt 
08.
set /a stellen_split+=1 
09.
goto :loop_split 
10.
:weiter_split 
11.
if exist "split.txt" del "split.txt" 
12.
for /F "delims=" %%I in (split2.txt) do @echo %%~I>>"split.txt" 
13.
del "split2.txt" 
14.
pause
Die Datei ktext.txt enthält einen einzeiligen Text aus den vorhin schon genannten Zeichen.
Die Datei Split.bat soll nun jedes Zeichen in eine neue Zeile schreiben, womit ich schon das erste Problem hätte. Alles funktioniert zwar wunderbar, jedoch musste ich die Leerzeichen in ktext.txt durch "_" ersetzen, da die Datei sonst immer in split.txt schrieb:
"ECHO ist eingeschaltet (ON).".

Das zweite Problem ist in der Datei Code.bat. Sie schreibt leider nichts in die Datei ctest.txt, auch wenn das Zeichen in split.txt ein A ist.
Sie kapiert aber dass ein a in der split.bat steht denn sie wartet nach jedem a auf einen Tastendruck. Leider werde ich aus dem Text, der beim ausführen von Code.bat ausgegeben wird, nicht so schlau.

Der Text wäre:
01.
C:\Bat >pause 
02.
Drücken sie eine beliebige Taste... 
03.
 
04.
C:\Bat >for /F "delims=" %I in (split.txt) do (if %I == a ( 
05.
for /F "skip=0 delims=" %J in (alphabet.txt) do ( 
06.
 
07.
 break 
08.
09.
 pause 
10.
) ) 
11.
 
12.
C:\Bat >(if m == a ( 
13.
for /F "skip=0 delims=" %J in (alphabet.txt) do ( 
14.
 
15.
 break 
16.
17.
 pause 
18.
) ) 
19.
 
20.
C:\Bat >(if a == a ( 
21.
for /F "skip=0 delims=" %J in (alphabet.txt) do ( 
22.
 
23.
 break 
24.
25.
 pause 
26.
) ) 
27.
" delims="" ist syntaktisch an dieser Stelle nicht verarbeitbar. 
28.
Drücken sie eine beliebige Taste...
Was ich nicht verstehe ist, warum der Befehl "@echo %%J>>ctest.txt" weder angezeigt noch ausgeführt wird. Das andere was mich wundert ist wieso " " delims="" ist syntaktisch an dieser Stelle nicht verarbeitbar. " nur jeweils beim letzen mal vor dem pause-Befehl angezeigt wird.

LG

Mathe172
Mitglied: bastla
19.06.2010 um 18:37 Uhr
Hallo mathe172 und willkommen im Forum!
warum der Befehl "@echo %%J>>ctest.txt" weder angezeigt noch ausgeführt wird.
Zumindest Teil 1 der Frage ist leicht zu beantworten: Ein "@" vor dem Befehl verhindert, dass dieser angezeigt wird (hast Du Dich noch nie gefragt, warum das zumeist vor dem "echo off" am Anfang eines Batches verwendet wird?) ...

Zu "ECHO ist eingeschaltet (ON).":
Ändere die Zeile 12 auf
for /F "delims=" %%I in (split2.txt) do @echo\%%~I>>"split.txt" 
Schwieriger wird schon, was Du mit der "code.bat" vorhast - um tatsächlich für "a" das 1. und für "f" das 6. Zeichen aus der "alphabet.txt" zu holen, wird die Schleifenkonstruktion so nicht funktionieren, da zwar immer an der richtigen Stelle angefangen würde (außer für das "a", da "skip=0" den zitierten Syntaxfehler liefert), aber die Schleife läuft ja immer bis zur letzten Zeile der "alphabet.txt" durch ...

Abgesehen davon, dass es einfacher wäre, alle Zeichen der "alphabet.txt" in eine Variable %alphabet% zu schreiben und dann nur noch einen 1 Zeichen langen Teilstring daraus (ab der jeweils richtigen Position) zu verwenden, also etwa:
01.
for /F "delims=" %%I in (split.txt) do ( 
02.
    if %%I==a echo %alphabet:~0,1% 
03.
    if %%I==b echo %alphabet:~1,1% 
04.
    if %%I==c echo %alphabet:~2,1% 
05.
    if %%I==d echo %alphabet:~3,1% 
06.
    if %%I==e echo %alphabet:~4,1% 
07.
    if %%I==f echo %alphabet:~5,1% 
08.
 
09.
    if %%I==_ echo %alphabet:~36,1% 
10.
)>>ctest.txt 
11.
pause 
12.
goto :eof
sind das ja alles nur technische Fragen zu Deinem bisherigen Ansatz (der vermutich noch Optimierungspotenzial hat); was willst Du denn eigentlich im Endeffekt erreichen (bzw wie sähe der "Vorher-Nachher"-Vergleich aus)?

Grüße
bastla
Bitte warten ..
Mitglied: mathe172
19.06.2010 um 18:55 Uhr
Danke schonmal für die Antwort!

Das mit der alphabet-variable und dem @echo\%%~I>>"split.txt" werd ich gleich mal ausprobieren...

Und zu deiner Frage was das ganze soll, ich will mithilfe von einstellbaaren Zahlen einen Schlüssel und die Buchstabenreihenfolge im Alphabet.txt(oder halt in der Variable) errechnen. Mit diesem Alphabet soll er nun einen Text verschlüsseln/entschlüsseln.

Zu deinem Beitrag hätte ich auch noch zwei Fragen. Ist das mit dem @echo\.. Befehl eine Art Parameter der das Schreiben von Leerzeichen in Datein ermöglicht? Und das zweite: Kann man das mit dem
if %%I==_ echo %alphabet:~36,1%
)>>ctest.txt
pause
goto :eof
</code>
Geht das so dass man das >>ctest.txt nach der Klammer schreiben kann?


Mathe172
Bitte warten ..
Mitglied: bastla
19.06.2010 um 19:02 Uhr
Hallo mathe172!
Ist das mit dem @echo\.. Befehl eine Art Parameter der das Schreiben von Leerzeichen in Datein ermöglicht?
Neben dem "klassischen"
echo.
können auch einige weitere Zeichen (zu denen neben "\" etwa auch "," oder "+" gehören) dazu verwendet werden, eine Leerzeile zu erzeugen oder eben eine Zeile mit einem oder mehreren Leerzeichen ...
Geht das so dass man das >>ctest.txt nach der Klammer schreiben kann?
Ich konnte das vorhin - und eigentlich egal, was ich jetzt antworte: entweder Du glaubst mir das (das hättest Du ja schon tun können), oder, besser, Du testest es einfach ...

Und zu deiner Frage was das ganze soll, ich will mithilfe von einstellbaaren Zahlen einen Schlüssel und die Buchstabenreihenfolge im Alphabet.txt(oder halt in der Variable) errechnen. Mit diesem Alphabet soll er nun einen Text verschlüsseln/entschlüsseln.
Eigentlich hatte ich (auch) gemeint, ob das gewünschte Ergebnis tatsächlich eine Datei mit zeilenweise angeordneten Zeichen sein soll ...

Grüße
bastla
Bitte warten ..
Mitglied: mathe172
19.06.2010 um 20:15 Uhr
Hallo bastla!

Zu deiner Frage: Ja am Schluss soll eine Datei mit einem Zeichen pro Zeile rauskommen. Diese werde ich dann versuchen mit einer for-Schleife in eine Zeile zu bringen. Was mir grad in den Sinn kommt ist, man könnte alle Zeichen in einer Variable die ständig ergänzt wird speichern und dann alles auf einmal in eine Datei schreben...Jetzt versuch ich erstmal den Rest zu schaffen. Wenn du eine bessere Idee hättest, würde ich mich natürlich freuen.

Mathe 172
Bitte warten ..
Mitglied: bastla
19.06.2010 um 21:08 Uhr
Hallo mathe172!

Du willst also eigentlich aus einer Zeile (in der Datei "ktext.txt") eine andere (codierte) Zeile erzeugen und in "ctest.txt" schreiben, wobei die Zuordnung der Zeichen aus der Datei "alphabet.txt" gelesen werden soll - wenn ja, dann wären die "split.bat" und die "split.txt" entbehrlich, und ein an Deinen Entwurf angelehnter Ansatz könnte so aussehen:
01.
@echo off & setlocal 
02.
set "CodeFile=ctest.txt" 
03.
set /p Text=<ktext.txt 
04.
set /p Alpha=<alphabet.txt 
05.
set "Char=abcdefghijklmnopqrstuvwxyz0123456789 " 
06.
 
07.
  echo %Text% 
08.
  echo %Alpha% 
09.
 
10.
set "Code=" 
11.
:Loop 
12.
if "%Text%"=="" goto :Done 
13.
set "Char=%Text:~,1%" 
14.
    echo\%Char% 
15.
if "%Char%"=="a" set "Code=%Code%%Alpha:~0,1%" 
16.
if "%Char%"=="b" set "Code=%Code%%Alpha:~1,1%" 
17.
if "%Char%"=="c" set "Code=%Code%%Alpha:~2,1%" 
18.
if "%Char%"=="d" set "Code=%Code%%Alpha:~3,1%" 
19.
if "%Char%"=="e" set "Code=%Code%%Alpha:~4,1%" 
20.
if "%Char%"=="f" set "Code=%Code%%Alpha:~5,1%" 
21.
... 
22.
if "%Char%"==" " set "Code=%Code%%Alpha:~36,1%" 
23.
set "Text=%Text:~1%" 
24.
  echo\%Text% 
25.
  echo\%Code% 
26.
goto :Loop 
27.
 
28.
:Done 
29.
>"%CodeFile%" echo\%Code%
Die eingerückten "echo"-Zeilen sind für das Debuggen/Nachvollziehen gedacht.

Ich habe die einzelnen Zeichen der "alphabet.txt" der Einfachheit halber in einer einzigen Zeile zusammengefasst - der Dateiinhalt sähe dann zB so aus:
2JOCXSAT3U5VN1FMGQKZR0P68WD7Y9HIE 4BL
Soferne die "alphabet.txt" auch so aussehen dürfte (ich habe sie in diesem Format "match.txt" genannt):
01.
a=2 
02.
b=J 
03.
c=O 
04.
d=C 
05.
e=X 
06.
f=S 
07.
g=A 
08.
h=T 
09.
i=3 
10.
j=U 
11.
k=5 
12.
l=V 
13.
m=N 
14.
n=1 
15.
o=F 
16.
p=M 
17.
q=G 
18.
r=Q 
19.
s=K 
20.
t=Z 
21.
u=R 
22.
v=0 
23.
w=P 
24.
x=6 
25.
y=8 
26.
z=W 
27.
0=D 
28.
1=7 
29.
2=Y 
30.
3=9 
31.
4=H 
32.
5=I 
33.
6=E 
34.
7=_ 
35.
8=4 
36.
9=B 
37.
 =L
fände ich
01.
@echo off & setlocal 
02.
set "CodeFile=ctest.txt" 
03.
set /p Text=<ktext.txt 
04.
set "Match=match.txt" 
05.
 
06.
  echo %Text% 
07.
 
08.
set "Code=" 
09.
:Loop 
10.
if "%Text%"=="" goto :Done 
11.
set "Char=%Text:~,1%" 
12.
for /f "tokens=1-2 delims==" %%i in ('findstr "%Char%=" "%Match%"') do set "CodeChar=%%j" 
13.
if not defined CodeChar (echo "%Char%" nicht gefunden! & goto :eof) 
14.
set "Code=%Code%%CodeChar%" 
15.
set "Text=%Text:~1%" 
16.
  echo\%Text% 
17.
  echo\%Code% 
18.
goto :Loop 
19.
 
20.
:Done 
21.
>"%CodeFile%" echo\%Code%
etwas eleganter ...

Grüße
bastla
Bitte warten ..
Mitglied: mathe172
20.06.2010 um 11:53 Uhr
Hallo Bastla!

Die Idee mit der modifizierten Alphabetdatei finde ich genial! Ich werd gleich mal versuchen die Datei die alphabet.txt erstellt zu verändern.
Zu deinem Vorschlag: Könntest du mir bitte die Funktionsweise von den "" beim set-Befehl, dem set /p Text=<ktext.txt und dem findstr erklären?

Mathe172
Bitte warten ..
Mitglied: bastla
20.06.2010 um 12:06 Uhr
Hallo mathe172!

Könntest du mir bitte die Funktionsweise
von den "" beim set-Befehl,
Durch das Setzen dieser Anführungszeichen wird zB vernindert, dass unbeabsichtigt ein oder mehrere Leerzeichen am Ende der Zeile mit in den Variableninhalt aufgenommen werden - muss daher nicht unbedingt sein, schadet aber idR nicht ...
dem set /p Text=<ktext.txt und
Einfachste Möglichkeit, die erste Zeile einer Datei in eine Variable einzulesen - "set /p" erwartet eine (per Enter abgeschlossene) Eingabe, die in diesem Fall per Umleitung (deshalb das "<") eben nicht aus der Konsole (Tastatur), sondern aus der Datei kommt (und den Teil der Datei bis zum ersten Enter = erste Zeilenschaltung und im Ergebnis daher erste Zeile ergibt).
dem findstr erklären?
"findstr" sucht in der angegebenen Datei nach allen Vorkommen des Suchstrings und gibt jede Zeile, die diesen String enthält, als Ergebnis zurück - deshalb muss zum Einen dafür gesorgt werden, dass nur die Zeichen auf der linken Seite gefunden werden (daher wird nicht nach "a", sondern nach "a=" gesucht - Alternative wäre die Vorgabe, nur am Zeilenanfang zu suchen), zum Anderen muss die zurückgegebene Zeile noch zerlegt werden (mit "=" als Trennzeichen) - darum die "herumgewickelte" Schleife ...

In der Variablen %CodeChar% landet alles, was in der letzten Zeile, welche "gesuchtes Zeichen=" enthält, nach dem "=" steht - bei korrekter "match.txt" ist das dann genau eine Zeile.

Grüße
bastla
Bitte warten ..
Mitglied: mathe172
20.06.2010 um 12:25 Uhr
Hallo Bastla!

Mit der umschreibung komm ich soweit gut zurecht, ich habe allerdings ein seltsames Problem.
Hier funktioniert das erhöhen um 1 ohne Probleme:
01.
@echo off & setlocal enabledelayedexpansion 
02.
set /a zeilen=0 
03.
for /F "delims=" %%I in (ktext.txt) do ( 
04.
	if not %%I=="" set /a zeilen+=1 
05.
)
Aber in dieser Datei irgendwie nicht:
01.
@echo on & setlocal enabledelayedexpansion 
02.
... 
03.
set /a zeile_nr=1 
04.
pause 
05.
for /F "delims=" %%I in (alphabet.txt)do ( 
06.
if %zeile_nr%==1 @echo "A=%%I">>alphabet2.txt 
07.
if %zeile_nr%==2 @echo "B=%%I">>alphabet2.txt 
08.
... 
09.
if %zeile_nr%==37 @echo "9=%%I">>alphabet2.txt 
10.
set /a zeile_nr+=1 
11.
echo %zeile_nr% 
12.
pause 
13.
14.
del "alphabet.txt" 
15.
for /F "delims=" %%I in (alphabet2.txt) do @echo\%%~I>>"alphabet.txt" 
16.
del "alphabet2.txt" 
17.
pause
Weisst du wieso?

Mathe172

Edit: Problem gelöst, hab %zeile_nr% in
01.
if %zeile_nr%==1 @echo "A=%%I">>alphabet2.txt
durch !zeile_nr! ersetzt.
Weiss aber immer nocht nicht warum es beim anderen funktioniert ??
Bitte warten ..
Mitglied: mathe172
20.06.2010 um 15:29 Uhr
Hallo bastla

nachdem ich jetzt alles umgeschrieben habe, funktioniert alles wunderbar! Bis auf etwas (ist bei mir leider immer so dass etwas nicht tut...):
der Befehl
01.
'findstr "%Char%=" "%alphabet%"'
funktioniert zwar, jedoch findet er für %char%=" " (also leerzeichen) alles und setzt dann das letzte was er gefunden hat ein.
Gibt es irgendeinen parameter mit dem ich das umgehen kann?

Grüsse

Mathe172
Bitte warten ..
Mitglied: bastla
20.06.2010 um 15:45 Uhr
Hallo mathe172!

Sorry - da das Leerzeichen bei meinem Ansatz in der letzten Zeile der "match.txt"/"alphabet.txt" steht und daher trotzdem eine richtige Zuordnung erfolgt, hatte ich nicht darauf geachtet ...

Mit einem zusätzlichen "/c:" wird aber dann auch tatsächlich genau gesucht, daher:
for /f "tokens=1-2 delims==" %%i in ('findstr /c:"%Char%=" "%Match%"') do set "CodeChar=%%j"
Grüße
bastla
Bitte warten ..
Mitglied: mathe172
20.06.2010 um 19:06 Uhr
Hallo Bastla!

Danke für die viel Hilfe bei meinem Programm. Falls es dich interresiert, hier wären noch die Endergebnisse:

Der zu (de)codierende Text muss in ktext.txt stehen. Das Ergebnis ist dann ebenfalls in ktext.txt, den in Codierung.bat genannte Schlüssel ist das einzige was man aufschreiben muss. Die Paare kann man vergessen.

Codierung.bat:
01.
@echo off & setlocal enabledelayedexpansion 
02.
:paare_falsch 
03.
set /p paare="Wieviele Paare soll der Schluessel haben?(1-9) " 
04.
set /a paare=%paare% 
05.
if %paare%==1 goto paare_ok 
06.
if %paare%==2 goto paare_ok 
07.
if %paare%==3 goto paare_ok 
08.
if %paare%==4 goto paare_ok 
09.
if %paare%==5 goto paare_ok 
10.
if %paare%==6 goto paare_ok 
11.
if %paare%==7 goto paare_ok 
12.
if %paare%==8 goto paare_ok 
13.
if %paare%==9 goto paare_ok 
14.
goto paare_falsch 
15.
:paare_ok 
16.
set /a paar_nr=0 
17.
:naechstes_paar 
18.
set /a paar_nr+=1 
19.
set Schluessel_Teil_2=%Schluessel_Teil_2%%Zeichen_Teil_n% 
20.
:a_falsch 
21.
set /p a="Bitte erste Zahl des %paar_nr%. Paares eingeben(1-63): " 
22.
if %a%==1 goto a_ok 
23.
if %a%==2 goto a_ok 
24.
if %a%==3 goto a_ok 
25.
if %a%==4 goto a_ok 
26.
if %a%==5 goto a_ok 
27.
if %a%==6 goto a_ok 
28.
if %a%==7 goto a_ok 
29.
if %a%==8 goto a_ok 
30.
if %a%==9 goto a_ok 
31.
if %a%==10 goto a_ok 
32.
if %a%==11 goto a_ok 
33.
if %a%==12 goto a_ok 
34.
if %a%==13 goto a_ok 
35.
if %a%==14 goto a_ok 
36.
if %a%==15 goto a_ok 
37.
if %a%==16 goto a_ok 
38.
if %a%==17 goto a_ok 
39.
if %a%==18 goto a_ok 
40.
if %a%==19 goto a_ok 
41.
if %a%==20 goto a_ok 
42.
if %a%==21 goto a_ok 
43.
if %a%==22 goto a_ok 
44.
if %a%==23 goto a_ok 
45.
if %a%==24 goto a_ok 
46.
if %a%==25 goto a_ok 
47.
if %a%==26 goto a_ok 
48.
if %a%==27 goto a_ok 
49.
if %a%==28 goto a_ok 
50.
if %a%==29 goto a_ok 
51.
if %a%==30 goto a_ok 
52.
if %a%==31 goto a_ok 
53.
if %a%==32 goto a_ok 
54.
if %a%==33 goto a_ok 
55.
if %a%==34 goto a_ok 
56.
if %a%==35 goto a_ok 
57.
if %a%==36 goto a_ok 
58.
if %a%==37 goto a_ok 
59.
if %a%==38 goto a_ok 
60.
if %a%==39 goto a_ok 
61.
if %a%==40 goto a_ok 
62.
if %a%==41 goto a_ok 
63.
if %a%==42 goto a_ok 
64.
if %a%==43 goto a_ok 
65.
if %a%==44 goto a_ok 
66.
if %a%==45 goto a_ok 
67.
if %a%==46 goto a_ok 
68.
if %a%==47 goto a_ok 
69.
if %a%==48 goto a_ok 
70.
if %a%==49 goto a_ok 
71.
if %a%==50 goto a_ok 
72.
if %a%==51 goto a_ok 
73.
if %a%==52 goto a_ok 
74.
if %a%==53 goto a_ok 
75.
if %a%==54 goto a_ok 
76.
if %a%==55 goto a_ok 
77.
if %a%==56 goto a_ok 
78.
if %a%==57 goto a_ok 
79.
if %a%==58 goto a_ok 
80.
if %a%==59 goto a_ok 
81.
if %a%==60 goto a_ok 
82.
if %a%==61 goto a_ok 
83.
if %a%==62 goto a_ok 
84.
if %a%==63 goto a_ok 
85.
goto a_falsch 
86.
:a_ok 
87.
set /a a=%a% 
88.
:b_falsch 
89.
set /p b="Bitte zweite Zahl des %paar_nr%. Paares eingeben(1-63;ungleich %a%): " 
90.
if %b%==%a% goto b_falsch 
91.
if %b%==1 goto b_ok 
92.
if %b%==2 goto b_ok 
93.
if %b%==3 goto b_ok 
94.
if %b%==4 goto b_ok 
95.
if %b%==5 goto b_ok 
96.
if %b%==6 goto b_ok 
97.
if %b%==7 goto b_ok 
98.
if %b%==8 goto b_ok 
99.
if %b%==9 goto b_ok 
100.
if %b%==10 goto b_ok 
101.
if %b%==11 goto b_ok 
102.
if %b%==12 goto b_ok 
103.
if %b%==13 goto b_ok 
104.
if %b%==14 goto b_ok 
105.
if %b%==15 goto b_ok 
106.
if %b%==16 goto b_ok 
107.
if %b%==17 goto b_ok 
108.
if %b%==18 goto b_ok 
109.
if %b%==19 goto b_ok 
110.
if %b%==20 goto b_ok 
111.
if %b%==21 goto b_ok 
112.
if %b%==22 goto b_ok 
113.
if %b%==23 goto b_ok 
114.
if %b%==24 goto b_ok 
115.
if %b%==25 goto b_ok 
116.
if %b%==26 goto b_ok 
117.
if %b%==27 goto b_ok 
118.
if %b%==28 goto b_ok 
119.
if %b%==29 goto b_ok 
120.
if %b%==30 goto b_ok 
121.
if %b%==31 goto b_ok 
122.
if %b%==32 goto b_ok 
123.
if %b%==33 goto b_ok 
124.
if %b%==34 goto b_ok 
125.
if %b%==35 goto b_ok 
126.
if %b%==36 goto b_ok 
127.
if %b%==37 goto b_ok 
128.
if %b%==38 goto b_ok 
129.
if %b%==39 goto b_ok 
130.
if %b%==40 goto b_ok 
131.
if %b%==41 goto b_ok 
132.
if %b%==42 goto b_ok 
133.
if %b%==43 goto b_ok 
134.
if %b%==44 goto b_ok 
135.
if %b%==45 goto b_ok 
136.
if %b%==46 goto b_ok 
137.
if %b%==47 goto b_ok 
138.
if %b%==48 goto b_ok 
139.
if %b%==49 goto b_ok 
140.
if %b%==50 goto b_ok 
141.
if %b%==51 goto b_ok 
142.
if %b%==52 goto b_ok 
143.
if %b%==53 goto b_ok 
144.
if %b%==54 goto b_ok 
145.
if %b%==55 goto b_ok 
146.
if %b%==56 goto b_ok 
147.
if %b%==57 goto b_ok 
148.
if %b%==58 goto b_ok 
149.
if %b%==59 goto b_ok 
150.
if %b%==60 goto b_ok 
151.
if %b%==61 goto b_ok 
152.
if %b%==62 goto b_ok 
153.
if %b%==63 goto b_ok 
154.
goto b_falsch 
155.
:b_ok 
156.
set /a b=%b% 
157.
set  /a Teil_n=(%a%-1)*63+%b% 
158.
set /a Zeichen_Teil_n=0 
159.
:Loop 
160.
set "Char=!Teil_n:~%Zeichen_Teil_n%,1!" 
161.
if "%Char%"=="" goto :Weiter 
162.
set /a Zeichen_Teil_n+=1 
163.
goto :Loop 
164.
:Weiter 
165.
set Schluessel_Teil_1=%Schluessel_Teil_1%%Teil_n% 
166.
 
167.
if not %paar_nr%==%paare% goto :naechstes_paar 
168.
set /a paare+=-1 
169.
set Schluessel=%Schluessel_Teil_1%%Schluessel_Teil_2%%paare% 
170.
echo Schluessel:%schluessel% 
171.
 
172.
 
173.
:Loop_schluessel 
174.
set "Char_key=!Schluessel:~%stellen%,1!" 
175.
if "%Char_key%"=="" goto :Weiter_schluessel 
176.
set /a stellen+=1 
177.
goto :Loop_schluessel 
178.
:Weiter_schluessel 
179.
set /a paare_schluessel=%schluessel:~-1,1% 
180.
set /a nr_paar_n=0 
181.
set /a verbraucht=0 
182.
if 0==%paare_schluessel% goto letztes_paar 
183.
set /a ort_paar_n=%stellen%-%paare_schluessel%-1 
184.
set /a nr_paar_n=1 
185.
:naechstes_paar_schluessel 
186.
set /a stellen_paar_n=!schluessel:~%ort_paar_n%,1! 
187.
set paar_n=!schluessel:~%verbraucht%,%stellen_paar_n%! 
188.
set /a a=%paar_n%/63+1 
189.
set /a b=%paar_n%-63*(%a%-1) 
190.
 
191.
if exist "alphabet.txt" del "alphabet.txt" 
192.
if not %a% lss %b% goto a_groesser_b 
193.
 
194.
set /a Abbruch_1_1=%b%-%a%+1 
195.
set /a Abbruch_1_2=%b%-%a% 
196.
set /a Abbruch_1_3=%b% 
197.
 
198.
set /a zeichen_alpha=%b%-1 
199.
:abschnitt_1_1  
200.
@echo "%zeichen_alpha%">>alphabet.txt 
201.
if %zeichen_alpha%==%Abbruch_1_1% goto weiter_1_1 
202.
set /a zeichen_alpha=%zeichen_alpha%-1 
203.
goto abschnitt_1_1 
204.
 
205.
:weiter_1_1 
206.
set /a zeichen_alpha=1 
207.
:abschnitt_1_2 
208.
@echo "%zeichen_alpha%">>alphabet.txt 
209.
if %zeichen_alpha%==%Abbruch_1_2% goto weiter_1_2 
210.
set /a zeichen_alpha=%zeichen_alpha%+1 
211.
goto abschnitt_1_2 
212.
 
213.
:weiter_1_2 
214.
set /a zeichen_alpha=63 
215.
:abschnitt_1_3 
216.
@echo "%zeichen_alpha%">>alphabet.txt 
217.
if %zeichen_alpha%==%Abbruch_1_3% goto weiter_1_3 
218.
set /a zeichen_alpha=%zeichen_alpha%-1 
219.
goto abschnitt_1_3 
220.
 
221.
:a_groesser_b 
222.
set /a Abbruch_2_1=63 
223.
set /a Abbruch_2_2=1 
224.
set /a Abbruch_2_3=63-%b% 
225.
 
226.
set /a zeichen_alpha=64-%b% 
227.
:abschnitt_2_1  
228.
@echo "%zeichen_alpha%">>alphabet.txt 
229.
if %zeichen_alpha%==%Abbruch_2_1% goto weiter_2_1 
230.
set /a zeichen_alpha=%zeichen_alpha%+1 
231.
goto abschnitt_2_1 
232.
 
233.
:weiter_2_1 
234.
set /a zeichen_alpha=%a%-%b% 
235.
:abschnitt_2_2 
236.
@echo "%zeichen_alpha%">>alphabet.txt 
237.
if %zeichen_alpha%==%Abbruch_2_2% goto weiter_2_2 
238.
set /a zeichen_alpha=%zeichen_alpha%-1 
239.
goto abschnitt_2_2 
240.
 
241.
:weiter_2_2 
242.
set /a zeichen_alpha=%a%-%b%+1 
243.
:abschnitt_2_3 
244.
@echo "%zeichen_alpha%">>alphabet.txt 
245.
if %zeichen_alpha%==%Abbruch_2_3% goto weiter_2_3 
246.
set /a zeichen_alpha=%zeichen_alpha%+1 
247.
goto abschnitt_2_3 
248.
 
249.
:weiter_1_3 
250.
:weiter_2_3 
251.
 
252.
if exist "alphabet2.txt" del "alphabet2.txt" 
253.
for /F "delims=" %%I in (alphabet.txt) do @echo %%~I>>"alphabet2.txt" 
254.
del "alphabet.txt" 
255.
for /F "delims=" %%I in (alphabet2.txt) do ( 
256.
if %%I==1 @echo "A">>alphabet.txt 
257.
if %%I==2 @echo "B">>alphabet.txt 
258.
if %%I==3 @echo "C">>alphabet.txt 
259.
if %%I==4 @echo "D">>alphabet.txt 
260.
if %%I==5 @echo "E">>alphabet.txt 
261.
if %%I==6 @echo "F">>alphabet.txt 
262.
if %%I==7 @echo "G">>alphabet.txt 
263.
if %%I==8 @echo "H">>alphabet.txt 
264.
if %%I==9 @echo "I">>alphabet.txt 
265.
if %%I==10 @echo "J">>alphabet.txt 
266.
if %%I==11 @echo "K">>alphabet.txt 
267.
if %%I==12 @echo "L">>alphabet.txt 
268.
if %%I==13 @echo "M">>alphabet.txt 
269.
if %%I==14 @echo "N">>alphabet.txt 
270.
if %%I==15 @echo "O">>alphabet.txt 
271.
if %%I==16 @echo "P">>alphabet.txt 
272.
if %%I==17 @echo "Q">>alphabet.txt 
273.
if %%I==18 @echo "R">>alphabet.txt 
274.
if %%I==19 @echo "S">>alphabet.txt 
275.
if %%I==20 @echo "T">>alphabet.txt 
276.
if %%I==21 @echo "U">>alphabet.txt 
277.
if %%I==22 @echo "V">>alphabet.txt 
278.
if %%I==23 @echo "W">>alphabet.txt 
279.
if %%I==24 @echo "X">>alphabet.txt 
280.
if %%I==25 @echo "Y">>alphabet.txt 
281.
if %%I==26 @echo "Z">>alphabet.txt 
282.
if %%I==27 @echo " ">>alphabet.txt 
283.
if %%I==28 @echo "a">>alphabet.txt 
284.
if %%I==29 @echo "b">>alphabet.txt 
285.
if %%I==30 @echo "c">>alphabet.txt 
286.
if %%I==31 @echo "d">>alphabet.txt 
287.
if %%I==32 @echo "e">>alphabet.txt 
288.
if %%I==33 @echo "f">>alphabet.txt 
289.
if %%I==34 @echo "g">>alphabet.txt 
290.
if %%I==35 @echo "h">>alphabet.txt 
291.
if %%I==36 @echo "i">>alphabet.txt 
292.
if %%I==37 @echo "j">>alphabet.txt 
293.
if %%I==38 @echo "k">>alphabet.txt 
294.
if %%I==39 @echo "l">>alphabet.txt 
295.
if %%I==40 @echo "m">>alphabet.txt 
296.
if %%I==41 @echo "n">>alphabet.txt 
297.
if %%I==42 @echo "o">>alphabet.txt 
298.
if %%I==43 @echo "p">>alphabet.txt 
299.
if %%I==44 @echo "q">>alphabet.txt 
300.
if %%I==45 @echo "r">>alphabet.txt 
301.
if %%I==46 @echo "s">>alphabet.txt 
302.
if %%I==47 @echo "t">>alphabet.txt 
303.
if %%I==48 @echo "u">>alphabet.txt 
304.
if %%I==49 @echo "v">>alphabet.txt 
305.
if %%I==50 @echo "w">>alphabet.txt 
306.
if %%I==51 @echo "x">>alphabet.txt 
307.
if %%I==52 @echo "y">>alphabet.txt 
308.
if %%I==53 @echo "z">>alphabet.txt 
309.
if %%I==54 @echo "0">>alphabet.txt 
310.
if %%I==55 @echo "1">>alphabet.txt 
311.
if %%I==56 @echo "2">>alphabet.txt 
312.
if %%I==57 @echo "3">>alphabet.txt 
313.
if %%I==58 @echo "4">>alphabet.txt 
314.
if %%I==59 @echo "5">>alphabet.txt 
315.
if %%I==60 @echo "6">>alphabet.txt 
316.
if %%I==61 @echo "7">>alphabet.txt 
317.
if %%I==62 @echo "8">>alphabet.txt 
318.
if %%I==63 @echo "9">>alphabet.txt 
319.
320.
if exist "alphabet2.txt" del "alphabet2.txt" 
321.
for /F "delims=" %%I in (alphabet.txt) do @echo\%%~I>>"alphabet2.txt" 
322.
del "alphabet.txt" 
323.
ren "alphabet2.txt" "alphabet.txt" 
324.
set /a zeile_nr=1 
325.
for /F "delims=" %%I in (alphabet.txt)do ( 
326.
if !zeile_nr!==1 @echo "A=%%I">>alphabet2.txt 
327.
if !zeile_nr!==2 @echo "B=%%I">>alphabet2.txt 
328.
if !zeile_nr!==3 @echo "C=%%I">>alphabet2.txt 
329.
if !zeile_nr!==4 @echo "D=%%I">>alphabet2.txt 
330.
if !zeile_nr!==5 @echo "E=%%I">>alphabet2.txt 
331.
if !zeile_nr!==6 @echo "F=%%I">>alphabet2.txt 
332.
if !zeile_nr!==7 @echo "G=%%I">>alphabet2.txt 
333.
if !zeile_nr!==8 @echo "H=%%I">>alphabet2.txt 
334.
if !zeile_nr!==9 @echo "I=%%I">>alphabet2.txt 
335.
if !zeile_nr!==10 @echo "J=%%I">>alphabet2.txt 
336.
if !zeile_nr!==11 @echo "K=%%I">>alphabet2.txt 
337.
if !zeile_nr!==12 @echo "L=%%I">>alphabet2.txt 
338.
if !zeile_nr!==13 @echo "M=%%I">>alphabet2.txt 
339.
if !zeile_nr!==14 @echo "N=%%I">>alphabet2.txt 
340.
if !zeile_nr!==15 @echo "O=%%I">>alphabet2.txt 
341.
if !zeile_nr!==16 @echo "P=%%I">>alphabet2.txt 
342.
if !zeile_nr!==17 @echo "Q=%%I">>alphabet2.txt 
343.
if !zeile_nr!==18 @echo "R=%%I">>alphabet2.txt 
344.
if !zeile_nr!==19 @echo "S=%%I">>alphabet2.txt 
345.
if !zeile_nr!==20 @echo "T=%%I">>alphabet2.txt 
346.
if !zeile_nr!==21 @echo "U=%%I">>alphabet2.txt 
347.
if !zeile_nr!==22 @echo "V=%%I">>alphabet2.txt 
348.
if !zeile_nr!==23 @echo "W=%%I">>alphabet2.txt 
349.
if !zeile_nr!==24 @echo "X=%%I">>alphabet2.txt 
350.
if !zeile_nr!==25 @echo "Y=%%I">>alphabet2.txt 
351.
if !zeile_nr!==26 @echo "Z=%%I">>alphabet2.txt 
352.
if !zeile_nr!==27 @echo " =%%I">>alphabet2.txt 
353.
if !zeile_nr!==28 @echo "a=%%I">>alphabet2.txt 
354.
if !zeile_nr!==29 @echo "b=%%I">>alphabet2.txt 
355.
if !zeile_nr!==30 @echo "c=%%I">>alphabet2.txt 
356.
if !zeile_nr!==31 @echo "d=%%I">>alphabet2.txt 
357.
if !zeile_nr!==32 @echo "e=%%I">>alphabet2.txt 
358.
if !zeile_nr!==33 @echo "f=%%I">>alphabet2.txt 
359.
if !zeile_nr!==34 @echo "g=%%I">>alphabet2.txt 
360.
if !zeile_nr!==35 @echo "h=%%I">>alphabet2.txt 
361.
if !zeile_nr!==36 @echo "i=%%I">>alphabet2.txt 
362.
if !zeile_nr!==37 @echo "j=%%I">>alphabet2.txt 
363.
if !zeile_nr!==38 @echo "k=%%I">>alphabet2.txt 
364.
if !zeile_nr!==39 @echo "l=%%I">>alphabet2.txt 
365.
if !zeile_nr!==40 @echo "m=%%I">>alphabet2.txt 
366.
if !zeile_nr!==41 @echo "n=%%I">>alphabet2.txt 
367.
if !zeile_nr!==42 @echo "o=%%I">>alphabet2.txt 
368.
if !zeile_nr!==43 @echo "p=%%I">>alphabet2.txt 
369.
if !zeile_nr!==44 @echo "q=%%I">>alphabet2.txt 
370.
if !zeile_nr!==45 @echo "r=%%I">>alphabet2.txt 
371.
if !zeile_nr!==46 @echo "s=%%I">>alphabet2.txt 
372.
if !zeile_nr!==47 @echo "t=%%I">>alphabet2.txt 
373.
if !zeile_nr!==48 @echo "u=%%I">>alphabet2.txt 
374.
if !zeile_nr!==49 @echo "v=%%I">>alphabet2.txt 
375.
if !zeile_nr!==50 @echo "w=%%I">>alphabet2.txt 
376.
if !zeile_nr!==51 @echo "x=%%I">>alphabet2.txt 
377.
if !zeile_nr!==52 @echo "y=%%I">>alphabet2.txt 
378.
if !zeile_nr!==53 @echo "z=%%I">>alphabet2.txt 
379.
if !zeile_nr!==54 @echo "0=%%I">>alphabet2.txt 
380.
if !zeile_nr!==55 @echo "1=%%I">>alphabet2.txt 
381.
if !zeile_nr!==56 @echo "2=%%I">>alphabet2.txt 
382.
if !zeile_nr!==57 @echo "3=%%I">>alphabet2.txt 
383.
if !zeile_nr!==58 @echo "4=%%I">>alphabet2.txt 
384.
if !zeile_nr!==59 @echo "5=%%I">>alphabet2.txt 
385.
if !zeile_nr!==60 @echo "6=%%I">>alphabet2.txt 
386.
if !zeile_nr!==61 @echo "7=%%I">>alphabet2.txt 
387.
if !zeile_nr!==62 @echo "8=%%I">>alphabet2.txt 
388.
if !zeile_nr!==63 @echo "9=%%I">>alphabet2.txt 
389.
set /a zeile_nr+=1 
390.
391.
del "alphabet.txt" 
392.
for /F "delims=" %%I in (alphabet2.txt) do @echo\%%~I>>"alphabet.txt" 
393.
del "alphabet2.txt" 
394.
 
395.
set "ctext=ctext.txt" 
396.
for /f "delims=" %%I in (ktext.txt) do set text=!text!_%%I 
397.
set text=%text:~1%_ 
398.
set "alphabet=alphabet.txt" 
399.
if exist %ctext% del %ctext% 
400.
 
401.
set "Code=" 
402.
:Loop_codieren 
403.
if "%Text%"=="" goto :fertig 
404.
set "Char=%Text:~,1%" 
405.
if "%Char%"=="_" goto naechste_zeile 
406.
for /f "tokens=1-2 delims==" %%i in ('findstr /c:"%Char%=" "%alphabet%"') do set "CodeChar=%%j" 
407.
if not defined CodeChar (echo "%Char%" nicht gefunden! & goto :fertig) 
408.
set "Text=%Text:~1%" 
409.
set "Code=%Code%%CodeChar%" 
410.
goto :Loop_codieren 
411.
 
412.
:naechste_zeile 
413.
echo\%Code%>>"%ctext%" 
414.
set "Code=" 
415.
set "Text=%Text:~1%" 
416.
goto loop_codieren 
417.
 
418.
:fertig 
419.
if exist "ktext.txt" del "ktext.txt" 
420.
ren "ctext.txt" "ktext.txt" 
421.
 
422.
set /a verbraucht=%verbraucht%+%stellen_paar_n% 
423.
if %nr_paar_n%==%paare_schluessel% goto letztes_paar 
424.
set /a ort_paar_n=%ort_paar_n%+1 
425.
set /a nr_paar_n=%nr_paar_n%+1 
426.
goto naechstes_paar_schluessel 
427.
:letztes_paar 
428.
set /a nr_paar_n=%nr_paar_n%+1 
429.
set /a stellen_paar_n=%stellen%-%paare_schluessel%-%verbraucht%-1 
430.
set paar_n=!schluessel:~%verbraucht%,%stellen_paar_n%! 
431.
set /a a=%paar_n%/63+1 
432.
set /a b=%paar_n%-63*(%a%-1) 
433.
 
434.
if exist "alphabet.txt" del "alphabet.txt" 
435.
if not %a% lss %b% goto a_groesser_b 
436.
 
437.
set /a Abbruch_1_1=%b%-%a%+1 
438.
set /a Abbruch_1_2=%b%-%a% 
439.
set /a Abbruch_1_3=%b% 
440.
 
441.
set /a zeichen_alpha=%b%-1 
442.
:abschnitt_1_1  
443.
@echo "%zeichen_alpha%">>alphabet.txt 
444.
if %zeichen_alpha%==%Abbruch_1_1% goto weiter_1_1 
445.
set /a zeichen_alpha=%zeichen_alpha%-1 
446.
goto abschnitt_1_1 
447.
 
448.
:weiter_1_1 
449.
set /a zeichen_alpha=1 
450.
:abschnitt_1_2 
451.
@echo "%zeichen_alpha%">>alphabet.txt 
452.
if %zeichen_alpha%==%Abbruch_1_2% goto weiter_1_2 
453.
set /a zeichen_alpha=%zeichen_alpha%+1 
454.
goto abschnitt_1_2 
455.
 
456.
:weiter_1_2 
457.
set /a zeichen_alpha=63 
458.
:abschnitt_1_3 
459.
@echo "%zeichen_alpha%">>alphabet.txt 
460.
if %zeichen_alpha%==%Abbruch_1_3% goto weiter_1_3 
461.
set /a zeichen_alpha=%zeichen_alpha%-1 
462.
goto abschnitt_1_3 
463.
 
464.
:a_groesser_b 
465.
set /a Abbruch_2_1=63 
466.
set /a Abbruch_2_2=1 
467.
set /a Abbruch_2_3=63-%b% 
468.
 
469.
set /a zeichen_alpha=64-%b% 
470.
:abschnitt_2_1  
471.
@echo "%zeichen_alpha%">>alphabet.txt 
472.
if %zeichen_alpha%==%Abbruch_2_1% goto weiter_2_1 
473.
set /a zeichen_alpha=%zeichen_alpha%+1 
474.
goto abschnitt_2_1 
475.
 
476.
:weiter_2_1 
477.
set /a zeichen_alpha=%a%-%b% 
478.
:abschnitt_2_2 
479.
@echo "%zeichen_alpha%">>alphabet.txt 
480.
if %zeichen_alpha%==%Abbruch_2_2% goto weiter_2_2 
481.
set /a zeichen_alpha=%zeichen_alpha%-1 
482.
goto abschnitt_2_2 
483.
 
484.
:weiter_2_2 
485.
set /a zeichen_alpha=%a%-%b%+1 
486.
:abschnitt_2_3 
487.
@echo "%zeichen_alpha%">>alphabet.txt 
488.
if %zeichen_alpha%==%Abbruch_2_3% goto weiter_2_3 
489.
set /a zeichen_alpha=%zeichen_alpha%+1 
490.
goto abschnitt_2_3 
491.
 
492.
:weiter_1_3 
493.
:weiter_2_3 
494.
 
495.
if exist "alphabet2.txt" del "alphabet2.txt" 
496.
for /F "delims=" %%I in (alphabet.txt) do @echo %%~I>>"alphabet2.txt" 
497.
del "alphabet.txt" 
498.
for /F "delims=" %%I in (alphabet2.txt) do ( 
499.
if %%I==1 @echo "A">>alphabet.txt 
500.
if %%I==2 @echo "B">>alphabet.txt 
501.
if %%I==3 @echo "C">>alphabet.txt 
502.
if %%I==4 @echo "D">>alphabet.txt 
503.
if %%I==5 @echo "E">>alphabet.txt 
504.
if %%I==6 @echo "F">>alphabet.txt 
505.
if %%I==7 @echo "G">>alphabet.txt 
506.
if %%I==8 @echo "H">>alphabet.txt 
507.
if %%I==9 @echo "I">>alphabet.txt 
508.
if %%I==10 @echo "J">>alphabet.txt 
509.
if %%I==11 @echo "K">>alphabet.txt 
510.
if %%I==12 @echo "L">>alphabet.txt 
511.
if %%I==13 @echo "M">>alphabet.txt 
512.
if %%I==14 @echo "N">>alphabet.txt 
513.
if %%I==15 @echo "O">>alphabet.txt 
514.
if %%I==16 @echo "P">>alphabet.txt 
515.
if %%I==17 @echo "Q">>alphabet.txt 
516.
if %%I==18 @echo "R">>alphabet.txt 
517.
if %%I==19 @echo "S">>alphabet.txt 
518.
if %%I==20 @echo "T">>alphabet.txt 
519.
if %%I==21 @echo "U">>alphabet.txt 
520.
if %%I==22 @echo "V">>alphabet.txt 
521.
if %%I==23 @echo "W">>alphabet.txt 
522.
if %%I==24 @echo "X">>alphabet.txt 
523.
if %%I==25 @echo "Y">>alphabet.txt 
524.
if %%I==26 @echo "Z">>alphabet.txt 
525.
if %%I==27 @echo " ">>alphabet.txt 
526.
if %%I==28 @echo "a">>alphabet.txt 
527.
if %%I==29 @echo "b">>alphabet.txt 
528.
if %%I==30 @echo "c">>alphabet.txt 
529.
if %%I==31 @echo "d">>alphabet.txt 
530.
if %%I==32 @echo "e">>alphabet.txt 
531.
if %%I==33 @echo "f">>alphabet.txt 
532.
if %%I==34 @echo "g">>alphabet.txt 
533.
if %%I==35 @echo "h">>alphabet.txt 
534.
if %%I==36 @echo "i">>alphabet.txt 
535.
if %%I==37 @echo "j">>alphabet.txt 
536.
if %%I==38 @echo "k">>alphabet.txt 
537.
if %%I==39 @echo "l">>alphabet.txt 
538.
if %%I==40 @echo "m">>alphabet.txt 
539.
if %%I==41 @echo "n">>alphabet.txt 
540.
if %%I==42 @echo "o">>alphabet.txt 
541.
if %%I==43 @echo "p">>alphabet.txt 
542.
if %%I==44 @echo "q">>alphabet.txt 
543.
if %%I==45 @echo "r">>alphabet.txt 
544.
if %%I==46 @echo "s">>alphabet.txt 
545.
if %%I==47 @echo "t">>alphabet.txt 
546.
if %%I==48 @echo "u">>alphabet.txt 
547.
if %%I==49 @echo "v">>alphabet.txt 
548.
if %%I==50 @echo "w">>alphabet.txt 
549.
if %%I==51 @echo "x">>alphabet.txt 
550.
if %%I==52 @echo "y">>alphabet.txt 
551.
if %%I==53 @echo "z">>alphabet.txt 
552.
if %%I==54 @echo "0">>alphabet.txt 
553.
if %%I==55 @echo "1">>alphabet.txt 
554.
if %%I==56 @echo "2">>alphabet.txt 
555.
if %%I==57 @echo "3">>alphabet.txt 
556.
if %%I==58 @echo "4">>alphabet.txt 
557.
if %%I==59 @echo "5">>alphabet.txt 
558.
if %%I==60 @echo "6">>alphabet.txt 
559.
if %%I==61 @echo "7">>alphabet.txt 
560.
if %%I==62 @echo "8">>alphabet.txt 
561.
if %%I==63 @echo "9">>alphabet.txt 
562.
563.
if exist "alphabet2.txt" del "alphabet2.txt" 
564.
for /F "delims=" %%I in (alphabet.txt) do @echo\%%~I>>"alphabet2.txt" 
565.
del "alphabet.txt" 
566.
ren "alphabet2.txt" "alphabet.txt" 
567.
set /a zeile_nr=1 
568.
for /F "delims=" %%I in (alphabet.txt)do ( 
569.
if !zeile_nr!==1 @echo "A=%%I">>alphabet2.txt 
570.
if !zeile_nr!==2 @echo "B=%%I">>alphabet2.txt 
571.
if !zeile_nr!==3 @echo "C=%%I">>alphabet2.txt 
572.
if !zeile_nr!==4 @echo "D=%%I">>alphabet2.txt 
573.
if !zeile_nr!==5 @echo "E=%%I">>alphabet2.txt 
574.
if !zeile_nr!==6 @echo "F=%%I">>alphabet2.txt 
575.
if !zeile_nr!==7 @echo "G=%%I">>alphabet2.txt 
576.
if !zeile_nr!==8 @echo "H=%%I">>alphabet2.txt 
577.
if !zeile_nr!==9 @echo "I=%%I">>alphabet2.txt 
578.
if !zeile_nr!==10 @echo "J=%%I">>alphabet2.txt 
579.
if !zeile_nr!==11 @echo "K=%%I">>alphabet2.txt 
580.
if !zeile_nr!==12 @echo "L=%%I">>alphabet2.txt 
581.
if !zeile_nr!==13 @echo "M=%%I">>alphabet2.txt 
582.
if !zeile_nr!==14 @echo "N=%%I">>alphabet2.txt 
583.
if !zeile_nr!==15 @echo "O=%%I">>alphabet2.txt 
584.
if !zeile_nr!==16 @echo "P=%%I">>alphabet2.txt 
585.
if !zeile_nr!==17 @echo "Q=%%I">>alphabet2.txt 
586.
if !zeile_nr!==18 @echo "R=%%I">>alphabet2.txt 
587.
if !zeile_nr!==19 @echo "S=%%I">>alphabet2.txt 
588.
if !zeile_nr!==20 @echo "T=%%I">>alphabet2.txt 
589.
if !zeile_nr!==21 @echo "U=%%I">>alphabet2.txt 
590.
if !zeile_nr!==22 @echo "V=%%I">>alphabet2.txt 
591.
if !zeile_nr!==23 @echo "W=%%I">>alphabet2.txt 
592.
if !zeile_nr!==24 @echo "X=%%I">>alphabet2.txt 
593.
if !zeile_nr!==25 @echo "Y=%%I">>alphabet2.txt 
594.
if !zeile_nr!==26 @echo "Z=%%I">>alphabet2.txt 
595.
if !zeile_nr!==27 @echo " =%%I">>alphabet2.txt 
596.
if !zeile_nr!==28 @echo "a=%%I">>alphabet2.txt 
597.
if !zeile_nr!==29 @echo "b=%%I">>alphabet2.txt 
598.
if !zeile_nr!==30 @echo "c=%%I">>alphabet2.txt 
599.
if !zeile_nr!==31 @echo "d=%%I">>alphabet2.txt 
600.
if !zeile_nr!==32 @echo "e=%%I">>alphabet2.txt 
601.
if !zeile_nr!==33 @echo "f=%%I">>alphabet2.txt 
602.
if !zeile_nr!==34 @echo "g=%%I">>alphabet2.txt 
603.
if !zeile_nr!==35 @echo "h=%%I">>alphabet2.txt 
604.
if !zeile_nr!==36 @echo "i=%%I">>alphabet2.txt 
605.
if !zeile_nr!==37 @echo "j=%%I">>alphabet2.txt 
606.
if !zeile_nr!==38 @echo "k=%%I">>alphabet2.txt 
607.
if !zeile_nr!==39 @echo "l=%%I">>alphabet2.txt 
608.
if !zeile_nr!==40 @echo "m=%%I">>alphabet2.txt 
609.
if !zeile_nr!==41 @echo "n=%%I">>alphabet2.txt 
610.
if !zeile_nr!==42 @echo "o=%%I">>alphabet2.txt 
611.
if !zeile_nr!==43 @echo "p=%%I">>alphabet2.txt 
612.
if !zeile_nr!==44 @echo "q=%%I">>alphabet2.txt 
613.
if !zeile_nr!==45 @echo "r=%%I">>alphabet2.txt 
614.
if !zeile_nr!==46 @echo "s=%%I">>alphabet2.txt 
615.
if !zeile_nr!==47 @echo "t=%%I">>alphabet2.txt 
616.
if !zeile_nr!==48 @echo "u=%%I">>alphabet2.txt 
617.
if !zeile_nr!==49 @echo "v=%%I">>alphabet2.txt 
618.
if !zeile_nr!==50 @echo "w=%%I">>alphabet2.txt 
619.
if !zeile_nr!==51 @echo "x=%%I">>alphabet2.txt 
620.
if !zeile_nr!==52 @echo "y=%%I">>alphabet2.txt 
621.
if !zeile_nr!==53 @echo "z=%%I">>alphabet2.txt 
622.
if !zeile_nr!==54 @echo "0=%%I">>alphabet2.txt 
623.
if !zeile_nr!==55 @echo "1=%%I">>alphabet2.txt 
624.
if !zeile_nr!==56 @echo "2=%%I">>alphabet2.txt 
625.
if !zeile_nr!==57 @echo "3=%%I">>alphabet2.txt 
626.
if !zeile_nr!==58 @echo "4=%%I">>alphabet2.txt 
627.
if !zeile_nr!==59 @echo "5=%%I">>alphabet2.txt 
628.
if !zeile_nr!==60 @echo "6=%%I">>alphabet2.txt 
629.
if !zeile_nr!==61 @echo "7=%%I">>alphabet2.txt 
630.
if !zeile_nr!==62 @echo "8=%%I">>alphabet2.txt 
631.
if !zeile_nr!==63 @echo "9=%%I">>alphabet2.txt 
632.
set /a zeile_nr+=1 
633.
634.
del "alphabet.txt" 
635.
for /F "delims=" %%I in (alphabet2.txt) do @echo\%%~I>>"alphabet.txt" 
636.
del "alphabet2.txt" 
637.
 
638.
set "ctext=ctext.txt" 
639.
for /f "delims=" %%I in (ktext.txt) do set text=!text!_%%I 
640.
set text=%text:~1%_ 
641.
set "alphabet=alphabet.txt" 
642.
if exist %ctext% del %ctext% 
643.
 
644.
set "Code=" 
645.
:Loop_codieren2 
646.
if "%Text%"=="" goto :fertig 
647.
set "Char=%Text:~,1%" 
648.
if "%Char%"=="_" goto naechste_zeile 
649.
for /f "tokens=1-2 delims==" %%i in ('findstr /c:"%Char%=" "%alphabet%"') do set "CodeChar=%%j" 
650.
if not defined CodeChar (echo "%Char%" nicht gefunden! & goto :fertig) 
651.
set "Text=%Text:~1%" 
652.
set "Code=%Code%%CodeChar%" 
653.
goto :Loop_codieren2 
654.
 
655.
:naechste_zeile 
656.
echo\%Code%>>"%ctext%" 
657.
set "Code=" 
658.
set "Text=%Text:~1%" 
659.
goto loop_codieren2 
660.
 
661.
:fertig 
662.
del alphabet.txt 
663.
if exist "ktext.txt" del "ktext.txt" 
664.
ren "ctext.txt" "ktext.txt" 
665.
pause
Decodierung.bat:
01.
@echo off & setlocal enabledelayedexpansion 
02.
set /p schluessel="Bitte Schluessel eingeben: " 
03.
:Loop_schluessel 
04.
set "Char_key=!Schluessel:~%stellen%,1!" 
05.
if "%Char_key%"=="" goto :Weiter_schluessel 
06.
set /a stellen+=1 
07.
goto :Loop_schluessel 
08.
:Weiter_schluessel 
09.
set /a paare_schluessel=%schluessel:~-1,1% 
10.
set /a nr_paar_n=0 
11.
set /a verbraucht=0 
12.
if 0==%paare_schluessel% goto letztes_paar 
13.
set /a nr_paar_n=1 
14.
set /a ort_paar_n=%stellen%-%nr_paar_n%-1 
15.
:naechstes_paar_schluessel 
16.
set /a stellen_paar_n=!schluessel:~%ort_paar_n%,1! 
17.
set /a anfang_paar_n=%stellen%-%paare_schluessel%-%verbraucht%-%stellen_paar_n%-1 
18.
set paar_n=!schluessel:~%anfang_paar_n%,%stellen_paar_n%! 
19.
set /a a=%paar_n%/63+1 
20.
set /a b=%paar_n%-63*(%a%-1) 
21.
 
22.
if exist "alphabet.txt" del "alphabet.txt" 
23.
if not %a% lss %b% goto a_groesser_b 
24.
 
25.
set /a Abbruch_1_1=%b%-1 
26.
set /a Abbruch_1_2=1 
27.
set /a Abbruch_1_3=%b% 
28.
 
29.
set /a zeichen_alpha=%a% 
30.
:abschnitt_1_1  
31.
@echo "%zeichen_alpha%">>alphabet.txt 
32.
if %zeichen_alpha%==%Abbruch_1_1% goto weiter_1_1 
33.
set /a zeichen_alpha=%zeichen_alpha%+1 
34.
goto abschnitt_1_1 
35.
 
36.
:weiter_1_1 
37.
set /a zeichen_alpha=%a%-1 
38.
:abschnitt_1_2 
39.
@echo "%zeichen_alpha%">>alphabet.txt 
40.
if %zeichen_alpha%==%Abbruch_1_2% goto weiter_1_2 
41.
set /a zeichen_alpha=%zeichen_alpha%-1 
42.
goto abschnitt_1_2 
43.
 
44.
:weiter_1_2 
45.
set /a zeichen_alpha=63 
46.
:abschnitt_1_3 
47.
@echo "%zeichen_alpha%">>alphabet.txt 
48.
if %zeichen_alpha%==%Abbruch_1_3% goto weiter_1_3 
49.
set /a zeichen_alpha=%zeichen_alpha%-1 
50.
goto abschnitt_1_3 
51.
 
52.
:a_groesser_b 
53.
set /a Abbruch_2_1=%b%+1 
54.
set /a Abbruch_2_2=63 
55.
set /a Abbruch_2_3=%b% 
56.
 
57.
set /a zeichen_alpha=%a% 
58.
:abschnitt_2_1  
59.
@echo "%zeichen_alpha%">>alphabet.txt 
60.
if %zeichen_alpha%==%Abbruch_2_1% goto weiter_2_1 
61.
set /a zeichen_alpha=%zeichen_alpha%-1 
62.
goto abschnitt_2_1 
63.
 
64.
:weiter_2_1 
65.
set /a zeichen_alpha=%a%+1 
66.
:abschnitt_2_2 
67.
@echo "%zeichen_alpha%">>alphabet.txt 
68.
if %zeichen_alpha%==%Abbruch_2_2% goto weiter_2_2 
69.
set /a zeichen_alpha=%zeichen_alpha%+1 
70.
goto abschnitt_2_2 
71.
 
72.
:weiter_2_2 
73.
set /a zeichen_alpha=1 
74.
:abschnitt_2_3 
75.
@echo "%zeichen_alpha%">>alphabet.txt 
76.
if %zeichen_alpha%==%Abbruch_2_3% goto weiter_2_3 
77.
set /a zeichen_alpha=%zeichen_alpha%+1 
78.
goto abschnitt_2_3 
79.
 
80.
:weiter_1_3 
81.
:weiter_2_3 
82.
 
83.
if exist "alphabet2.txt" del "alphabet2.txt" 
84.
for /F "delims=" %%I in (alphabet.txt) do @echo %%~I>>"alphabet2.txt" 
85.
del "alphabet.txt" 
86.
for /F "delims=" %%I in (alphabet2.txt) do ( 
87.
if %%I==1 @echo "A">>alphabet.txt 
88.
if %%I==2 @echo "B">>alphabet.txt 
89.
if %%I==3 @echo "C">>alphabet.txt 
90.
if %%I==4 @echo "D">>alphabet.txt 
91.
if %%I==5 @echo "E">>alphabet.txt 
92.
if %%I==6 @echo "F">>alphabet.txt 
93.
if %%I==7 @echo "G">>alphabet.txt 
94.
if %%I==8 @echo "H">>alphabet.txt 
95.
if %%I==9 @echo "I">>alphabet.txt 
96.
if %%I==10 @echo "J">>alphabet.txt 
97.
if %%I==11 @echo "K">>alphabet.txt 
98.
if %%I==12 @echo "L">>alphabet.txt 
99.
if %%I==13 @echo "M">>alphabet.txt 
100.
if %%I==14 @echo "N">>alphabet.txt 
101.
if %%I==15 @echo "O">>alphabet.txt 
102.
if %%I==16 @echo "P">>alphabet.txt 
103.
if %%I==17 @echo "Q">>alphabet.txt 
104.
if %%I==18 @echo "R">>alphabet.txt 
105.
if %%I==19 @echo "S">>alphabet.txt 
106.
if %%I==20 @echo "T">>alphabet.txt 
107.
if %%I==21 @echo "U">>alphabet.txt 
108.
if %%I==22 @echo "V">>alphabet.txt 
109.
if %%I==23 @echo "W">>alphabet.txt 
110.
if %%I==24 @echo "X">>alphabet.txt 
111.
if %%I==25 @echo "Y">>alphabet.txt 
112.
if %%I==26 @echo "Z">>alphabet.txt 
113.
if %%I==27 @echo " ">>alphabet.txt 
114.
if %%I==28 @echo "a">>alphabet.txt 
115.
if %%I==29 @echo "b">>alphabet.txt 
116.
if %%I==30 @echo "c">>alphabet.txt 
117.
if %%I==31 @echo "d">>alphabet.txt 
118.
if %%I==32 @echo "e">>alphabet.txt 
119.
if %%I==33 @echo "f">>alphabet.txt 
120.
if %%I==34 @echo "g">>alphabet.txt 
121.
if %%I==35 @echo "h">>alphabet.txt 
122.
if %%I==36 @echo "i">>alphabet.txt 
123.
if %%I==37 @echo "j">>alphabet.txt 
124.
if %%I==38 @echo "k">>alphabet.txt 
125.
if %%I==39 @echo "l">>alphabet.txt 
126.
if %%I==40 @echo "m">>alphabet.txt 
127.
if %%I==41 @echo "n">>alphabet.txt 
128.
if %%I==42 @echo "o">>alphabet.txt 
129.
if %%I==43 @echo "p">>alphabet.txt 
130.
if %%I==44 @echo "q">>alphabet.txt 
131.
if %%I==45 @echo "r">>alphabet.txt 
132.
if %%I==46 @echo "s">>alphabet.txt 
133.
if %%I==47 @echo "t">>alphabet.txt 
134.
if %%I==48 @echo "u">>alphabet.txt 
135.
if %%I==49 @echo "v">>alphabet.txt 
136.
if %%I==50 @echo "w">>alphabet.txt 
137.
if %%I==51 @echo "x">>alphabet.txt 
138.
if %%I==52 @echo "y">>alphabet.txt 
139.
if %%I==53 @echo "z">>alphabet.txt 
140.
if %%I==54 @echo "0">>alphabet.txt 
141.
if %%I==55 @echo "1">>alphabet.txt 
142.
if %%I==56 @echo "2">>alphabet.txt 
143.
if %%I==57 @echo "3">>alphabet.txt 
144.
if %%I==58 @echo "4">>alphabet.txt 
145.
if %%I==59 @echo "5">>alphabet.txt 
146.
if %%I==60 @echo "6">>alphabet.txt 
147.
if %%I==61 @echo "7">>alphabet.txt 
148.
if %%I==62 @echo "8">>alphabet.txt 
149.
if %%I==63 @echo "9">>alphabet.txt 
150.
151.
if exist "alphabet2.txt" del "alphabet2.txt" 
152.
for /F "delims=" %%I in (alphabet.txt) do @echo\%%~I>>"alphabet2.txt" 
153.
del "alphabet.txt" 
154.
ren "alphabet2.txt" "alphabet.txt" 
155.
set /a zeile_nr=1 
156.
for /F "delims=" %%I in (alphabet.txt)do ( 
157.
if !zeile_nr!==1 @echo "A=%%I">>alphabet2.txt 
158.
if !zeile_nr!==2 @echo "B=%%I">>alphabet2.txt 
159.
if !zeile_nr!==3 @echo "C=%%I">>alphabet2.txt 
160.
if !zeile_nr!==4 @echo "D=%%I">>alphabet2.txt 
161.
if !zeile_nr!==5 @echo "E=%%I">>alphabet2.txt 
162.
if !zeile_nr!==6 @echo "F=%%I">>alphabet2.txt 
163.
if !zeile_nr!==7 @echo "G=%%I">>alphabet2.txt 
164.
if !zeile_nr!==8 @echo "H=%%I">>alphabet2.txt 
165.
if !zeile_nr!==9 @echo "I=%%I">>alphabet2.txt 
166.
if !zeile_nr!==10 @echo "J=%%I">>alphabet2.txt 
167.
if !zeile_nr!==11 @echo "K=%%I">>alphabet2.txt 
168.
if !zeile_nr!==12 @echo "L=%%I">>alphabet2.txt 
169.
if !zeile_nr!==13 @echo "M=%%I">>alphabet2.txt 
170.
if !zeile_nr!==14 @echo "N=%%I">>alphabet2.txt 
171.
if !zeile_nr!==15 @echo "O=%%I">>alphabet2.txt 
172.
if !zeile_nr!==16 @echo "P=%%I">>alphabet2.txt 
173.
if !zeile_nr!==17 @echo "Q=%%I">>alphabet2.txt 
174.
if !zeile_nr!==18 @echo "R=%%I">>alphabet2.txt 
175.
if !zeile_nr!==19 @echo "S=%%I">>alphabet2.txt 
176.
if !zeile_nr!==20 @echo "T=%%I">>alphabet2.txt 
177.
if !zeile_nr!==21 @echo "U=%%I">>alphabet2.txt 
178.
if !zeile_nr!==22 @echo "V=%%I">>alphabet2.txt 
179.
if !zeile_nr!==23 @echo "W=%%I">>alphabet2.txt 
180.
if !zeile_nr!==24 @echo "X=%%I">>alphabet2.txt 
181.
if !zeile_nr!==25 @echo "Y=%%I">>alphabet2.txt 
182.
if !zeile_nr!==26 @echo "Z=%%I">>alphabet2.txt 
183.
if !zeile_nr!==27 @echo " =%%I">>alphabet2.txt 
184.
if !zeile_nr!==28 @echo "a=%%I">>alphabet2.txt 
185.
if !zeile_nr!==29 @echo "b=%%I">>alphabet2.txt 
186.
if !zeile_nr!==30 @echo "c=%%I">>alphabet2.txt 
187.
if !zeile_nr!==31 @echo "d=%%I">>alphabet2.txt 
188.
if !zeile_nr!==32 @echo "e=%%I">>alphabet2.txt 
189.
if !zeile_nr!==33 @echo "f=%%I">>alphabet2.txt 
190.
if !zeile_nr!==34 @echo "g=%%I">>alphabet2.txt 
191.
if !zeile_nr!==35 @echo "h=%%I">>alphabet2.txt 
192.
if !zeile_nr!==36 @echo "i=%%I">>alphabet2.txt 
193.
if !zeile_nr!==37 @echo "j=%%I">>alphabet2.txt 
194.
if !zeile_nr!==38 @echo "k=%%I">>alphabet2.txt 
195.
if !zeile_nr!==39 @echo "l=%%I">>alphabet2.txt 
196.
if !zeile_nr!==40 @echo "m=%%I">>alphabet2.txt 
197.
if !zeile_nr!==41 @echo "n=%%I">>alphabet2.txt 
198.
if !zeile_nr!==42 @echo "o=%%I">>alphabet2.txt 
199.
if !zeile_nr!==43 @echo "p=%%I">>alphabet2.txt 
200.
if !zeile_nr!==44 @echo "q=%%I">>alphabet2.txt 
201.
if !zeile_nr!==45 @echo "r=%%I">>alphabet2.txt 
202.
if !zeile_nr!==46 @echo "s=%%I">>alphabet2.txt 
203.
if !zeile_nr!==47 @echo "t=%%I">>alphabet2.txt 
204.
if !zeile_nr!==48 @echo "u=%%I">>alphabet2.txt 
205.
if !zeile_nr!==49 @echo "v=%%I">>alphabet2.txt 
206.
if !zeile_nr!==50 @echo "w=%%I">>alphabet2.txt 
207.
if !zeile_nr!==51 @echo "x=%%I">>alphabet2.txt 
208.
if !zeile_nr!==52 @echo "y=%%I">>alphabet2.txt 
209.
if !zeile_nr!==53 @echo "z=%%I">>alphabet2.txt 
210.
if !zeile_nr!==54 @echo "0=%%I">>alphabet2.txt 
211.
if !zeile_nr!==55 @echo "1=%%I">>alphabet2.txt 
212.
if !zeile_nr!==56 @echo "2=%%I">>alphabet2.txt 
213.
if !zeile_nr!==57 @echo "3=%%I">>alphabet2.txt 
214.
if !zeile_nr!==58 @echo "4=%%I">>alphabet2.txt 
215.
if !zeile_nr!==59 @echo "5=%%I">>alphabet2.txt 
216.
if !zeile_nr!==60 @echo "6=%%I">>alphabet2.txt 
217.
if !zeile_nr!==61 @echo "7=%%I">>alphabet2.txt 
218.
if !zeile_nr!==62 @echo "8=%%I">>alphabet2.txt 
219.
if !zeile_nr!==63 @echo "9=%%I">>alphabet2.txt 
220.
set /a zeile_nr+=1 
221.
222.
del "alphabet.txt" 
223.
for /F "delims=" %%I in (alphabet2.txt) do @echo\%%~I>>"alphabet.txt" 
224.
del "alphabet2.txt" 
225.
 
226.
set "ctext=ctext.txt" 
227.
for /f "delims=" %%I in (ktext.txt) do set text=!text!_%%I 
228.
set text=%text:~1%_ 
229.
set "alphabet=alphabet.txt" 
230.
if exist %ctext% del %ctext% 
231.
 
232.
set "Code=" 
233.
:Loop_codieren 
234.
if "%Text%"=="" goto :fertig 
235.
set "Char=%Text:~,1%" 
236.
if "%Char%"=="_" goto naechste_zeile 
237.
for /f "tokens=1-2 delims==" %%i in ('findstr /c:"%Char%=" "%alphabet%"') do set "CodeChar=%%j" 
238.
if not defined CodeChar (echo "%Char%" nicht gefunden! & goto :fertig) 
239.
set "Text=%Text:~1%" 
240.
set "Code=%Code%%CodeChar%" 
241.
goto :Loop_codieren 
242.
 
243.
:naechste_zeile 
244.
echo\%Code%>>"%ctext%" 
245.
set "Code=" 
246.
set "Text=%Text:~1%" 
247.
goto loop_codieren 
248.
 
249.
:fertig 
250.
if exist "ktext.txt" del "ktext.txt" 
251.
ren "ctext.txt" "ktext.txt" 
252.
 
253.
set /a verbraucht=%verbraucht%+%stellen_paar_n% 
254.
if %nr_paar_n%==%paare_schluessel% goto letztes_paar 
255.
set /a ort_paar_n=%ort_paar_n%-1 
256.
set /a nr_paar_n=%nr_paar_n%+1 
257.
goto naechstes_paar_schluessel 
258.
:letztes_paar 
259.
set /a nr_paar_n=%nr_paar_n%+1 
260.
set /a stellen_paar_n=%stellen%-%paare_schluessel%-%verbraucht%-1 
261.
set paar_n=!schluessel:~0,%stellen_paar_n%! 
262.
set /a a=%paar_n%/63+1 
263.
set /a b=%paar_n%-63*(%a%-1) 
264.
 
265.
if exist "alphabet.txt" del "alphabet.txt" 
266.
if not %a% lss %b% goto a_groesser_b 
267.
 
268.
set /a Abbruch_1_1=%b%-1 
269.
set /a Abbruch_1_2=1 
270.
set /a Abbruch_1_3=%b% 
271.
 
272.
set /a zeichen_alpha=%a% 
273.
:abschnitt_1_1  
274.
@echo "%zeichen_alpha%">>alphabet.txt 
275.
if %zeichen_alpha%==%Abbruch_1_1% goto weiter_1_1 
276.
set /a zeichen_alpha=%zeichen_alpha%+1 
277.
goto abschnitt_1_1 
278.
 
279.
:weiter_1_1 
280.
set /a zeichen_alpha=%a%-1 
281.
:abschnitt_1_2 
282.
@echo "%zeichen_alpha%">>alphabet.txt 
283.
if %zeichen_alpha%==%Abbruch_1_2% goto weiter_1_2 
284.
set /a zeichen_alpha=%zeichen_alpha%-1 
285.
goto abschnitt_1_2 
286.
 
287.
:weiter_1_2 
288.
set /a zeichen_alpha=63 
289.
:abschnitt_1_3 
290.
@echo "%zeichen_alpha%">>alphabet.txt 
291.
if %zeichen_alpha%==%Abbruch_1_3% goto weiter_1_3 
292.
set /a zeichen_alpha=%zeichen_alpha%-1 
293.
goto abschnitt_1_3 
294.
 
295.
:a_groesser_b 
296.
set /a Abbruch_2_1=%b%+1 
297.
set /a Abbruch_2_2=63 
298.
set /a Abbruch_2_3=%b% 
299.
 
300.
set /a zeichen_alpha=%a% 
301.
:abschnitt_2_1  
302.
@echo "%zeichen_alpha%">>alphabet.txt 
303.
if %zeichen_alpha%==%Abbruch_2_1% goto weiter_2_1 
304.
set /a zeichen_alpha=%zeichen_alpha%-1 
305.
goto abschnitt_2_1 
306.
 
307.
:weiter_2_1 
308.
set /a zeichen_alpha=%a%+1 
309.
:abschnitt_2_2 
310.
@echo "%zeichen_alpha%">>alphabet.txt 
311.
if %zeichen_alpha%==%Abbruch_2_2% goto weiter_2_2 
312.
set /a zeichen_alpha=%zeichen_alpha%+1 
313.
goto abschnitt_2_2 
314.
 
315.
:weiter_2_2 
316.
set /a zeichen_alpha=1 
317.
:abschnitt_2_3 
318.
@echo "%zeichen_alpha%">>alphabet.txt 
319.
if %zeichen_alpha%==%Abbruch_2_3% goto weiter_2_3 
320.
set /a zeichen_alpha=%zeichen_alpha%+1 
321.
goto abschnitt_2_3 
322.
 
323.
:weiter_1_3 
324.
:weiter_2_3 
325.
 
326.
if exist "alphabet2.txt" del "alphabet2.txt" 
327.
for /F "delims=" %%I in (alphabet.txt) do @echo %%~I>>"alphabet2.txt" 
328.
del "alphabet.txt" 
329.
for /F "delims=" %%I in (alphabet2.txt) do ( 
330.
if %%I==1 @echo "A">>alphabet.txt 
331.
if %%I==2 @echo "B">>alphabet.txt 
332.
if %%I==3 @echo "C">>alphabet.txt 
333.
if %%I==4 @echo "D">>alphabet.txt 
334.
if %%I==5 @echo "E">>alphabet.txt 
335.
if %%I==6 @echo "F">>alphabet.txt 
336.
if %%I==7 @echo "G">>alphabet.txt 
337.
if %%I==8 @echo "H">>alphabet.txt 
338.
if %%I==9 @echo "I">>alphabet.txt 
339.
if %%I==10 @echo "J">>alphabet.txt 
340.
if %%I==11 @echo "K">>alphabet.txt 
341.
if %%I==12 @echo "L">>alphabet.txt 
342.
if %%I==13 @echo "M">>alphabet.txt 
343.
if %%I==14 @echo "N">>alphabet.txt 
344.
if %%I==15 @echo "O">>alphabet.txt 
345.
if %%I==16 @echo "P">>alphabet.txt 
346.
if %%I==17 @echo "Q">>alphabet.txt 
347.
if %%I==18 @echo "R">>alphabet.txt 
348.
if %%I==19 @echo "S">>alphabet.txt 
349.
if %%I==20 @echo "T">>alphabet.txt 
350.
if %%I==21 @echo "U">>alphabet.txt 
351.
if %%I==22 @echo "V">>alphabet.txt 
352.
if %%I==23 @echo "W">>alphabet.txt 
353.
if %%I==24 @echo "X">>alphabet.txt 
354.
if %%I==25 @echo "Y">>alphabet.txt 
355.
if %%I==26 @echo "Z">>alphabet.txt 
356.
if %%I==27 @echo " ">>alphabet.txt 
357.
if %%I==28 @echo "a">>alphabet.txt 
358.
if %%I==29 @echo "b">>alphabet.txt 
359.
if %%I==30 @echo "c">>alphabet.txt 
360.
if %%I==31 @echo "d">>alphabet.txt 
361.
if %%I==32 @echo "e">>alphabet.txt 
362.
if %%I==33 @echo "f">>alphabet.txt 
363.
if %%I==34 @echo "g">>alphabet.txt 
364.
if %%I==35 @echo "h">>alphabet.txt 
365.
if %%I==36 @echo "i">>alphabet.txt 
366.
if %%I==37 @echo "j">>alphabet.txt 
367.
if %%I==38 @echo "k">>alphabet.txt 
368.
if %%I==39 @echo "l">>alphabet.txt 
369.
if %%I==40 @echo "m">>alphabet.txt 
370.
if %%I==41 @echo "n">>alphabet.txt 
371.
if %%I==42 @echo "o">>alphabet.txt 
372.
if %%I==43 @echo "p">>alphabet.txt 
373.
if %%I==44 @echo "q">>alphabet.txt 
374.
if %%I==45 @echo "r">>alphabet.txt 
375.
if %%I==46 @echo "s">>alphabet.txt 
376.
if %%I==47 @echo "t">>alphabet.txt 
377.
if %%I==48 @echo "u">>alphabet.txt 
378.
if %%I==49 @echo "v">>alphabet.txt 
379.
if %%I==50 @echo "w">>alphabet.txt 
380.
if %%I==51 @echo "x">>alphabet.txt 
381.
if %%I==52 @echo "y">>alphabet.txt 
382.
if %%I==53 @echo "z">>alphabet.txt 
383.
if %%I==54 @echo "0">>alphabet.txt 
384.
if %%I==55 @echo "1">>alphabet.txt 
385.
if %%I==56 @echo "2">>alphabet.txt 
386.
if %%I==57 @echo "3">>alphabet.txt 
387.
if %%I==58 @echo "4">>alphabet.txt 
388.
if %%I==59 @echo "5">>alphabet.txt 
389.
if %%I==60 @echo "6">>alphabet.txt 
390.
if %%I==61 @echo "7">>alphabet.txt 
391.
if %%I==62 @echo "8">>alphabet.txt 
392.
if %%I==63 @echo "9">>alphabet.txt 
393.
394.
if exist "alphabet2.txt" del "alphabet2.txt" 
395.
for /F "delims=" %%I in (alphabet.txt) do @echo\%%~I>>"alphabet2.txt" 
396.
del "alphabet.txt" 
397.
ren "alphabet2.txt" "alphabet.txt" 
398.
set /a zeile_nr=1 
399.
for /F "delims=" %%I in (alphabet.txt)do ( 
400.
if !zeile_nr!==1 @echo "A=%%I">>alphabet2.txt 
401.
if !zeile_nr!==2 @echo "B=%%I">>alphabet2.txt 
402.
if !zeile_nr!==3 @echo "C=%%I">>alphabet2.txt 
403.
if !zeile_nr!==4 @echo "D=%%I">>alphabet2.txt 
404.
if !zeile_nr!==5 @echo "E=%%I">>alphabet2.txt 
405.
if !zeile_nr!==6 @echo "F=%%I">>alphabet2.txt 
406.
if !zeile_nr!==7 @echo "G=%%I">>alphabet2.txt 
407.
if !zeile_nr!==8 @echo "H=%%I">>alphabet2.txt 
408.
if !zeile_nr!==9 @echo "I=%%I">>alphabet2.txt 
409.
if !zeile_nr!==10 @echo "J=%%I">>alphabet2.txt 
410.
if !zeile_nr!==11 @echo "K=%%I">>alphabet2.txt 
411.
if !zeile_nr!==12 @echo "L=%%I">>alphabet2.txt 
412.
if !zeile_nr!==13 @echo "M=%%I">>alphabet2.txt 
413.
if !zeile_nr!==14 @echo "N=%%I">>alphabet2.txt 
414.
if !zeile_nr!==15 @echo "O=%%I">>alphabet2.txt 
415.
if !zeile_nr!==16 @echo "P=%%I">>alphabet2.txt 
416.
if !zeile_nr!==17 @echo "Q=%%I">>alphabet2.txt 
417.
if !zeile_nr!==18 @echo "R=%%I">>alphabet2.txt 
418.
if !zeile_nr!==19 @echo "S=%%I">>alphabet2.txt 
419.
if !zeile_nr!==20 @echo "T=%%I">>alphabet2.txt 
420.
if !zeile_nr!==21 @echo "U=%%I">>alphabet2.txt 
421.
if !zeile_nr!==22 @echo "V=%%I">>alphabet2.txt 
422.
if !zeile_nr!==23 @echo "W=%%I">>alphabet2.txt 
423.
if !zeile_nr!==24 @echo "X=%%I">>alphabet2.txt 
424.
if !zeile_nr!==25 @echo "Y=%%I">>alphabet2.txt 
425.
if !zeile_nr!==26 @echo "Z=%%I">>alphabet2.txt 
426.
if !zeile_nr!==27 @echo " =%%I">>alphabet2.txt 
427.
if !zeile_nr!==28 @echo "a=%%I">>alphabet2.txt 
428.
if !zeile_nr!==29 @echo "b=%%I">>alphabet2.txt 
429.
if !zeile_nr!==30 @echo "c=%%I">>alphabet2.txt 
430.
if !zeile_nr!==31 @echo "d=%%I">>alphabet2.txt 
431.
if !zeile_nr!==32 @echo "e=%%I">>alphabet2.txt 
432.
if !zeile_nr!==33 @echo "f=%%I">>alphabet2.txt 
433.
if !zeile_nr!==34 @echo "g=%%I">>alphabet2.txt 
434.
if !zeile_nr!==35 @echo "h=%%I">>alphabet2.txt 
435.
if !zeile_nr!==36 @echo "i=%%I">>alphabet2.txt 
436.
if !zeile_nr!==37 @echo "j=%%I">>alphabet2.txt 
437.
if !zeile_nr!==38 @echo "k=%%I">>alphabet2.txt 
438.
if !zeile_nr!==39 @echo "l=%%I">>alphabet2.txt 
439.
if !zeile_nr!==40 @echo "m=%%I">>alphabet2.txt 
440.
if !zeile_nr!==41 @echo "n=%%I">>alphabet2.txt 
441.
if !zeile_nr!==42 @echo "o=%%I">>alphabet2.txt 
442.
if !zeile_nr!==43 @echo "p=%%I">>alphabet2.txt 
443.
if !zeile_nr!==44 @echo "q=%%I">>alphabet2.txt 
444.
if !zeile_nr!==45 @echo "r=%%I">>alphabet2.txt 
445.
if !zeile_nr!==46 @echo "s=%%I">>alphabet2.txt 
446.
if !zeile_nr!==47 @echo "t=%%I">>alphabet2.txt 
447.
if !zeile_nr!==48 @echo "u=%%I">>alphabet2.txt 
448.
if !zeile_nr!==49 @echo "v=%%I">>alphabet2.txt 
449.
if !zeile_nr!==50 @echo "w=%%I">>alphabet2.txt 
450.
if !zeile_nr!==51 @echo "x=%%I">>alphabet2.txt 
451.
if !zeile_nr!==52 @echo "y=%%I">>alphabet2.txt 
452.
if !zeile_nr!==53 @echo "z=%%I">>alphabet2.txt 
453.
if !zeile_nr!==54 @echo "0=%%I">>alphabet2.txt 
454.
if !zeile_nr!==55 @echo "1=%%I">>alphabet2.txt 
455.
if !zeile_nr!==56 @echo "2=%%I">>alphabet2.txt 
456.
if !zeile_nr!==57 @echo "3=%%I">>alphabet2.txt 
457.
if !zeile_nr!==58 @echo "4=%%I">>alphabet2.txt 
458.
if !zeile_nr!==59 @echo "5=%%I">>alphabet2.txt 
459.
if !zeile_nr!==60 @echo "6=%%I">>alphabet2.txt 
460.
if !zeile_nr!==61 @echo "7=%%I">>alphabet2.txt 
461.
if !zeile_nr!==62 @echo "8=%%I">>alphabet2.txt 
462.
if !zeile_nr!==63 @echo "9=%%I">>alphabet2.txt 
463.
set /a zeile_nr+=1 
464.
465.
del "alphabet.txt" 
466.
for /F "delims=" %%I in (alphabet2.txt) do @echo\%%~I>>"alphabet.txt" 
467.
del "alphabet2.txt" 
468.
 
469.
set "ctext=ctext.txt" 
470.
for /f "delims=" %%I in (ktext.txt) do set text=!text!_%%I 
471.
set text=%text:~1%_ 
472.
set "alphabet=alphabet.txt" 
473.
if exist %ctext% del %ctext% 
474.
 
475.
set "Code=" 
476.
:Loop_codieren2 
477.
if "%Text%"=="" goto :fertig 
478.
set "Char=%Text:~,1%" 
479.
if "%Char%"=="_" goto naechste_zeile 
480.
for /f "tokens=1-2 delims==" %%i in ('findstr /c:"%Char%=" "%alphabet%"') do set "CodeChar=%%j" 
481.
if not defined CodeChar (echo "%Char%" nicht gefunden! & goto :fertig) 
482.
set "Text=%Text:~1%" 
483.
set "Code=%Code%%CodeChar%" 
484.
goto :Loop_codieren2 
485.
 
486.
:naechste_zeile 
487.
echo\%Code%>>"%ctext%" 
488.
set "Code=" 
489.
set "Text=%Text:~1%" 
490.
goto loop_codieren2 
491.
 
492.
:fertig 
493.
del alphabet.txt 
494.
if exist "ktext.txt" del "ktext.txt" 
495.
ren "ctext.txt" "ktext.txt" 
496.
pause
Hoffentlich funktioniert alles - Das was ich testete funktionierte einwandfrei
Verbesserungsvorschläge sind gerne gesehen(Wenn jemand was mit meiner unübersichtlichen Arbeit anfangen kann)

Grüsse

Mathe172
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Batch & Shell
gelöst Batch: (at)set und (at)echo in For-Schleifen? und mehr (8)

Frage von Ben.Blake.79 zum Thema Batch & Shell ...

Windows 10
Windows 10: Version 1607 jetzt im Current Branch for Business

Link von Penny.Cilin zum Thema Windows 10 ...

Erkennung und -Abwehr
Hackers are holding San Francisco s light-rail system for ransom

Link von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...

Exchange Server
DNS Einstellung - zwei feste IPs für Mailserver (15)

Frage von ivan0s zum Thema Exchange Server ...