{VERSION 2 3 "SUN SPARC SOLARIS" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 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 "Heading 1" 0 3 1 {CSTYLE "" -1 
-1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 34 "Verschl\374sselte Datei lesen und in " }
{MPLTEXT 0 21 3 "txt" }{TEXT -1 25 " als Zahlenfolge ablegen." }{TEXT 
-1 45 "\n(Den Dateinamen mu\337 man nat\374rlich anpassen.)" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 36 "CRYPTFILE:=`myfolder/text01.crypt`:\n" }
{TEXT -1 0 "" }{MPLTEXT 1 0 58 "txt:=readbytes( CRYPTFILE, infinity ):
\nclose( CRYPTFILE ):" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 44 "Anschauen... (Achtung: # bedeutet Kommentar)" }{TEXT -1 0 "" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "#convert(txt,bytes);" }{TEXT -1 0 "
" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 31 "H\344ufigkeitsanalyse kurzer
 Texte" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "H\344ufigkeit aller Zeic
hen bestimmen." }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 128 "n
:=table([]):\nN := 0:\nfor a in txt do\n  if not member([a], \{indices
(n)\}) then n[a]:=0; fi;\n  n[a] := n[a] + 1;\n  N := N + 1;\nod:" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 13 "H\344ufigkeiten " }{TEXT -1 111 "a
ls Tabelle ausgeben.\n(Entfernt man das Kommentarzeichen, so werden ei
nige Werte bei der Anzeige \374bersprungen.)" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 128 "for i in sort(map(op,[indices(n)])) do\n  #if n[i]/N
<.005 then next; fi;\n  printf( `%3d (%c): %8.5f%%\\n`, i, i, 100*n[i]
/N );\nod:" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 58 "So kann man die AS
CII-Codes f\374r Buchstaben rauskriegen ..." }{TEXT -1 0 "" }}{PARA 0 
"> " 0 "" {MPLTEXT 1 0 21 "convert(`Abx`,bytes);" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 24 "Platz f\374r Experminte ..." }{TEXT -1 0 "" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 
"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 109 "So kann man (wenn man alle n\366tigen Ersetzungen b
eisammen hat),\nden Klartext erhalten und probeweise anzeigen." }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "klartext:=subs( \{ 100=57, 10=67 \}
, txt ):\nconvert( klartext, bytes ); " }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 27 "Und jetzt noch abspeichern." }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 71 "writebytes(``.CRYPTFILE.`.lsg`, klartext );\nclose(``
.CRYPTFILE.`.lsg`):" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 134 "We
nn alles fertig und (hoffentlich) richtig entschl\374sselt ist,\nbitte
 diese Datei an  crypto-loesungen@math.uni-paderborn.de  schicken." }
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK 
"3 0 0" 1 }{VIEWOPTS 1 1 0 1 1 1803 }