{VERSION 5 0 "IBM INTEL NT" "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 "" -1 256 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 257 "" 1 14 0 0 0 0 0 1 0 0 0 0 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 1 1 1 }1 
1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "
Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 8 8 1 0 1 0 2 2 0 1 }
{PSTYLE "Title" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 
2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }}
{SECT 0 {PARA 256 "" 0 "" {TEXT -1 41 "Encrypting RSA Secret Messages-
-in Blocks" }}{PARA 19 "" 0 "" {TEXT -1 0 "" }{TEXT 256 0 "" }{TEXT 
257 11 "Dwight Lahr" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "
" {TEXT -1 110 "If you want to send a secret message to someone, you f
irst must get their Public Key (a, n). Ask them for it.\n" }}{PARA 0 "
" 0 "" {TEXT -1 38 "\nPublic Key: (2393047, 32260957295453)" }}{PARA 
0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 41 "To Encode the m
essage M you want to send:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 
"" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 310 "#To
 encode the message M:\n#Assume that the original message (in text) ha
s been converted to numbers,\n# and then broken up into blocks of leng
th at most 9 numbers each. \n#The blocks appear as entries in the list
 ToBeEncoded.\n\nToBeEncoded:=[104101122,109104127,118115103,111119138
]:\n\nhowlong:=nops(ToBeEncoded);\n" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" 
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 392 "#To Encode a message M th
at comes from above.\n\n# Note that M must satisfy two conditions:\n #
 M<n and M not divisible by p or q. Assume that this is the case.\n\n#
Put in the values of a and n:\nn:=32260957295453;\na:=2393047;\n\nEnco
dedBlocks:=[ToBeEncoded[1] &^ a mod n]:\n\nfor i from 2 to howlong do
\n\nM:=ToBeEncoded[i]:\n\nC:=M &^ a mod n:\n\nEncodedBlocks:=[op(Encod
edBlocks),C]:\n\nod:\n\nEncodedBlocks;\n" }}}{PARA 0 "" 0 "" {TEXT -1 
0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0" 41 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }