Kryptologie - Informatik

Anlage 8 : Lauffähiges Programm
in THINK-Pascal for Macintosh
PROGRAM PROGRAM De_Codierung; { Stand 20. Januar 1999 }
USES USES GrafikUnit;
CONST CONST N = 4096; { maximale Textlänge }
STANDARD_ERFASSEN = FALSE;
TYPE TYPE str2 = STRING[2];
str3 = STRING[3];
typ3 = RECORD
RECORD
anzahl: integer;
tripel: str3;
END END; END
hist = ARRAY ARRAY[1..26] ARRAY OF O OF F typ3;
{ nur zur Abkürzung }
VAR V VAR A R multiFinder, ende : boolean;
ereignis : eventRecord;
dateiName : string;
textLaenge, buAnzahl, gesamt : integer;
textVorlage : ARRAY ARRAY[1..N] ARRAY OF O OF F char;
standard, buchstaben : ARRAY ARRAY[1..3] ARRAY OF O OF F hist;
FUNCTION FUNCTION gross (c: char): char;
BEGIN
BEGIN
CASE CASE CASE c OF
‚a‘..’z’: gross := chr(ord(c) - 32);
OTHERWISE OTHERWISE gross := c;
END
END
END E END N D;{ gross }
FUNCTION
FUNCTION FUNCTION verschiebe (c: char; v: integer): char;
BEGIN
BEGIN
IF IF c IN I IN N [‚A‘..’Z’] THEN THEN
THEN
verschiebe := chr(65 + (ord(c) - 65 + v) MOD M MOD O D 26) ELSE
ELSE
IF IF c IN I IN N [‚a‘..’z’] THEN
THEN
verschiebe := chr(97 + (ord(c) - 97 + v) MOD M MOD O D 26) ELSE
ELSE
IF IF c IN I IN N [‚0‘..’9'] THEN
THEN
verschiebe := chr(48 + (ord(c) - 48 + v) MOD MOD 10)
ELSE ELSEverschiebe ELSE
:= c;
END E END N D; { verschiebe }
PROCEDURE PROCEDURE item_aendern (spalte, zeile: integer); { kumulativ }
VAR V VAR A R c : char;
i, n_item : integer;
aktuellesMenu: menuHandle;
BEGIN
BEGIN
aktuellesMenu := getMenu(spalte + RES_ID_NR - 1);
n_item := countMItems(aktuellesMenu);
IF I IF F zeile = 0 THEN
THEN
FOR F FOR O R i := 1 TO T TO O n_item DO DO DDO DO O
ELSE
ELSE
BEGIN
BEGIN
checkItem(aktuellesMenu, i, false)
getItemMark(aktuellesMenu, zeile, c);
IF IIF IF F ord(c) = 0 THEN THEN
checkItem(aktuellesMenu, zeile, true)
ELSE ELSE ELSE
END E END N D; { ELSE }
END E END N D; { item_aendern }
checkItem(aktuellesMenu, zeile, false);
29