NAME

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

SYNOPSIS

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