Kryptologie - Informatik

PROCEDURE PROCEDURE vigenere (modus: boolean);
VAR V VAR A R i, n, v, passwortlaenge, codezaehler: integer;
passwortstr: STRING;
FUNCTION FUNCTION decodierung: STRING;
CONST CONST N_VOR = 5;
TYPE TYPE TYPEtyp1 TYPE TYPE = RECORD RECORD
RECORD
buchst: char;
anzahl: integer;
END END; END
VAR V VAR A R j: integer;
vorschlag: ARRAY ARRAY[1..N_VOR] ARRAY
OF O OF F STRING;
PROCEDURE PROCEDURE analyse (rest, periode: integer; meist: char);
VAR V VAR A R haeuf: ARRAY ARRAY[1..26] ARRAY OF O OF F typ1;
i, k, v, nr, max: integer;
vermutung: char;
PROCEDURE
PROCEDURE PROCEDURE sortieren;
VAR
VAR
i, k: integer;
sortHilf: typ1;
BEGIN
BEGIN
FOR FOR F FOR O R i := 1 TO TO T TO O 25 DO DO
DO
FOR FFOR FOR O R k := i + 1 TO T TO O 26 DO
DO
IF IIF IF F haeuf[k].anzahl > haeuf[i].anzahl THEN
THEN
BEGIN BEGIN { Tauschen }
sortHilf := haeuf[i];
haeuf[i] := haeuf[k];
haeuf[k] := sortHilf;
END END; END
END END EEND END N D; { sortieren }
36