{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:=\"abcdefgh
ijklmnopqrstuvwxyz \":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "n
b_lettres:=length(Alphabet):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 64 "for i to nb_lettres do lettre[i-1]:=substring(Alphabet,i..i) od:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "lettre[0];" }}{PARA 11 
"" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "# l
e eval(,1) n'est plus utile" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
57 "for i to nb_lettres do codage[eval(lettre[i-1])]:=i-1 od:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 140 "transforme:=proc(s::string)
\n  local i;\n  convert([seq(codage[substring(s,i..i)]*nb_lettres^(i-1
),\n                i=1..length(s))],`+`)\nend:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 115 "detransforme:=proc(l::posint) \n  local i;\n \+
 cat(seq(eval(lettre[i],1),\n         i=convert(l,base,nb_lettres)))\n
end:" }}}{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))]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 142 "deco
de:=proc(b,d,n)\n  local mess,i;\n  mess:=map(Power,b,d) mod n;\n  det
ransforme(convert([seq(mess[i]*n^(i-1),\n   i=1..nops(mess))],`+`))\ne
nd:" }}}{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 0 "> " 0 "" 
{MPLTEXT 1 0 28 "convert(%%,base,nb_lettres);" }}{PARA 11 "" 1 "" 
{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7(\"\"#\"#9\"#?F$F%F&
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "p:=2324923849189:\nq:=4
33110035200049:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "n:=p*q;" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 31 "e:=214667603857539706477080013;" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 23 "d:=1/e mod (p-1)*(q-1);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%\"nG\"=h-T@F?\"of,&y%p+\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"eG\"<8+3xkqRv&QgnY@" }}{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 0 "> " 0 "" 
{MPLTEXT 1 0 17 "decode(code,d,n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%%codeG7#\"<o%zwRR-:.(R^6o)" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "n:=289589985965965651459;" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "e:=324803928042397;" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 50 "code:=[71115087473551843419,532129363623319153
68];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"6f9llf'f)**e*G" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"eG\"0(RU!GR![K" }}{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 0 "> " 0 "" 
{MPLTEXT 1 0 21 "readlib(ifactors)(n);" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 14 "p:=%[2][1][1];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
7$\"\"\"7$7$\",B*ycM7F$7$\",L!*ycM#F$" }}{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 
"" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }