Acme.Cipher

Various ciphers.

Documentation

data Cipher key

encode :: Cipher t -> t -> String -> String

decode :: Cipher t -> t -> String -> String

playfair :: Cipher [Char]

The Playfair cipher

substitution :: Cipher [(Char, Char)]

The letter substitution cipher

addLetters :: Char -> Char -> Char

subtractLetters :: Char -> Char -> Char

viginere :: Cipher [Char]

The Viginere cipher (acts like one-time pad if the key is as long as the plaintext)

caesar :: Cipher Char

The Caesar cipher

newtype Plugboard

Constructors

Plugboard [(Char, Char)]

newtype Reflector

Constructors

Reflector [(Char, Char)]

newtype RotorMapping

Constructors

RotorMapping [(Char, Char)]

enigma :: RandomGen g => g -> Cipher (Plugboard, Reflector, (RotorMapping, RotorMapping, RotorMapping))