|
@@ -81,6 +81,7 @@ expMod x k n =
|
|
|
encrypt::Int -> Int -> Int -> String -> Message
|
|
|
encrypt e n bsize smsg =
|
|
|
let msg = stringToMessage smsg in
|
|
|
- let bmsg = makeBlocks bsize msg in
|
|
|
+ let pmsg = pad bsize msg in
|
|
|
+ let bmsg = makeBlocks bsize pmsg in
|
|
|
map (\m -> expMod m e n) bmsg
|
|
|
|