diff --git a/HasswordManager.cabal b/HasswordManager.cabal index f3c39c6..d195bab 100644 --- a/HasswordManager.cabal +++ b/HasswordManager.cabal @@ -41,12 +41,12 @@ library , ansi-terminal , base >=4.7 && <5 , bytestring - , cipher-aes + , containers , hashable + , hspec , sqlite-simple , text , utf8-string - , containers default-language: Haskell2010 executable HasswordManager-exe @@ -64,12 +64,12 @@ executable HasswordManager-exe , ansi-terminal , base >=4.7 && <5 , bytestring - , cipher-aes + , containers , hashable + , hspec , sqlite-simple , text , utf8-string - , containers default-language: Haskell2010 test-suite HasswordManager-test @@ -88,11 +88,10 @@ test-suite HasswordManager-test , ansi-terminal , base >=4.7 && <5 , bytestring - , cipher-aes + , containers , hashable + , hspec , sqlite-simple , text , utf8-string - , containers - , hspec default-language: Haskell2010 diff --git a/src/Crypto.hs b/src/Crypto.hs index 4a1caf4..5744783 100644 --- a/src/Crypto.hs +++ b/src/Crypto.hs @@ -21,6 +21,5 @@ encrypt' = caesar_cipher (+) decrypt' :: String -> String -> String decrypt' = caesar_cipher (-) --- modulo trzeba zrobić caesar_cipher :: (Int -> Int -> Int) -> String -> String -> String caesar_cipher operation key text = zipWith (\k t -> chr $ mod (operation (ord t) (ord k)) (ord maxBound)) (cycle key) text