Kryptologie - Informatik

PROCEDURE PROCEDURE zuordnung (codieren: boolean);
VAR V VAR A R codewort : STRING;
Zugriff : ARRAY ARRAY[1..26, ARRAY 1..26] OF O OF F char;
speicher, saver : ARRAY ARRAY[‚A‘..’Z’] ARRAY
OF O OF F char;
i, k, z, codewortlaenge, laenge : integer;
menge, menge2 : SET SET OF OF char;
b : char;
PROCEDURE
PROCEDURE PROCEDURE codewort_kuerzen;
VAR V VAR A R i, k: integer;
BEGIN
BEGIN
menge2 := []; { Alle Sonderzeichen und Zahlen }
FOR F FOR O R i := 31 TO T TO O 126 DO D DO O { werden in die Menge aufgenommen }
BEGIN BEGIN
END END END; END
IF IIF IF F (i = 65) OR O OR R (i = 97) THEN
THEN
i := i + 26;
menge2 := menge2 + [chr(i)];
menge2 := menge2 + [‚´‘];
FOR F FOR O R i := 1 TO T TO O length(codewort) - 1 DO
DO
FOR F FOR O R k := i TO T TO O length(codewort) DO
DO
IF I IF F (codewort[i] = codewort[k]) AND A AND N D (i k) OR OR O OR R (codewort[k] IN I IN N menge2)
THEN THEN BEGIN
BEGIN
delete(codewort, k, 1); { verkürzen des Codewortes, so dass }
i := i - 1;
END E END N D;{ IF }
{ jeder Buchstabe nur maximal ein Mal vorkommt }
codewortlaenge := length(codewort); { Vereinfachung }
FOR F FOR O R i := 1 TO T TO O codewortlaenge DO DDO DO O
IF IF IIF IF F codewort[i] IN IN IIN IN N [‚a‘..’z’] THEN THEN
THEN
{ Kleinbuchstabe -> Großbuchstabe }
codewort[i] := chr(ord(codewort[i]) - 32);
menge := [];
END E END N D;{ codewort kuerzen }
PROCEDURE PROCEDURE schluessel_erstellen;
VAR VAR VVAR VAR A R i, k: integer;
BEGIN
BEGIN
IF I IF F codewort ‚‘ THEN
THEN
BEGIN
BEGIN
FOR F FOR O R i := 1 TO T TO O codewortlaenge DO DO
DO
menge := menge + [codewort[i]]; { Codewort -> Menge ( Vereinfachung) }
laenge := 26 DIV codewortlaenge; { Festlegen der Länge des Zuordnungs- }
IF I IF F (26 MOD M MOD O D codewortlaenge) 0 THEN THEN THEN
{ gitters }
laenge := laenge + 1;
FOR FOR F FOR O R i := 1 TO T TO O codewortlaenge DO DO D DO O { Schreiben des Codewortes ins Gitter }
zugriff[1, i] := codewort[i]; { (1. Reihe) }
z := 64;
FOR F FOR O R i := 2 TO TTO TO O laenge DO D DO O { Übrige Buchstaben werden ins }
FOR FOR F FOR O R k := 1 TO TTO TO O codewortlaenge DO D DO O { Gitter geschrieben }
BEGIN BEGIN BEGIN z := z + 1;
IF IF NOT N NOT O T (chr(z) IN I IN N menge) THEN THEN zugriff[i, k] := chr(z)
ELSE ELSE k := k - 1;
END E END N D;{ FOR }
z := 64;
FOR F FOR O R k := 1 TO T TO O (26 MOD M MOD O D codewortlaenge) DO D DO O { Zuordnung der Buchstaben }
FOR FOR F FOR O R i := 1 TO T TO O laenge DO
DO
BEGIN BEGIN z := z + 1;
speicher[chr(z)] := zugriff[i, k];
END E END N D; { FOR FOR }
FOR FFOR FOR O R k := (26 MOD M MOD O D codewortlaenge) + 1 TO TO T TO O codewortlaenge DO DO
DO
FOR F FOR O R i := 1 TO T TO O laenge - 1 DO
DO
BEGIN BEGIN z := z + 1;
speicher[chr(z)] := zugriff[i, k];
END END E END N D; { FOR }
END END END; END END
END E END N D; { schluessel_erstellen }
34