Crypt::Enigma 1.1

Crypt::Enigma is a 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");