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");

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

None by default.