init. atbash, simple encodings

src/Main.hs

@@ -0,0 +1,43 @@
+module Main where
+import Data.Bits
+import Data.Char
+import Data.List
+import Data.Maybe
+{-
+ - https://kmb.cybber.ru/crypto/frequency_analysis_substitution/main.html
+ - Здесь будет конвертатор в base32/64
+ - Шифр цезаря
+ - Шифр простой замены
+ - Шифр Атбаша
+ -}
+
+-- Шифр Атбаша. Простой шифр с заменой алфавита
+-- a = e, r=d и т.д.
+
+atbashEnc :: String -> String
+atbashEnc input = do
+  let alp = ['a'..'z']
+  let encAlp = "qadewsrgfthuyjkiolpzcxvnbm"
+  map (\x -> encAlp !! (fromJust (elemIndex x alp))) input
+-- Декодер
+atbashDec :: String -> String
+atbashDec input = do
+  let alp = ['a'..'z']
+  let encAlp = "qadewsrgfthuyjkiolpzcxvnbm"
+  map (\x -> alp !! (fromJust (elemIndex x encAlp))) input
+
+-- Простейший шифр, просто сдвигает алфавит на 1
+-- a = b, b = c, ...
+simpliestEnc :: String -> String
+simpliestEnc input = 
+ map (\x -> chr(ord(x) + 1)) input 
+
+
+main :: IO ()
+main = do
+  putStrLn "Simpliest encoding, just +1 to each letter:"
+  print (simpliestEnc "abcdefz")
+  putStrLn "atbash Encryption:"
+  print . atbashEnc $ "test"
+  print . atbashDec $ ( atbashEnc "test" )
+