Browse Source

Add padding in `encrypt`

DricomDragon 5 years ago
parent
commit
33eb49ec5d
1 changed files with 2 additions and 1 deletions
  1. 2 1
      tp/rsa/main.hs

+ 2 - 1
tp/rsa/main.hs

@@ -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