Kryptologie - Informatik

BEGIN BEGIN { handleApple }
CASE CASE dasItem OF
OF
1: infos;
OTHERWISE
OTHERWISE
BEGIN
BEGIN
appleMenu := getMHandle(RES_ID_NR);
getItem(appleMenu, dasItem, accName);
accNumber := openD enD eenD n Deskacc(accName);
END END END; END
END E END N D; { CASE }
END E END N D; { handleApple }
BEGIN BEGIN { Menue_bearbeiten }
IF I IF F info 0 THEN
THEN
BEGIN
BEGIN
IF I IF F menu_markiert(4, 4) THEN
THEN
item_aend end eend n dern(4, 4);
PenNormal;
MenuNumm := Hiword(info) - RES_ID_NR + 1;
menuItem := LoWord(info);
CASE CASE MenuNumm OF
OF
1: handleApple(menuItem); { APPLE }
2: CASE CASE menuItem OF O OF F { Ablage }
1: BEGIN BEGIN original_laden; dateiname := concat(dateiname, ‚.O‘);
END END; END
2: BEGIN BEGIN bereinigt_laden; dateiname := concat(dateiname, ‚.B‘);
END END END; END END
4: sichern;
6: ende := true;
END END EEND END N D; { CASE menuItem 2 }
3: CASE CASE CASE menuItem OF O OF F { Codierung }
1: BEGIN BEGIN dateiname := concat(dateiname, ‚C‘); caesar(true);
END END; END
2: BEGIN BEGIN dateiname := concat(dateiname, ‚Z‘); zuordnung(true);
END END; END
3: BEGIN BEGIN dateiname := concat(dateiname, ‚V‘); vigenere(true);
END END; END
END E END N D; { CASE menuItem 3 }
4: CASE CASE menuItem OF O OF F { Dekodierung }
1: BEGIN BEGIN dateiname := concat(dateiname, ‚c‘); caesar(false);
END END; END
2: BEGIN BEGIN dateiname := concat(dateiname, ‚z‘);zuordnung(false);
END END; END
3: BEGIN BEGIN dateiname := concat(dateiname, ‚v‘); vigenere(false);
END END; END
END E END N D;{ CASE menuItem 4 }
5: CASE CASE menuItem OF OOF OF F { Werkzeuge }
1: BEGIN BEGIN dateiname := concat(dateiname, ‚t‘); textAnalyse(TRUE);
END END; END
3:
END END; END
BEGIN BEGIN dateiname := concat(dateiname, ‚i‘); interAktiv;
END E END N D;{ CASE menuItem 4 }
END E END N D; { CASE MenuNumm }
hiliteMenu(0);
END END EEND END N D; { IF }
END END E END N D; { Menue_bearbeiten }
48