Jason Blakey

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