NAME

Crypt::Enigma - Perl extension for emulating a World War II Enigma

SYNOPSIS

use Crypt::Enigma;

my($enigma) = Crypt::Enigma->new();


# Set the enigma to the proper rotor, ring, and initial setting.
$enigma->setup("312", "ABC", "ERZ");

# Plugboard a to b, and b to a.
$enigma->stekker("a", "b");

# Input a single letter, and get the encrypted letter.
my($output) = $enigma->input("A");

# Input another letter, and get the output.
$output = $enigma->input("W");

DESCRIPTION

See the documentation that came with the Crypt::Enigma package for more information.

EXPORT

None by default.

AUTHOR

Jason Blakey, <lt>jblakey@frogboy.net<gt>

SEE ALSO

http://www.frogboy.net/Enigma