{VERSION 5 0 "SUN SPARC SOLARIS" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "
" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "convert([9,2,7,1],ba
se,10,26);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"#8\"#9\"\"#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "with(StringTools):" }}{PARA 
7 "" 1 "" {TEXT -1 58 "Warning, the assigned name Group now has a glob
al binding\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "A:=cat(\"\\
n\\t\",Select(IsPrintable,convert([seq(i,i=1..225)],bytes)));" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"AGQ\\q|+|*~!\"#$%&'()*+,-./0123456
789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz|
fr|gr|hr|ir6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "StringtoL
ist:=proc(x)\nlocal i;\nglobal A;\n[seq(SearchText(x[i],A)-1,i=1..leng
th(x))];\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 267 "vignere:
=proc(x,key)\nlocal textnum,codenum,i,p, offset, keylen;\nglobal A;\np
:=length(A);\noffset:=StringtoList(key);\ntextnum:=StringtoList(x);\nk
eylen:=length(key);\ncodenum:=[seq(modp(textnum[i]+offset[modp(i-1,key
len)+1],p),i=1..length(x))];\nListtoString(codenum);\nend:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "ListtoString:=proc(y)\nlocal i;\ngl
obal A;\ncat(seq(A[y[i]+1],i=1..nops(y)));\nend:" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 116 "stringtokgraph:=proc(x::string,k::posint)\nl
ocal p;\nglobal A;\np:=length(A);\nconvert(StringtoList(x),base,p,p^k)
;\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%/stringtokgraphGf*6$'%\"x
G%'stringG'%\"kG%'posintG6#%\"pG6\"F/C$>8$-%'lengthG6#%\"AG-%(convertG
6&-%-StringtoListG6#9$%%baseGF2)F29%F/F5F/" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 42 "test:=stringtokgraph(\"this is a test\", 2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%testG7)\"%ks\"%?$)\"%xs\"$z#\"$h#\"
%tp\"%F%)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "p:=length(A);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG\"#(*" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 4 "p^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"%4%*
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "StringtoList(\"t\");" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#\"#')" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "StringtoList(\"h\");" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#7#\"#u" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "74*97+86;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"%ks" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 126 "kgraphtostring:=proc(x::list(nonnegint), k::posint)
\nlocal p;\nglobal A;\np:=length(A);\nListtoString(convert(x,base,p^k,
p));\nend;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%/kgraphtostringGf*6$'%\"xG-%%listG6#%*nonnegintG'%\"k
G%'posintG6#%\"pG6\"F2C$>8$-%'lengthG6#%\"AG-%-ListtoStringG6#-%(conve
rtG6&9$%%baseG)F59%F5F2F8F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
23 "kgraphtostring(test,2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q/this~
is~a~test6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 242 "encode:=pr
oc(x,y,key)\nlocal file,cfile,line;\nfile:=fopen(x,READ,TEXT);\ncfile:
=fopen(y,WRITE,TEXT);\nline:=readline(file);\nwhile(line<>0) do\n     \+
writeline(cfile,vignere(line,key));\n     line:=readline(file);\nod;\n
close(file);\nclose(cfile);\nend;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 
"" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'encodeGf*6%%\"xG%\"yG%$keyG6%%
%fileG%&cfileG%%lineG6\"F.C(>8$-%&fopenG6%9$%%READG%%TEXTG>8%-F36%9%%&
WRITEGF7>8&-%)readlineG6#F1?(F.\"\"\"FDF.0F?\"\"!C$-%*writelineG6$F9-%
(vignereG6$F?9&>F?F@-%&closeGFB-FQ6#F9F.F.F." }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 88 "encode(\"baudelaire-carcass.txt\",\"baudelaire-c
arcass.txtc\",\"baudelaire was a good dude\");" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "4 0 0" 87 }{VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }