{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 2 2 2 2 2 2 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Ma ple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Left Justified Maple O utput" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "with(StringTools):wi th(LinearAlgebra):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 470 "diaf fine := proc(PlainT,mult,shift) local Alph,i,CipherT,val1,val2,val,out val,la,pt; Alph:=\"abcdefghijklmnopqrstuvwxyz\";la:=length(Alph);Ciphe rT:=\"\";if (length(PlainT) mod 2) = 1 then pt:=cat(PlainT,\" \"); els e pt:=PlainT; fi;for i from 1 to length(pt)/2 do val1:=SearchText(pt[2 *i-1],Alph)-1; val2:=SearchText(pt[2*i],Alph)-1; val:=la*val1 + val2; \+ outval:=((val*mult+shift) mod la^2);CipherT:=cat(CipherT,Alph[floor(ou tval/la)+1],Alph[(outval mod la)+1]);od;CipherT;end;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)diaffineGf*6%%'PlainTG%%multG%&shiftG6+%%AlphG%\" iG%(CipherTG%%val1G%%val2G%$valG%'outvalG%#laG%#ptG6\"F4C(>8$Q;abcdefg hijklmnopqrstuvwxyzF4>8+-%'lengthG6#F7>8&Q!F4@%/-%$modG6$-F<6#9$\"\"# \"\"\">8,-%$catG6$FHQ\"~F4>FLFH?(8%FJFJ,$*&#FJFIFJ-F<6#FLFJFJ%%trueGC' >8',&-%+SearchTextG6$&FL6#,&*&FIFJFSFJFJFJ!\"\"F7FJFJF_o>8(,&-Fin6$&FL 6#,$*&FIFJFSFJFJF7FJFJF_o>8),&*&F:FJFfnFJFJFaoFJ>8*-FD6$,&*&FjoFJ9%FJF J9&FJ*$)F:FIFJ>F?-FN6%F?&F76#,&-%&floorG6#*&F^pFJF:F_oFJFJFJ&F76#,&-FD 6$F^pF:FJFJFJF?F4F4F4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "m5 :=diaffine(\"beetle\",157,321);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%# m5GQ'lnbcvn6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "msolve(15 7*x=1,676);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<#/%\"xG\"$@&" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "-521*321 mod 676;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$2%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "diaffine(m5,521,407);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q'bee tle6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 475 "diaffine29 := proc(PlainT,mult,shift) local Alph,i,CipherT,val1 ,val2,val,outval,la,pt; Alph:=\"abcdefghijklmnopqrstuvwxyz .,\";la:=le ngth(Alph);CipherT:=\"\";if (length(PlainT) mod 2) = 1 then pt:=cat(Pl ainT,\" \"); else pt:=PlainT; fi;for i from 1 to length(pt)/2 do val1: =SearchText(pt[2*i-1],Alph)-1; val2:=SearchText(pt[2*i],Alph)-1; val:= la*val1 + val2; outval:=((val*mult+shift) mod la^2);CipherT:=cat(Ciphe rT,Alph[floor(outval/la)+1],Alph[(outval mod la)+1]);od;CipherT;end;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%+diaffine29Gf*6%%'PlainTG%%multG%& shiftG6+%%AlphG%\"iG%(CipherTG%%val1G%%val2G%$valG%'outvalG%#laG%#ptG6 \"F4C(>8$Q>abcdefghijklmnopqrstuvwxyz~.,F4>8+-%'lengthG6#F7>8&Q!F4@%/- %$modG6$-F<6#9$\"\"#\"\"\">8,-%$catG6$FHQ\"~F4>FLFH?(8%FJFJ,$*&#FJFIFJ -F<6#FLFJFJ%%trueGC'>8',&-%+SearchTextG6$&FL6#,&*&FIFJFSFJFJFJ!\"\"F7F JFJF_o>8(,&-Fin6$&FL6#,$*&FIFJFSFJFJF7FJFJF_o>8),&*&F:FJFfnFJFJFaoFJ>8 *-FD6$,&*&FjoFJ9%FJFJ9&FJ*$)F:FIFJ>F?-FN6%F?&F76#,&-%&floorG6#*&F^pFJF :F_oFJFJFJ&F76#,&-FD6$F^pF:FJFJFJF?F4F4F4" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 40 "igcd(172,841); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "diaffine29(\"hippo\",172,561);\n" }{MPLTEXT 1 0 26 " \+ " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q'xxujaq6 \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "msolve(-239=101*c,841 );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<#/%\"cG\"$(z" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "diaffine29(\"xxujaq\",797,295);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#Q'hippo~6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 469 "dim atrix29 := proc(PlainT,m1,m2,m3,m4) local Alph,i,CipherT,val1,val2,val ,oval1,oval2,la,pt; Alph:=\"abcdefghijklmnopqrstuvwxyz .,\";la:=length (Alph);CipherT:=\"\";if (length(PlainT) mod 2) = 1 then pt:=cat(PlainT ,\" \"); else pt:=PlainT; fi;for i from 1 to length(pt)/2 do val1:=Sea rchText(pt[2*i-1],Alph)-1; val2:=SearchText(pt[2*i],Alph)-1; oval1:=m1 *val1 + m2*val2 mod la; oval2:=m3*val1 + m4*val2 mod la; CipherT:=cat( CipherT,Alph[oval1+1],Alph[oval2+1]);od;CipherT;end;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%+dimatrix29Gf*6'%'PlainTG%#m1G%#m2G%#m3G%#m4G6,%%A lphG%\"iG%(CipherTG%%val1G%%val2G%$valG%&oval1G%&oval2G%#laG%#ptG6\"F7 C(>8$Q>abcdefghijklmnopqrstuvwxyz~.,F7>8,-%'lengthG6#F:>8&Q!F7@%/-%$mo dG6$-F?6#9$\"\"#\"\"\">8--%$catG6$FKQ\"~F7>FOFK?(8%FMFM,$*&#FMFLFM-F?6 #FOFMFM%%trueGC'>8',&-%+SearchTextG6$&FO6#,&*&FLFMFVFMFMFM!\"\"F:FMFMF bo>8(,&-F\\o6$&FO6#,$*&FLFMFVFMFMF:FMFMFbo>8*-FG6$,&*&9%FMFinFMFM*&9&F MFdoFMFMF=>8+-FG6$,&*&9'FMFinFMFM*&9(FMFdoFMFMF=>FB-FQ6%FB&F:6#,&F]pFM FMFM&F:6#,&FfpFMFMFMFBF7F7F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "dimatrix29(\"test\",1,0,0,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #Q%test6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "dimatrix29(\" test\",2,0,0,2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q%jihj6\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "dimatrix29(%,15,0,0,15);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#Q%test6\"" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 33 "dimatrix29(\"testbest\",11,3,12,7);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q)syxbxlxb6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A:=<<11,12>|<3,7>>;" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%\"AG-%'RTABLEG6%\"+mcyoW-%'MATRIXG6#7$7$\"#6\"\"$7$\"#7\"\"(%'Matr ixG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "MatrixInverse(A) mod 29;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'RTABLEG6%\"+yhyoW-%'MATRIXG 6#7$7$\"\"$\"\"(7$\"#G\"#8%'MatrixG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "dimatrix29(\"syxbxlxb\",3,7,28,13); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q)testbest6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 336 "vigene re29 := proc(PlainT,kword) local Alph,i,CipherT,la,lw,pt,shift; Alph:= \"abcdefghijklmnopqrstuvwxyz .,\";la:=length(Alph);lw:=length(kword); \+ CipherT:=\"\"; pt:=PlainT; for i from 1 to length(pt) do shift:=Search Text(kword[(i-1 mod lw)+1],Alph)-1; CipherT:=cat(CipherT, Alph[(Search Text(pt[i],Alph)-1+ shift mod la) +1]);od;CipherT;end;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%+vigenere29Gf*6$%'PlainTG%&kwordG6)%%AlphG%\"iG% (CipherTG%#laG%#lwG%#ptG%&shiftG6\"F1C)>8$Q>abcdefghijklmnopqrstuvwxyz ~.,F1>8'-%'lengthG6#F4>8(-F96#9%>8&Q!F1>8)9$?(8%\"\"\"FH-F96#FD%%trueG C$>8*,&-%+SearchTextG6$&F?6#,&-%$modG6$,&FGFHFH!\"\"FF A-%$catG6$FA&F46#,&-FW6$,(-FQ6$&FD6#FGF4FHFHFZFNFHF7FHFHFHFAF1F1F1" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "w1:=vigenere29(\"beetle\", \"cat\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#w1GQ'dexvlx6\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "vigenere29(w1,\".ak\");" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#Q'beetle6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "26 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }{RTABLE_HANDLES 4468785666 4468786178 }{RTABLE M7R0 I7RTABLE_SAVE/4468785666X,%)anythingG6"F%[gl!"%!!!#%"#"#"#6"#7""$""(F% } {RTABLE M7R0 I7RTABLE_SAVE/4468786178X,%)anythingG6"F%[gl!"%!!!#%"#"#""$"#G""("#8F% }