Implement `encrypt`

tp/rsa/main.hs

@@ -78,3 +78,9 @@ expMod x k n =
 			then expMod (mod ((mod x n) * (mod x n)) n) (div k 2) n
 			else (mod x n) * expMod ((mod x n) * (mod x n)) (div k 2) n
 
+encrypt::Int -> Int -> Int -> String -> Message
+encrypt e n bsize smsg =
+	let msg = stringToMessage smsg in
+	let bmsg = makeBlocks bsize msg in
+	map (\m -> expMod m e n) bmsg
+