Функция декодирования цезаря

2024-11-17 20:19:01 +03:00
parent f1fd3c1dea
commit a69a81d89a
2 changed files with 10 additions and 1 deletions
--- a/lab3/app/Main.hs
+++ b/lab3/app/Main.hs
@@ -16,4 +16,6 @@ main = do
    let encryptedTextBits = textToBits encryptedText
    putStrLn $ concat (take 30 (map show encryptedTextBits))
    let encryptedTextFromBits = bitsToText encryptedTextBits
-    putStrLn $ take 30 encryptedTextFromBits
+    putStrLn $ take 30 encryptedTextFromBits
+    let decryptedText = decryptCaesar alphabet caesarShift encryptedTextFromBits
+    putStrLn $ take 30 decryptedText