|
@@ -85,3 +85,10 @@ encrypt e n bsize smsg =
|
|
|
let bmsg = makeBlocks bsize pmsg in
|
|
|
map (\m -> expMod m e n) bmsg
|
|
|
|
|
|
+decrypt::Int -> Int -> Int -> Message -> String
|
|
|
+decrypt d n bsize cmsg =
|
|
|
+ let bmsg = map (\c -> expMod c d n) cmsg in
|
|
|
+ let pmsg = splitBlocks bmsg in
|
|
|
+ let msg = unpad pmsg in
|
|
|
+ messageToString msg
|
|
|
+
|