Crypt::Enigma - 第二次世界大戦でのエニグマをエミュレーションするPerl拡張
use Crypt::Enigma;
my($enigma) = Crypt::Enigma->new();
# エニグマに適切なローター、リング、初期設定を設定します。
$enigma->setup("312", "ABC", "ERZ");
# a から b そして b から aへのプラブボード
$enigma->stekker("a", "b");
# 1文字入力し、暗号化された文字を取得
my($output) = $enigma->input("A");
# もう1文字入力し、出力を取得
$output = $enigma->input("W");
詳細は、Crypt::Enigmaパッケージに一緒に入っているドキュメントを ご覧ください。
デフォルトでは何もありません。
Jason Blakey, <lt>jblakey@frogboy.net<gt>
川合孝典(GCD00051@nifty.ne.jp)