{VERSION 2 3 "IBM INTEL NT" "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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 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 "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "Alphabet := `ABCDEFG HIJKLMNOPQRSTUVWXYZ\nabcdefghijklmnopqrstuvwxyz., `;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 252 "Caesar:= proc(plaintext, offset)\n local textn um,codenum,i;\n\n textnum := convert(plaintext,bytes);\n codenum := \+ \n [seq( modp(textnum[i]+offset-1, 255) + 1,\n i=1..leng th(plaintext)) ];\n ## print(codenum); \n convert(codenum,bytes);\n end:" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)AlphabetG%YABCDEFGHIJKLMNOP QRSTUVWXYZ|+abcdefghijklmnopqrstuvwxyz.,~G" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 130 "ToNum := proc(text)\n local i;\n global Alphabet ;\n [seq(SearchText( substring(text,i),Alphabet),\n i=1..length (text))];\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "FromNum := proc(numlist)\n local i;\n global Alphabet;\n cat(seq( substrin g(Alphabet,numlist[i]),\n i=1..nops(numlist)));\nend:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 297 "Caesar2:= proc(plaintext, o ffset)\n local textnum,codenum,i,asize;\n global Alphabet;\n \n as ize := length(Alphabet);\n textnum := ToNum(plaintext);\n codenum := \n [seq( modp(textnum[i]+offset-1, asize) + 1,\n i=1..l ength(plaintext)) ];\n ## print(codenum); \n FromNum(codenum);\nend :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Caesar2(`Hi`,0);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%#HiG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "test:=`I have heard the mermaids singing, each to eac h\nI do not think that they will sing to me.`;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%testG%dpI~have~heard~the~mermaids~singing,~each~to~e ach|+I~do~not~think~that~they~will~sing~to~me.G" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 26 "encoded:=Caesar2(test,38);" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#>%(encodedG%dptkQJdNkQNJ|+MkbQNkVN|+VJRMakaRWPRWPjkNJ LQkbXkNJLQItkMXkWXbkbQRWTkbQJbkbQNgkeRUUkaRWPkbXkVNiG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Caesar(test,38);" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#%dpoF|is|bs|gt|fsF|is|fs|bs|ct|esF|et|is|fsF|^t|fs|ct |^t|bs|js|es|dtF|dt|js|_t|hs|js|_t|hsRF|fs|bs|ds|isF|et|`tF|fs|bs|ds|i s0oF|es|`tF|_t|`t|etF|et|is|js|_t|\\tF|et|is|bs|etF|et|is|fs|jtF|ht|js |]t|]tF|dt|js|_t|hsF|et|`tF|^t|fsTG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "Caesar2(encoded,-38);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#%dpI~have~heard~the~mermaids~singing,~each~to~each|+I~do~not~thi nk~that~they~will~sing~to~me.G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "Alphabet;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#%XABCDEFGHIJKLMNOP QRSTUVWXYZ|+abcdefghijklmnopqrstuvwxyz.,G" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 29 "Alphabet:=`abcdefghijklmop_`;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)AlphabetG%1abcdefghijklmop_G" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 "Caesar2(test,0);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#%dpI~ha_e~hea_d~_he~me_maid_~_i_gi_g_~each~_o~each_I~do~_o_~_hi_ k~_ha_~_he_~_ill~_i_g~_o~me_G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 191 "CaptMarvel := proc(text)\n local i;\n global Alphabet, Alphab et2;\n cat(seq(\n substring(Alphabet2,\n SearchText( substri ng(text,i),Alphabet)\n ),\n i=1..length(text)));\nend:" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 144 "Alphabet := `ABCDEFGHIJKLM NOPQRSTUVWXYZ\nabcdefghijklmnopqrstuvwxyz., `:\nAlphabet2 := `abcdefgh ijklmnopqrstuvwxyz\nABCDEFGHIJKLMNOPQRSTUVWXYZ., `:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "CaptMarvel(`Hi`);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%#hIG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 392 "Vi gnere:= proc(plaintext, key)\n local textnum,codenum,i,asize,offsets, keylen;\n global Alphabet;\n \n asize := length(Alphabet);\n offse ts:=ToNum(key);\n keylen := length(key);\n textnum := ToNum(plaintex t);\n codenum := \n [seq( modp(textnum[i]+\n offse ts[modp(i-1,keylen)+1] -1, \n asize) + 1,\n i =1..length(plaintext)) ]; \n FromNum(codenum);\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "code:=Vignere(test,`Prufrock`);" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%%codeG%dpYr|+EkRcQuQjHrfINPbXVbNJMFr kMcTJWwquIQPIkGduIQPIIYrWSr|+PbPi|+McXcbxQlfiUFgPlaPaoTRAWuXdoNNNG" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 394 "unVignere:= proc(plaintext , key)\n local textnum,codenum,i,asize,offsets,keylen;\n global Alph abet;\n \n asize := length(Alphabet);\n offsets:=ToNum(key);\n key len := length(key);\n textnum := ToNum(plaintext);\n codenum := \n \+ [seq( modp(textnum[i]-\n offsets[modp(i-1,keylen)+1] -1, \n asize) + 1,\n i=1..length(plaintext)) ]; \n FromNum(codenum);\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "unVignere(code,`Prufrock`);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#%dpI~have~heard~the~mermaids~singing,~each~to~each|+I~d o~not~think~that~they~will~sing~to~me.G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "length(Alphabet);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# \"#c" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0 " 0 }{VIEWOPTS 1 1 0 3 2 1804 }