Kryptologie - Informatik

PROCEDURE PROCEDURE BuchstabenHaeufigkeit;
VAR V VAR A R buchstabe: char;
i, promille : integer;
faktor : real;
tri : str3;
BEGIN
BEGIN
tri := ‚ ‚;
max_anzahl := 0;
IF I IF F single THEN
THEN
gesamt := 0;
FOR F FOR O R buchstabe := ‚A‘ TO TO TTO TO O ‚Z‘ DO DO
DO
IF IIF IF F single THEN
THEN
B_haeuf[buchstabe] := 0
ELSE
ELSE
BEGIN
BEGIN
i := round(buchstaben[1, ord(buchstabe) - 64].anzahl / 1000 * gesamt);
B_haeuf[buchstaben[1, ord(buchstabe) - 64].tripel[1]] := i;
END END; END
FOR F FOR O R i := 1 TO T TO O textLaenge DO
DO
BEGIN
BEGIN
IF I IF F textVorlage[i] IN IIN IN N [‚A‘..’Z’, ‚a‘..’z’] THEN
THEN
BEGIN BEGIN
BEGIN
gesamt := gesamt + 1;
buchstabe := gross(textVorlage[i]);
B_haeuf[buchstabe] := B_haeuf[buchstabe] + 1;
END END; END
END END; END
FOR F FOR O R i := 1 TO T TO O 26 DO
DO
BEGIN
BEGIN
tri[1] := chr(64 + i);
haeufigkeit[i].anzahl := B_haeuf[chr(64 + i)];
haeufigkeit[i].tripel := tri;
IF I IF F haeufigkeit[i].anzahl > max_anzahl THEN THEN
THEN
max_anzahl := haeufigkeit[i].anzahl;
END END; END END
END E END N D; { BuchstabenHaeufigkeit }
FUNCTION FUNCTION erfasse (typ, nn: integer): integer;
VAR V VAR A R i : integer;
tri : str3;
BEGIN
BEGIN
tri := ‚ ‚;
FOR F FOR O R i := 1 TO TO TTO TO O typ DO DO
DO
tri[i] := gross(textvorlage[nn + i - typ]);
i := 0;
IF I IF F aktuelle_anzahl = 0 THEN THEN BEGIN BEGIN i := i + 1;
ELSE ELSE BEGIN BEGIN
aktuelle_anzahl := i;
haeufigkeit[i].tripel := tri;
haeufigkeit[i].anzahl := 1;
END EEND END N D { THEN }
REPEAT REPEAT i := i + 1;
UNTIL UNTIL (haeufigkeit[i].tripel = tri) OR O OR R (i = aktuelle_anzahl);
IF I IF F haeufigkeit[i].tripel = tri THEN
THEN
haeufigkeit[i].anzahl := haeufigkeit[i].anzahl + 1 ELSE
ELSE
BEGIN BEGIN
END END; END
i := i + 1;
aktuelle_anzahl := i;
haeufigkeit[i].tripel := tri;
haeufigkeit[i].anzahl := 1;
END E END N D; { ELSE }
erfasse := aktuelle_anzahl;
END END EEND END N D; { erfasse }
40