From d8db6809e4a55028e9c7adadd32d08b65b80b73f Mon Sep 17 00:00:00 2001
From: Arity-T <tish.mainmail@gmail.com>
Date: Thu, 21 Nov 2024 15:12:08 +0300
Subject: [PATCH] =?UTF-8?q?=D0=90=D0=BB=D1=84=D0=B0=D0=B2=D0=B8=D1=82=20?=
 =?UTF-8?q?=D1=81=D1=87=D0=B8=D1=82=D1=8B=D0=B2=D0=B0=D0=B5=D1=82=D1=81?=
 =?UTF-8?q?=D1=8F=20=D0=B8=D0=B7=20=D1=84=D0=B0=D0=B9=D0=BB=D0=B0=20=D0=BF?=
 =?UTF-8?q?=D1=80=D0=B8=20=D0=B4=D0=B5=D0=BA=D0=BE=D0=B4=D0=B8=D1=80=D0=BE?=
 =?UTF-8?q?=D0=B2=D0=B0=D0=BD=D0=B8=D0=B8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lab3/app/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lab3/app/Main.hs b/lab3/app/Main.hs
index 55a622c..86956c2 100644
--- a/lab3/app/Main.hs
+++ b/lab3/app/Main.hs
@@ -58,6 +58,8 @@ main = do
             saveBmpImage encodedImagePath (ImageRGB8 resultImage)
             putStrLn $ "Изображение сохранено по пути: \"" ++ encodedImagePath ++ "\"" 
 
+    putStrLn $ "\nЧтение алфавита из файла \"" ++ alphabetPath ++ "\""
+    alphabetFromFile <- readFile alphabetPath
 
     putStrLn "\nДекодирование текста из изображения"
     case extractShift encodedImagePath of
@@ -73,7 +75,7 @@ main = do
                     putStrLn $ "10 битов шифра: \"" ++ show (take 10 $ VU.toList bits) ++ "\""
                     let encryptedTextFromImage = takeWhile (/= '\NUL') (bitsToText bits)
                     putStrLn $ "10 символов шифра: \"" ++ take 10 encryptedTextFromImage ++ "\""
-                    let decryptedText = decryptCaesar alphabet extractedCaesarShift encryptedTextFromImage
+                    let decryptedText = decryptCaesar alphabetFromFile extractedCaesarShift encryptedTextFromImage
                     putStrLn $ "10 символов текста: \"" ++ take 10 decryptedText ++ "\""
                     writeFile decodedTextPath decryptedText
                     putStrLn $ "Текст сохранён по пути: \"" ++ decodedTextPath ++ "\""