{VERSION 2 3 "DEC ALPHA UNIX" "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 "Times" 1 12 0 0 0 0 2 0 2 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 "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Ne
w century schoolbook" 1 24 0 0 0 0 1 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 
0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Couri
er" 1 14 0 0 0 0 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "Alphabet:=`abcdefghi
jklmnopqrstuvwxyz `:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "nb_
lettres:=length(Alphabet);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+nb_le
ttresG\"#F" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "for i to nb_l
ettres do lettre[i-1]:=substring(Alphabet,i..i) od:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 10 "lettre[0];" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#%\"aG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "for i to nb_
lettres do codage[eval(lettre[i-1],1)]:=i-1 od:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 91 "#le eval( ,1) est fait pour eviter les problem
es si l'on a affecte une valeur a la lettre ." }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 139 "transforme:=proc(s:string)\n  local i;\n  conve
rt([seq(codage[substring(s,i..i)]*nb_lettres^(i-1),\n                i
=1..length(s))],`+`)\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
114 "detransforme:=proc(l:posint) \n  local i;\n  cat(seq(eval(lettre[
i],1),\n         i=convert(l,base,nb_lettres)))\nend:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "encode:=proc(a,e,n)\n  local i;\n \+
 [seq(Power(i,e) mod n,\n        i=convert(transforme(a),base,n))]\nen
d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 142 "decode:=proc(b,d,n)
\n  local mess,i;\n  mess:=map(Power,b,d) mod n;\n  detransforme(conve
rt([seq(mess[i]*n^(i-1),\n   i=1..nops(mess))],`+`))\nend:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "transforme(`coucou`);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#\"*SEZ%H" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 16 "detransforme(\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'coucouG
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "convert(\"\",base,nb_le
ttres);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(\"\"#\"#9\"#?F$F%F&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "p:=2324923849189:\nq:=433110
035200049:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "n:=p*q;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"=h-T@F?\"of,&y%p+\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "e:=2146676038575397064770800
13;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"eG\"<8+3xkqRv&QgnY@" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "d:=1/e mod (p-1)*(q-1);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"dG\"<0kChvGjE<.xkp%" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "code:=encode(`rendez vous ce soir`,
e,n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%codeG7#\"<o%zwRR-:.(R^6o)
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "decode(code,d,n);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%4rendez~vous~ce~soirG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "n:=289589985965965651459;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"6f9llf'f)**e*G" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 19 "e:=324803928042397;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"eG\"0(RU!GR![K" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 50 "code:=[71115087473551843419,53212936362331915368];" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%codeG7$\"5>M%=btu3:6(\"5o`\">Lij$H
@`" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "isprime(n);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "readlib(ifactors)(n);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#7$\"\"\"7$7$\",B*ycM7F$7$\",L!*ycM#F$" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 14 "p:=\"[2][1][1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%\"pG\",B*ycM7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "q:=\"\"
[2][2][1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG\",L!*ycM#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "d:=1/e mod (p-1)*(q-1);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"dG\"6@OUAlz-4sk\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "decode(code,d,n);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#%7bravo~vous~avez~reussiG" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 0 "" }}}}{MARK "28 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }