remove comment
This commit is contained in:
parent
68f2456058
commit
6a4f9a1e21
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user