{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 "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 273 "\nwith(StringTools) :\nToNumList := proc(str::string)\n local slist;\n global Alphabet; \n slist := Explode(str);\n return(\n map(x->SearchText(x,Alphab et)-1, slist));\nend;\nNumListToStr:=proc(l::list)\n global Alphabet; \n return(\n Implode(map(x->Alphabet[x+1], l)));\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%*ToNumListGf*6#'%$strG%'stringG6#%&slistG6\"F ,C$>8$-_F,%(ExplodeG6#9$O-%$mapG6$f*6#%\"xGF,6$%)operatorG%&arrowGF,,& -%+SearchTextG6$F4%)AlphabetG\"\"\"FD!\"\"F,F,F,F/F,6#FCF," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-NumListToStrGf*6#'%\"lG%%listG6\"F*F*O-_F *%(ImplodeG6#-%$mapG6$f*6#%\"xGF*6$%)operatorG%&arrowGF*&%)AlphabetG6# ,&9$\"\"\"F>F>F*F*F*F=F*6#F:F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "seq(Char(i),i=0..255);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 "" {XPPMATH 20 "6\\[lQ!6\"Q\"|\"F$Q\"|#F$Q\"|$F$Q\"|%F $Q\"|&F$Q\"|'F$Q\"|(F$Q\"|)F$Q\"|*F$Q\"|+F$Q\"|,F$Q\"|-F$Q\"|.F$Q\"|/F $Q\"|0F$Q\"|1F$Q\"|2F$Q\"|3F$Q\"|4F$Q\"|5F$Q\"|6F$Q\"|7F$Q\"|8F$Q\"|9F $Q\"|:F$Q\"|;F$Q\"|F$Q\"|?F$Q\"|@F$Q\"~F$Q\"!F$Q\"\"F$Q \"#F$Q\"$F$Q\"%F$Q\"&F$Q\"'F$Q\"(F$Q\")F$Q\"*F$Q\"+F$Q\",F$Q\"-F$Q\".F $Q\"/F$Q\"0F$Q\"1F$Q\"2F$Q\"3F$Q\"4F$Q\"5F$Q\"6F$Q\"7F$Q\"8F$Q\"9F$Q\" :F$Q\";F$Q\"F$Q\"?F$Q\"@F$Q\"AF$Q\"BF$Q\"CF$Q\"DF$Q\"EF$Q \"FF$Q\"GF$Q\"HF$Q\"IF$Q\"JF$Q\"KF$Q\"LF$Q\"MF$Q\"NF$Q\"OF$Q\"PF$Q\"QF $Q\"RF$Q\"SF$Q\"TF$Q\"UF$Q\"VF$Q\"WF$Q\"XF$Q\"YF$Q\"ZF$Q\"[F$Q\"\\F$Q \"]F$Q\"^F$Q\"_F$Q\"`F$Q\"aF$Q\"bF$Q\"cF$Q\"dF$Q\"eF$Q\"fF$Q\"gF$Q\"hF $Q\"iF$Q\"jF$Q\"kF$Q\"lF$Q\"mF$Q\"nF$Q\"oF$Q\"pF$Q\"qF$Q\"rF$Q\"sF$Q\" tF$Q\"uF$Q\"vF$Q\"wF$Q\"xF$Q\"yF$Q\"zF$Q\"|frF$Q\"|grF$Q\"|hrF$Q\"|irF $Q\"|jrF$Q\"|[sF$Q\"|\\sF$Q\"|]sF$Q\"|^sF$Q\"|_sF$Q\"|`sF$Q\"|asF$Q\"| bsF$Q\"|csF$Q\"|dsF$Q\"|esF$Q\"|fsF$Q\"|gsF$Q\"|hsF$Q\"|isF$Q\"|jsF$Q \"|[tF$Q\"|\\tF$Q\"|]tF$Q\"|^tF$Q\"|_tF$Q\"|`tF$Q\"|atF$Q\"|btF$Q\"|ct F$Q\"|dtF$Q\"|etF$Q\"|ftF$Q\"|gtF$Q\"|htF$Q\"|itF$Q\"|jtF$Q\"|[uF$Q\"| \\uF$Q\"|]uF$Q\"|^uF$Q\"|_uF$Q\"|`uF$Q\"|auF$Q\"|buF$Q\"|cuF$Q\"|duF$Q \"|euF$Q\"|fuF$Q\"|guF$Q\"|huF$Q\"|iuF$Q\"|juF$Q\"|[vF$Q\"|\\vF$Q\"|]v F$Q\"|^vF$Q\"|_vF$Q\"|`vF$Q\"|avF$Q\"|bvF$Q\"|cvF$Q\"|dvF$Q\"|evF$Q\"| fvF$Q\"|gvF$Q\"|hvF$Q\"|ivF$Q\"|jvF$Q\"|[wF$Q\"|\\wF$Q\"|]wF$Q\"|^wF$Q \"|_wF$Q\"|`wF$Q\"|awF$Q\"|bwF$Q\"|cwF$Q\"|dwF$Q\"|ewF$Q\"|fwF$Q\"|gwF $Q\"|hwF$Q\"|iwF$Q\"|jwF$Q\"|[xF$Q\"|\\xF$Q\"|]xF$Q\"|^xF$Q\"|_xF$Q\"| `xF$Q\"|axF$Q\"|bxF$Q\"|cxF$Q\"|dxF$Q\"|exF$Q\"|fxF$Q\"|gxF$Q\"|hxF$Q \"|ixF$Q\"|jxF$Q\"|[yF$Q\"|\\yF$Q\"|]yF$Q\"|^yF$Q\"|_yF$Q\"|`yF$Q\"|ay F$Q\"|byF$Q\"|cyF$Q\"|dyF$Q\"|eyF$Q\"|fyF$Q\"|gyF$Q\"|hyF$Q\"|iyF$Q\"| jyF$Q\"|[zF$Q\"|\\zF$Q\"|]zF$Q\"|^zF$Q\"|_zF$Q\"|`zF$Q\"|azF$Q\"|bzF$Q \"|czF$Q\"|dzF$Q\"|ezF$Q\"|fzF$Q\"|gzF$Q\"|hzF$Q\"|izF$Q\"|jzF$" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "IsAlpha(\"a\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "IsAlpha(\" \");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "IsPrintable(\" \");" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "IsPrintable(Char(3));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "select(Is Printable,[seq(Char(i),i=1..255)]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6 #7[qQ\"~6\"Q\"!F%Q\"\"F%Q\"#F%Q\"$F%Q\"%F%Q\"&F%Q\"'F%Q\"(F%Q\")F%Q\"* F%Q\"+F%Q\",F%Q\"-F%Q\".F%Q\"/F%Q\"0F%Q\"1F%Q\"2F%Q\"3F%Q\"4F%Q\"5F%Q \"6F%Q\"7F%Q\"8F%Q\"9F%Q\":F%Q\";F%Q\"F%Q\"?F%Q\"@F%Q\"AF %Q\"BF%Q\"CF%Q\"DF%Q\"EF%Q\"FF%Q\"GF%Q\"HF%Q\"IF%Q\"JF%Q\"KF%Q\"LF%Q\" MF%Q\"NF%Q\"OF%Q\"PF%Q\"QF%Q\"RF%Q\"SF%Q\"TF%Q\"UF%Q\"VF%Q\"WF%Q\"XF%Q \"YF%Q\"ZF%Q\"[F%Q\"\\F%Q\"]F%Q\"^F%Q\"_F%Q\"`F%Q\"aF%Q\"bF%Q\"cF%Q\"d F%Q\"eF%Q\"fF%Q\"gF%Q\"hF%Q\"iF%Q\"jF%Q\"kF%Q\"lF%Q\"mF%Q\"nF%Q\"oF%Q \"pF%Q\"qF%Q\"rF%Q\"sF%Q\"tF%Q\"uF%Q\"vF%Q\"wF%Q\"xF%Q\"yF%Q\"zF%Q\"|f rF%Q\"|grF%Q\"|hrF%Q\"|irF%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "Alphabet:=Implode(select(IsPrintable,[seq(Char(i),i=1..255)]));" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)AlphabetGQjp~!\"#$%&'()*+,-./01234 56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxy z|fr|gr|hr|ir6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "Alphabe t:=Implode(select(IsSpace or IsPrintable,[seq(Char(i),i=1..255)]));" } }{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)AlphabetGQ_q|*|+|,|-|.~!\"#$%&'()* +,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmno pqrstuvwxyz|fr|gr|hr|ir6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "Alphabet:=Implode([\"\\n\",\"\\t\",op(select(IsPrintable,[seq(Char (i),i=1..255)]))]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)AlphabetGQ\\ q|+|*~!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^ _`abcdefghijklmnopqrstuvwxyz|fr|gr|hr|ir6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 290 "Vignere:= proc(plain, key)\n local nl, i, j, key len, Alen;\n global Alphabet, ToNumList, NumListToStr;\n keylen:=nop s(key);\n Alen :=length(Alphabet);\n nl := ToNumList(plain);\n Num ListToStr(\n [seq( nl[i]+ key[modp(i-1,keylen)+1] mod length(Alpha bet), i=1..length(plain))]\n );\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "ToNumList(\"hidey ho\");\nVignere(\"hidey ho\", [1,2, 3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*\"#u\"#v\"#q\"#r\"#\"*\"\"#F $\"#\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q)ikgf|fr#iq6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "Vignere(%, [-1, -2, -3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q)hidey~ho6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "13 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }