Kryptologie - Informatik

Weitere Magazine

Empfehlungen

Info

Anlage 7 : Programmlauf : Interaktiv Durch Überblendung können jeweils die Statistiken von Buchstabenhäufigkeiten, Bigrammen und Trigrammen eingeblendet werden: 28
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
Seite 1 und 2: Stichworte: Pascal-Datentypen: •
Seite 3 und 4: Unterrichtsbeschreibung zur Kryptol
Seite 5 und 6: Anlage 2: Das File-Konzept in THINK
Seite 7 und 8: PROGRAM PROGRAM PROGRAM stringTests
Seite 9 und 10: Anlage 4 : Protokoll der Projektspe
Seite 11 und 12: 1.6 PROCEDURE PROCEDURE PROCEDURE M
Seite 13 und 14: 2.3 Vorgehensweise bei Buchstaben:
Seite 15 und 16: 3. Textanalyse Platz 04 Ein Program
Seite 17 und 18: 4. Codierung mit fester ZuordnungPl
Seite 19 und 20: 5.3 Layout alt neu Text Interaktive
Seite 21 und 22: 6.2 Entschlüsselung: Um die Vigen
Seite 23 und 24: Anlage 6 : Kursarbeit 1. Im nachfol
Seite 25 und 26: Anlage 7 : Programmlauf : Bereinigt
Seite 27: ————— Bigramme sortiert
Seite 31 und 32: PROCEDURE PROCEDURE text_ausgeben;
Seite 33 und 34: PROCEDURE PROCEDURE sichern; VAR V
Seite 35 und 36: PROCEDURE PROCEDURE codierung; VAR
Seite 37 und 38: BEGIN BEGIN { analyse } FOR FOR F F
Seite 39 und 40: PROCEDURE PROCEDURE textAnalyse (si
Seite 41 und 42: FUNCTION FUNCTION uebernehmen_von (
Seite 43 und 44: BEGIN BEGIN { Bild_zeichnen } WITH
Seite 45 und 46: PROCEDURE PROCEDURE PROCEDURE warte
Seite 47 und 48: BEGIN BEGIN { Interaktion } hinweis
Seite 49 und 50: PROCEDURE PROCEDURE behandle_Klick_
Seite 51: Anlage 9 : PGP-Algoritmus private k

Kryptologie - Informatik

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?