{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 25 "isprime(123456789000 133);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 27 "nextprime(123456789000133);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"0P,+*ycM7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "nextprime(10^100);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#\"`qn-++ ++++++++++++++++++++++++++++++++++++++++++++++\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "rand();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"- \"3p'>uU" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "rand();" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"-qKp56K" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 11 "_seed := 3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&_ seedG\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "rand();" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"-as+fAG" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 11 "_seed := 4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&_ seedG\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "rand();" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"-Njny'4(" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 19 "readlib(randomize);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#:6#%\"nG6\"6#%inCopyright~(c)~1995~by~Waterloo~Maple~Inc.~All~ri ghts~reserved.GF&C$@'/9#\"\"!>%&_seedG-%&iolibG6#\"#D52\"\"\"F,4-%%typ eG6$9$%'posintG-%&ERRORG6#%Xwrong~argument,~usage:~randomize()~or~rand omize(posint)G>F/F;F/6#%OReset~the~seed~for~the~random~number~generato rG6#F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "randomize();" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"*B%\\@*)" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 7 "rand();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"-%eM'fO :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "BigRand := rand(10^100 .. 10^105):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "BigRand(); " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#\"dqd?(z\"QK(\\3M4d)*>tH_95u'[nu*Q fEb7%4 " 0 "" {MPLTEXT 1 0 16 "evalf(log10(\"));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+KhK\\ 5!\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "p := nextprime(Big Rand());\nq := nextprime(BigRand());" }}{PARA 12 "" 1 "" {XPPMATH 20 " 6#>%\"pG\"dq6]bF*HAIHGV>T')fPYwgcnNsAriEH'f/*f&pdKF7`,Ob_>*p!4B]7)HcU " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"qG\"dq$)[U&QForM6-h9cR " 0 "" {MPLTEXT 1 0 26 "n:=p*q;\nphi:= (p-1)*(q-1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"nG\"]x8(Q2f&3P8*G0^e%)yu&zKLJI6zPuh=*Q)o$H(RLW)H6:r T>;4n+#>&[\"zI]%R%QX!ehZH#ykL7?SvI;+L([6OgqG)Q2y5`n2#3,b%3_%[Oup#Q(R\" *4HD\"G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$phiG\"]x?)exFG!=t#*)fq-U z>x?%H+5YC*ob%G\"y,k_8\")H.VLLnB')[6b@xAby&)QOQ%QX!ehZH#ykL7?SvI;+L([6 OgqG)Q2y5`n2#3,b%3_%[Oup#Q(R\"*4HD\"G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "MedRand := rand(10^90..10^99):\na := MedRand();" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"aG\"^q#y#z?5*>CPs(RJ^/BON[fz!Qr5I( e]1KV:fo^M3_DoV1B1iM9v83*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "gcd(a,phi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "while ( gcd(a,phi) <> 1 ) do;\n a \+ := MedRand();\nod;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"aG\"^qfP!*GP Hr,^*3H#\\H&*H>&f\\a&4k;7kTPU.0z;x7;0/+o(>@8W&H=,y\"" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"aG\"^q**y[7==f%Q&p,F\")R;7>'z!Gjks_OQcp,:)4$3!HV $[J'GCI'R+8!3(QE'" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"aG\"^qx\"ewG[ AdW*H^,!H3l+5q%\"aG\"]q+$*)yB6^o,ett_d&yU0Y$po.a15XCF!H4lBa[*\\>&3 v%f<@il2[M_$" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"aG\"^qju>g!Hn[b@lI 76)[K#\\=&>dHlLX'*p5E\"*)=rQ0b&[f/(G#o*\\.#yAWz$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "x := modp( 1/a, phi);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"xG\"]x(=IBgE])y.)fn'>*G'R&p!>Vq#ypUoLQOlN(zV.y\"ePB 5')*[N13EM[B(>cZ;)H#R49\"zV9!e\\%4alFJ*Q5*R1WG%)yW9WQ1'QKcc " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "try:=convert(`hello`,bytes);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$tryG7'\"$/\"\"$,\"\"$3\"F(\"$6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "encodeRSA:= (beta,a,n) -> modp( beta &^ a, \+ n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*encodeRSAG:6%%%betaG%\"aG%\" nG6\"6$%)operatorG%&arrowGF*-%%modpG6$-%#&^G6$9$9%9&F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "encodeRSA(104,a,n);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#\"]xZu43zKc\\jK-+fE;!etg(z_#\\k:'H3()Q9\"=%e?iii&e NY#4[5(fFaFe\"zC^pN()o2=()[%3)o4,;A))QH]u$o'[)='HJsupd![D&=*p!4&Gb(p]K p<4-3TxD" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "hello:= map(enc odeRSA, try, a, n);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&helloG7'\"]x Zu43zKc\\jK-+fE;!etg(z_#\\k:'H3()Q9\"=%e?iii&eNY#4[5(fFaFe\"zC^pN()o2= ()[%3)o4,;A))QH]u$o'[)='HJsupd![D&=*p!4&Gb(p]Kp<4-3TxD\"\\x%[1g)G3e+,- 3g[)yq)RzI!yGrj))z%y1(eC`\\m)4e96TO&Qw4WS5#[j<&[ld@M&4)o'H<**>lW$*>&f+ ag\\R_Pj!y-q*H\"f4$Hh1L3#p535C'o^`dPJa(**)\"]x/%[n@vyyj8%>(31xC$>s3KW_'3^TuBs6*yFPbZ\"fhN97b:0j()[O$)*4j *H5'[#eD\"fXdM-%>PYF%\\U1r[))GX=F(\"]xn#RwR!)zM)H(4loc4*4Q5*GL,oD!)pG#)4\"H*y_OQ1*[:;me7Sj^+bzB!>Df .)))HRF!pX8o%=(>61y<" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "map (encodeRSA, hello, x, n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7'\"$/\" \"$,\"\"$3\"F&\"$6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "con vert(\",bytes);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&helloG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "29 0 0" 0 } {VIEWOPTS 1 1 0 3 2 1804 }