{VERSION 3 0 "IBM INTEL LINUX" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "helvetica" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "helvetica" 1 18 0 0 0 0 1 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 1 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 259 1 {CSTYLE "" -1 -1 "helvetica" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 } 3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 260 1 {CSTYLE "" -1 -1 " helvetica" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 261 1 {CSTYLE "" -1 -1 "helvetica" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 26 "Klassische Kryptoverfahr en" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "re start; with(plots): with(plottools):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "Alphabet := \"ABCDEFGHIJKLMNOPQRSTUVWXYZ\":" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 1287 "\n\nAuszaehlen := proc(datei, Haeufigkeit, Digramm)\n# Die im ersten Argument angegebene Datei\n# wird gelesen, \+ die Zahlen Haeufigkeit[i], i=1..26\n# geben danach an, wie oft der i-t e Buchstabe\n# darin vorkommt, Digramm[i,j], wie oft das\n# Digramm au s dem i-ten und dem j-ten Buchstaben\n# auftritt. Zeichen, die keine B uchstaben sind,\n# werden ignoriert. Rueckgabewert der Prozedur\n# ist die Anzahl der gelesenen Buchstaben.\n \nlocal Zeile, i, j, n, L, Buc hstabe1, Buchstabe2, Nummer;\n\nfor i to 26 do\nHaeufigkeit[i] := 0;\n for j to 26 do\nDigramm[i, j] := 0;\nod; od;\n\nBuchstabe1 := -1;\nNum mer := 1;\nZeile := readline(datei);\n\n# Suche nach dem ersten Buchst aben\nwhile (Zeile <> 0) do\nL := length(Zeile);\nfor i to L do\nn := \+ nummer(Zeile[i]);\nif n > 0\nthen Haeufigkeit[n] := Haeufigkeit[n] + 1 ;\nBuchstabe1 := n;\nZeile := substring(Zeile, i+1..L);\nbreak;\nfi;\n od;\nif Buchstabe1 = -1 then\nZeile := readline(datei)\nelse break\nfi ;\nod;\n\n# Verarbeitung der weiteren Buchstaben\nwhile (Zeile <> 0) d o\nL := length(Zeile);\nfor i from 1 to L do\nn := nummer(Zeile[i]);\n if n > 0\nthen Haeufigkeit[n] := Haeufigkeit[n] + 1;\nBuchstabe2 := n; \nDigramm[Buchstabe1, Buchstabe2]\n:= Digramm[Buchstabe1, Buchstabe2] \+ + 1;\nBuchstabe1 := Buchstabe2\nfi\nod;\nZeile := readline(datei);\nod ;\n\nsum(Haeufigkeit['i'], 'i'=1..26)\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 420 "nummer := proc(c)\n# Falls das Zeichen c kein Buchst abe ist,\n# wird nummer auf -1 gesetzt, sonst auf\n# die Rangziffer di eses Buchstabens im\n# Alphabet. \n \nlocal n;\nn := op(convert(c, byt es));\nif op(convert(\"a\", bytes)) <= n and n <= op(convert(\"z\", by tes))\nthen n - op(convert(\"a\", bytes)) + 1\nelse\nif op(convert(\"A \", bytes)) <= n and n <= op(convert(\"Z\", bytes))\nthen n - op(conve rt(\"A\", bytes)) + 1\nelse -1 fi fi;\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 372 "caesar := proc(n, text)\n# Caesas-Verschluesselung v on text\n# durch Verschieben um n Buchstaben.\n\nlocal i, j, k, aus;\n global Alphabet;\naus := \"\";\nk := 0;\nfor i from 1 to length(text) \+ do\nj := nummer(text[i]);\nif j > 0 then\nj := 1 + ((j - 1 + n) mod 26 );\nif k = 5 then\nk := 1; \naus := cat(aus, \" \", Alphabet[j])\nelse \nk := k+1;\naus := cat(aus, Alphabet[j])\nfi\nfi\nod;\naus\nend:\n" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 689 "Histogramm := proc(Liste)\nlocal \+ i, max, Abstand;\nglobal Alphabet;\nmax := 0;\nfor i from 1 to 26 do\n if Liste[i] > max then max := Liste[i] fi;\nod;\nAbstand := -max/50;\n display([\nseq(rectangle([i-0.3, 0],[i+0.3, Liste[i]], axes=none, colo r=blue), i=1..26),\nseq(textplot([i, Abstand, Alphabet[i]], align=BELO W), i=1..26)],\naxes=none)\nend:\n\nHistogramm2 := proc(Liste)\nlocal \+ i, max, Abstand;\nglobal Alphabet;\nmax := 0;\nfor i from 1 to 26 do\n if Liste[i][2] > max then max := Liste[i][2] fi;\nod;\nAbstand := -max /50;\ndisplay([\nseq(rectangle([i-0.3, 0],[i+0.3, Liste[i][2]], axes=n one, color=blue), i=1..26),\nseq(textplot([i, Abstand, Alphabet[Liste[ i][1]]], align=BELOW), i=1..26)],\naxes=none)\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 686 "histo := proc(text, q)\nlocal i, Anzahl;\ngloba l Alphabet;\nfor i to 26 do q[i] := 0; od;\nfor i to length(text) do\n if nummer(text[i]) > 0 then\nq[nummer(text[i])] := q[nummer(text[i])] \+ + 1\nfi;\nod;\nAnzahl := sum(q['i'], 'i'=1..26);\nfor i to 26 do q[i] \+ := evalf(q[i]/Anzahl) od; \"\"\nend:\n\nhisto2 := proc(datei, Ergebnis )\nlocal Zeile, Haeufigkeit, i, n;\n\nfor i from 1 to 26 do Haeufigkei t[i] := 0 od;\n\nZeile := readline(datei);\nwhile (Zeile <> 0) do\nfor i from 1 to length(Zeile) do\nn := nummer(Zeile[i]);\nif n > 0\nthen \+ Haeufigkeit[n] := Haeufigkeit[n] + 1\nfi;\nod;\nZeile := readline(date i);\nod;\n\nErgebnis := [seq([i, Haeufigkeit[i]], i=1..26)];\nHistogra mm([seq(Haeufigkeit[i], i=1..26)])\nend:\n\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 367 "Histo := proc(text, q)\nlocal i;\nhisto(text, q);\nH istogramm([seq(q[i], i=1..26)]);\nend:\n\nHistogramm3 := proc(Liste)\n local i, max, farbe;\nfarbe[1] := red; farbe[2] := green; farbe[3] := \+ blue;\nfarbe[0] := yellow;\ndisplay3d([\nseq(seq(cuboid([j-0.3, i-0.3, 0],[j+0.3, i+0.3, Liste[i,j]],\ncolor=farbe[i mod 4]), j=1..26), i=1. .26)], orientation=[-45,60], axes=framed)\nend:\n" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 1799 "Doppelhisto := proc(Digramm, perm, Buchstabe)\nlo cal i, j, max, nachher, vorher, Abstand;\nglobal Alphabet;\nfor j to 2 6 do\nvorher[j] := Digramm[perm[j], nummer(Buchstabe)]:\nnachher[j]:= \+ Digramm[nummer(Buchstabe), perm[j]]:\nod:\nmax := 0;\nfor i from 1 to \+ 26 do\nif nachher[i] + vorher[i] > max\nthen max := nachher[i]+vorher[ i] fi;\nod;\nAbstand := max/12;\ndisplay([\nseq(rectangle([i-0.3, Abst and],[i+0.3, Abstand+nachher[i]],\naxes=none, color=blue),\ni=1..26), \nseq(rectangle([i-0.3, -Abstand],[i+0.3, -(Abstand + vorher[i])], axe s=none, color=red, axes=none),\ni=1..26),\nseq(textplot([i, 0, Alphabe t[perm[i]]]), i=1..26)], axes=none,\ntitle=\"Kontakth\344ufigkeiten f \374r \". Buchstabe)\nend:\n\nKontakt := proc(n, perm, vorher, nachher )\nlocal i, max, Abstand;\nglobal Alphabet;\nmax := 0;\nfor i from 1 t o 26 do\nif nachher[n,i] + vorher[n,i] > max\nthen max := nachher[n,i] +vorher[n,i] fi;\nod;\nAbstand := max/12;\ndisplay([\nseq(rectangle([i -0.3, Abstand],[i+0.3, Abstand+nachher[n,perm[i]]],\naxes=none, color= blue),\ni=1..26),\nseq(rectangle([i-0.3, -Abstand],[i+0.3, -(Abstand + vorher[n,perm[i]])], axes=none, color=red, axes=none),\ni=1..26),\nse q(textplot([i, 0, Alphabet[perm[i]]]), i=1..26)], axes=none,\ntitle=sp rintf(\"Kontaktdiagramm des Buchstabens %s\", Alphabet[n]),\ntitlefont =[HELVETICA, 10])\nend:\n\nberechne := proc(Digramm, vorher, nachher) \nlocal i, j, NSumme, VSumme;\nfor i from 1 to 26 do\nNSumme[i] := 0; \nfor j from 1 to 26 do\nNSumme[i] := NSumme[i] + Digramm[i,j];\nvorhe r[i,j] := 0;\nnachher[i,j] := 0;\nod; od:\nfor j from 1 to 26 do\nVSum me[j] := 0;\nfor i from 1 to 26 do\nNSumme[j] := NSumme[j] + Digramm[i ,j]\nod; od:\nfor i from 1 to 26 do\nfor j from 1 to 26 do\nnachher[i, j] := nachher[i,j] + Digramm[i, j]\nod; od:\nfor j from 1 to 26 do\nfo r i from 1 to 26 do\nvorher[i,j] := vorher[i,j] + Digramm[j, i]\nod; o d:\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "groesser := proc(a,b) \nevalb(a[2] > b[2])\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 155 "pq Summe := proc(p, q)\nlocal i, j;\nsort([seq([j, evalf(\n sum(p[i]*q[i+ j], i=1..26-j) + sum(p[i]*q[i+j-26], i=27-j..26)\n , 3)], j=1..26)], groesser);\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "pqTest := pr oc(text)\nlocal q;\nglobal p;\nhisto(text, q);\npqSumme(p, q)\nend:\n " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 407 "Vigenere := proc(Codewort, tex t)\nlocal i, j, k, l, c, aus;\nglobal Alphabet;\nl := length(Codewort) ;\nfor i to l do\nc[i] := nummer(Codewort[i]);\nod;\nc[0] := c[l];\nk \+ := 1;\naus := \"\";\nfor i from 1 to length(text) do\nj := nummer(text [i]);\nif j > 0 then\nj := 1 + ((j - 1 + c[k mod l]) mod 26);\nif (k m od 5) = 1 then\naus := cat(aus, \" \", Alphabet[j])\nelse\naus := cat( aus, Alphabet[j])\nfi;\nk := k+1;\nfi\nod;\naus\nend:\n" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 410 "vigenere := proc(Codewort, text)\nlocal i, j, k, l, c, aus;\nglobal Alphabet;\nl := length(Codewort);\nfor i to l d o\nc[i] := 26-nummer(Codewort[i]);\nod;\nc[0] := c[l];\nk := 1;\naus : = \"\";\nfor i from 1 to length(text) do\nj := nummer(text[i]);\nif j \+ > 0 then\nj := 1 + ((j - 1 + c[k mod l]) mod 26);\nif (k mod 5) = 1 th en\naus := cat(aus, \" \", Alphabet[j])\nelse\naus := cat(aus, Alphabe t[j])\nfi;\nk := k+1;\nfi\nod;\naus\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 225 "Differenz := proc(Codewort, text)\nlocal i, j, l, au s;\nglobal Alphabet;\nl := length(Codewort);\naus := \"\";\nfor i to l do\nj := 1 + ((nummer(text[i]) - nummer(Codewort[i]) - 1) mod 26) ;\n aus := cat(aus, Alphabet[j])\nod;\naus\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 395 "kappa := proc(text, n)\nlocal h, i, j, l, folge;\nl \+ := length(text, n);\nfolge := \"\";\nfor i from 1 to l do\nif text[i] \+ <> \" \" then\nfolge := cat(folge, text[i]);\nfi;\nod;\nl := length(fo lge);\nfor i to n do\nh[i] := 0;\nfor j to l-i do\nif folge[j] = folge [j+i] then h[i] := h[i] + 1 fi\nod\nod;\nstats[statplots, histogram]([ seq(Weight(i, h[i]), i=1..n)], area=count, numbars=n, xtickmarks=trunc (n/3));\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 457 "pqvig := proc(t ext, k)\nlocal i, j, l, m, folge, ergebnis;\nglobal Alphabet;\nl := le ngth(text);\nfor i to k do folge[i] := \"\"; od;\nj := 0;\nfor i to l \+ do\nif nummer(text[i]) > 0 then\nif j = k then j := 1 else j := j+1 fi ;\nfolge[j] := cat(folge[j], text[i])\nfi\nod;\nfor j to k do\nergebni s[j] := pqTest(folge[j]);\nfor i to 4 do\nm := 26 - ergebnis[j][i][1]; \nif m = 0 then m := 26 fi;\nprintf(\" %s %4.3f\", Alphabet[m], erg ebnis[j][i][2])\nod;\nprintf(\"\\n\");\nod;\nend:\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 1125 "block := proc(text, n)\nlocal i, j;\nj := 0;\nfo r i to length(text) do\nif nummer(text[i]) > 0 then\nj := j+1; printf( \"%s\", text[i]);\nif j = n then printf(\"\\n\"); j := 0 fi\nfi\nod;\n printf(\"\\n\");\nend:\n\nkrypto := proc(datei)\nlocal Zeile;\nZeile : = readline(datei);\nwhile (Zeile <> 0) do\nprintf(\"%s%s\", Zeile, \" \\n\");\nZeile := readline(datei);\nod\nend:\n\nBuchstabe := proc(i)\n if KLAR[i] = 0 then \" \"\nelse Alphabet[KLAR[i]] fi\nend:\n\nKlar := \+ proc(chiffre, klar)\nglobal KLAR;\nKLAR[nummer(chiffre)] := nummer(kla r)\nend:\n\nversuch := proc(datei)\nlocal i,j,k,l,Zeile,klar,krypto;\n krypto := \" \"; klar := \" \";\nZeile := readline(datei);\nk := 0;\nl := 0;\nwhile (Zeile <> 0) do\nfor i from 1 to length(Zeile) do\nj := \+ nummer(Zeile[i]);\nif j > 0 then\nif k = 5 then\nk := 1;\nif l = 7 the n\nprintf(\"%s\\n%s\\n\\n\", krypto, klar);\nkrypto := \"\"; klar := \+ \"\"; l := 0;\nelse l := l + 1\nfi;\nkrypto := cat(krypto, \" \", Alph abet[j]);\nklar := cat(klar , \" \", Buchstabe(j));\nelse\nk := k+1 ;\nkrypto := cat(krypto, Alphabet[j]);\nklar := cat(klar , Buchstab e(j));\nfi\nfi;\nod;\nZeile := readline(datei);\nod;\nif krypto <> \" \" then\nprintf(\"%s\\n%s\\n\\n\", krypto, klar);\nfi;\nend:\n" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 257 "" 0 "" {TEXT -1 26 "Erstes Beispielkryptogramm" }{MPLTEXT 1 0 1 "\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "Kryptogramm1 := \n \"DQJUL \+ IILPP RUJHQ JUDXH Q\":\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "Histo(Kryptogramm1, 'q');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "caesar(-5, Kryptogramm1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "caesar(-12, Kryptogramm1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "caesar(-16, Kryptogramm1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "Anzahl := Auszaehlen(\"badereise.asc\", Haeufigkei ten, Digramm);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Histogram m(Haeufigkeiten);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "Histo( Kryptogramm1, 'q');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Hist ogramm(Haeufigkeiten);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "c aesar(-3, Kryptogramm1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "for i to 26 do\np[i] := Haeufigkeiten[i]/Anzahl\nod:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "pqTest(Kryptogramm1);" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 16 "Der one time pad" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "schluessel := \"\":\nfor i to 21 do\nsch luessel := cat(schluessel, Alphabet[(rand() mod 26) + 1])\nod:\nschlue ssel;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "Kryptogramm := Vig enere(schluessel, \"Angriff im Morgengrauen\");" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 24 "Histo(Kryptogramm, 'q');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "evalf(26^21);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "vigenere(schluessel, Kryptogramm);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "schluessel2 := Differenz(\"ADBVXYVCHZPVYP QKUTYOU\", schluessel);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 " vigenere(schluessel2, Kryptogramm);" }}}{EXCHG {PARA 261 "" 0 "" {TEXT -1 0 "" }}{PARA 260 "" 0 "" {TEXT 257 27 "Zweites Beispielkrypto gramm" }{TEXT -1 1 "\n" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 475 "kryptogramm2 := \"\nPDOAA KKMQB LYORJ FTLXM OQGYU \+ XTKCQ LXLVB ATCBU MJEDM SQZJJ OZPHT AEZZD FFRSK XTYZV MVVZS QTZUO CTGD X ENOGX XGCOI GXHBN OZXCC COJXJ PBQTV XTDOF ZRZND FHADX LZCQC NPBSL HT DVM ESKSP YFCDB QHCEV ZDVIA DRKTR PGJDQ RFUUW AKQXP UZQVD AMXLF XGFGC \+ BTCFT KYRES GSALT VGZWT VSQOP UCALM ZFGMA VNDOZ ZNJOA HVDDQ CMONK CPPB U ZZZYK PYRAD LZLYV GXNUB IURKX OEBBZ DNAWE UOVKH TPISF DLIIQ LOXHO PA IZZ CAWEV XYSXU IZVUQ MAICE SKYXL AIZEH KVNCR KUXYH IFKMK BJVHO TRSXX \+ ZIEZJ\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Histo(kryptogra mm2, 'q2');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "evalf(sum(p[ 'i']^2, 'i'=1..26));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "eva lf(1/26);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "kappa(kryptogr amm2, 50);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "kappa(kryptog ramm2, 120);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "pqvig(krypt ogramm2, 29);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "Vigenere( \"NATHMBPTAGSSEIIAARKRYPTOLOGIE\", kryptogramm2);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 13 "block(%, 29);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "evalf(480/29);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 475 "kryptogramm3 := \"\nPZWDV AKLNZ ZDMDE MGYNZ VNGSC DVFAD YTFDP PVKOS BFMYT SUDND JOMAO MJVIQ BMQUQ MZAAV XNAEO UXQFX IDXNM UYHDR AFE HO AQVZN JPRIQ EBUGC QGRVJ XPLXS IROTX LMMUF ZILPT KKIHM MHWXD NYIIJ N ESVD VTGDX ZZSOA JNJEU ZZLHQ LUXMA CLXJE EZPXQ NXUYJ IIBYW ETCFN MSXZH FOPLS FPZFG GCUGR JWHIA OPQEY PTLUM MPHCN BKWAZ IQGCQ KNZNY MUGGO TCX ND ELQYN KTVSR WKCQF ZFBWZ WJLLX IEGGA FHZYA MRVBP QJNNV QAQQG PYJMM Y YYAE WQBCQ GEOZY QLTOW YMQLH ZWMGQ ZDLXF JJOME SGGSZ SBMTK NJJVY\":" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Histo(kryptogramm3, 'q3'); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "kappa(kryptogramm3, 50) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "pqvig(kryptogramm3, 16 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "block(Vigenere(\"NEUE RSTUDIENGANG\", kryptogramm3), 32);" }}}{EXCHG {PARA 259 "" 0 "" {TEXT -1 1 "\n" }{TEXT 258 27 "Drittes Beispielkryptogramm" }{TEXT -1 1 "\n" }{TEXT 256 0 "" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "krypto(\"monokryp.txt\"):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 64 "KAnzahl := Auszaehlen(\"monokryp.txt\", KHaeufigkei ten, KDigramm):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "Histogramm(KHaeu figkeiten);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "groesser := \+ proc(a, b)\nevalb(a[2] > b[2])\nend:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "kleiner := proc(a, b)\nevalb(a[2] < b[2])\nend:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "Haeufigkeit2 := sort([seq([i, Haeufigkeiten[i]], i=1..26)], groesser);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "p erm := [seq(Haeufigkeit2[i][1], i=1..26)]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "seq(convert(Alphabet[perm[i]], name), i=1..26);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Histogramm2(Haeufigkeit2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "Krypthaeuf2 := sort([seq( [i, KHaeufigkeiten[i]], i=1..26)], groesser);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "perm2 := [seq(Krypthaeuf2[i][1], i=1..26)]:\nseq (convert(Alphabet[perm2[i]], name), i=1..26);\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "Histogramm2(Krypthaeuf2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 135 "for i from 1 to 26 do KLAR[i] := 0; od:\nf or i from 1 to 26 do\nKlar(Alphabet[perm2[i]], Alphabet[perm[i]])\nod: \nversuch(\"monokryp.txt\");\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Histogramm2(Haeufigkeit2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "for i to 26 do KLAR[i] := 0 od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "Histogramm3(Digramm);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 22 "Histogramm3(KDigramm);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 32 "Doppelhisto(Digramm, perm, \"E\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Doppelhisto(KDigramm, perm2, \"E\") ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Doppelhisto(KDigramm, \+ perm2, \"O\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Doppelhis to(KDigramm, perm2, \"H\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Doppelhisto(KDigramm, perm2, \"W\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Doppelhisto(KDigramm, perm2, \"N\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Doppelhisto(KDigramm, perm2, \"A\") ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Doppelhisto(KDigramm, \+ perm2, \"U\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "Klar(\"E \", \"A\"):\nKlar(\"O\", \"N\"):\nKlar(\"H\", \"T\"):\nKlar(\"W\", \"I \"):\nKlar(\"N\", \"S\"):\nKlar(\"A\", \"O\"):\nKlar(\"K\", \"V\"):\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "versuch(\"monokryp.txt \");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "Klar(\"U\", \"L\"): \nKlar(\"Q\", \"H\"):\nKlar(\"S\", \"P\"):\nKlar(\"Y\", \"G\"):\nversu ch(\"monokryp.txt\"):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "Kl ar(\"V\", \"D\"):\nKlar(\"I\", \"M\"):\nKlar(\"L\", \"B\"):\nversuch( \"monokryp.txt\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "Klar( \"G\", \"C\"):\nKlar(\"J\", \"U\"):\nKlar(\"F\", \"Z\"):\nKlar(\"M\", \+ \"W\"):\nversuch(\"monokryp.txt\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "Klar(\"B\", \"F\"):\nKlar(\"T\", \"K\"):\nversuch(\"m onokryp.txt\");\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "Klar( \"D\", \"Q\"):\nKlar(\"P\", \"Y\"):\nversuch(\"monokryp.txt\");" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 2 } {VIEWOPTS 1 1 0 3 2 1804 }