Create a gist now

Instantly share code, notes, and snippets.

import Data.Function (on)
import Data.Char (ord, chr)
import Data.Bits (xor)
import System (getArgs)
crypt :: FilePath -> String -> IO String
crypt filename key = do
text <- readFile filename
let code = map chr $ zipWith (xor `on` ord) text $ cycle key
return code
main = do
[filename,key] <- getArgs
encrypted <- crypt filename key
putStr encrypted
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment