s473615/HasswordManager
2
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove comment

Browse Source
This commit is contained in:
s473615 2024-05-27 17:46:39 +02:00
parent 68f2456058
commit 6a4f9a1e21
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
HasswordManager.cabal
View File

@ -41,12 +41,12 @@ library
, ansi-terminal , ansi-terminal
, base >=4.7 && <5 , base >=4.7 && <5
, bytestring , bytestring
, cipher-aes , containers
, hashable , hashable
, hspec
, sqlite-simple , sqlite-simple
, text , text
, utf8-string , utf8-string
, containers
default-language: Haskell2010 default-language: Haskell2010
executable HasswordManager-exe executable HasswordManager-exe
@ -64,12 +64,12 @@ executable HasswordManager-exe
, ansi-terminal , ansi-terminal
, base >=4.7 && <5 , base >=4.7 && <5
, bytestring , bytestring
, cipher-aes , containers
, hashable , hashable
, hspec
, sqlite-simple , sqlite-simple
, text , text
, utf8-string , utf8-string
, containers
default-language: Haskell2010 default-language: Haskell2010
test-suite HasswordManager-test test-suite HasswordManager-test
@ -88,11 +88,10 @@ test-suite HasswordManager-test
, ansi-terminal , ansi-terminal
, base >=4.7 && <5 , base >=4.7 && <5
, bytestring , bytestring
, cipher-aes , containers
, hashable , hashable
, hspec
, sqlite-simple , sqlite-simple
, text , text
, utf8-string , utf8-string
, containers
, hspec
default-language: Haskell2010 default-language: Haskell2010

1
src/Crypto.hs
View File

@ -21,6 +21,5 @@ encrypt' = caesar_cipher (+)
decrypt' :: String -> String -> String decrypt' :: String -> String -> String
decrypt' = caesar_cipher (-) decrypt' = caesar_cipher (-)
-- modulo trzeba zrobić
caesar_cipher :: (Int -> Int -> Int) -> String -> String -> String 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 caesar_cipher operation key text = zipWith (\k t -> chr $ mod (operation (ord t) (ord k)) (ord maxBound)) (cycle key) text