{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 59 "BigRand := rand(10^1 00..10^105):\nMedRand := rand(3..10^90):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "randomize(); # stir up the random pot" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"+zLV?5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "# _seed:=47;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "BigRand();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"dq2X&QO-%fMs$yzp+QW#p]rc.Iu4e@zfvC.xuQ+HNRYa2:bQe-A4F qLD(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "p:= nextprime(BigRa nd());" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG\"dqf`\"*4hKqC_hs?!\\- _WV@sooBc6`D4(4%o)=0OuY:o*yatv\"\\xh6@3')=i#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "q:= nextprime(BigRand());" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\"dq`0nC(G$RAiGA\"e*f,S^pVXmb9=zH)ew7BPQk&[)o_9f^ *pwe_s$p#f(z#y%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "BigRand( );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"dq4y8$=n>ny%>vB5v*=%))RooWkL`1 ***>d!\\!oy\\w'45Z49-NdD97g8`j*Gw" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "812345678970000008777654398991;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"?\"**)Rawx3++q*ycM7)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "isprime(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&fals eG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "ifactor(8123456789700 00008777654398991);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*,-%!G6#\"#Z\" \"\"-F%6#\"#`F(-F%6#\".>E[.XD$F(-F%6#\",\"z\">s6\"F(-F%6#\"%p*)F(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "isprime(p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "nextprime(12347);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"&tB\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "n:=p*q;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"nG\"]xFNs*)RX,#pAj))yWP%Hc,7:T,P.dA;VJ'HM\"R$HsN%)o .\\=5fMmYf;mO\"R2W\"zi-g&fn&33*>xB'G%3J5j1:$G;mdh1ePd$>())Q@HuFj_nCG1% =W]*RD\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "phi:=(p-1)*(q-1 );" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$phiG\"]x;w8b\"*z\"\\C@9p='*=U /xhCy)3gpYPN1%4Q3,4+?7]dlUXnzLB$*yTHo')**R9zi-g&fn&33*>xB'G%3J5j1:$G;m dh1ePd$>())Q@HuFj_nCG1%=W]*RD\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "a:=MedRand();\nwhile( gcd(a,phi) <> 1) do;\n a:=MedRand();\no d;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG\"epP)4w1Yn$=#=3Lb[Z$[oIy) =tIZ-7AE#HA:C0FTzgc%\\DPPM())" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"a G\"epZQk6FF%y2L*pgJM6W-P=Z%=a(e@YYq&*>)*4'[fgKPU=C;:\"4D" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"aG\"ep&>*)R`$Q@>Bjz,eiIWM\\DDmK#>'H_1YHu)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "x := modp( 1/a , phi);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"xG\"\\xNW\")HFkHs? n.uO\\?Wl+0,)Q(R'p@AXPNnh!e.Q:H=89t2(zUBEK33/v3ivQQe9(=%Hkd)3'Q_(Hd$[l RI2qg " 0 "" {MPLTEXT 1 0 116 "RSAEncodeNum := proc(num :: integer, exponent::posin t, base::posint)\n return( modp( num &^ exponent, base) );\nend:" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "RSAEncodeNum( 1234567, a, n );" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#\"\\xw\"f4*\\:=7YSK>M)e'HHq#oiAd $Qp&[7lK3_G?3n**QJ&>Q#z\"Q]kL@x.`b!H@LdgK\"*yoS)z\")*\\B0Rb<+3$*3h0yd" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "RSAEncodeNum( %, x, n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"(nXB \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "19 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }