@hackage crypto-classical0.0.3

An educational tool for studying classical cryptography schemes. Do not encrypt anything of worth with this library.

Included Ciphers:

• Caesar

• Affine (Linear)

• Substitution

• Stream

• Vigenere

• Enigma (Wehrmacht Enigma I)

Thanks to polymorphism, we can generate keys and encrypt ByteStrings without worrying much about types:

> import Crypto.Classical
> import Control.Lens
> :set -XOverloadedStrings
> (key <$> prng) >>= \k -> return (encrypt k "What a great day for an attack!" ^. enigma)
"PXQS D KXSGB CFC AYK XJ DEGMON!"
> (key <$> prng) >>= \k -> return (encrypt k "What a great day for an attack!" ^. caesar)
"RCVO V BMZVO YVT AJM VI VOOVXF!"