Kryptologie - Informatik

PROCEDURE PROCEDURE codierung;
VAR V VAR A R i: integer;
BEGIN
BEGIN
IF IIF IF F codewort ‚‘ THEN THEN
THEN
BEGIN
BEGIN
FOR F FOR O R i := 1 TO T TO O 26 DO
DO
saver[speicher[chr(i + 64)]] := chr(i + 64);
FOR F FOR O R i := 1 TO TTO TO O textlaenge DO
DO
BEGIN BEGIN
BEGIN
b := textvorlage[i];
CASE CASE ord(b) OF
OF
65..91:
IF IF IIF IF F codieren THEN THEN
THEN
b := speicher[b]
ELSE
ELSE
b := saver[b];
97..123:
IF I IF F codieren THEN THEN
THEN
b := chr(ord(speicher[chr(ord(b) - 32)]) + 32)
ELSE
ELSE
b := chr(ord(saver[chr(ord(b) - 32)]) + 32);
OTHERWISE
b := b;
END END E END N D;{ CASE }
textvorlage[i] := b;
END E END N D; { FOR }
writeln;
IF I IF F codieren THEN THEN
THEN
writeln(‚Der codierte Text lautet: ‚)
ELSE
ELSE
writeln(‚Der decodierte Text lautet: ‚);
writeln;
text_ausgeben;
writeln;
END END; END
END E END N D; { codierung }
BEGIN BEGIN { zuordnung }
textfenster_oeffnen;
writeln;
write(‚Bitte Codewort eingeben: ‚);
readln(codewort);
codewort_kuerzen;
schluessel_erstellen;
codierung;
END EEND END N D; { zuordnung }
35