=encoding euc-jp =head1 名前 Crypt::Enigma - 第二次世界大戦でのエニグマをエミュレーションするPerl拡張 =head1 概要 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"); =head1 説明 詳細は、Crypt::Enigmaパッケージに一緒に入っているドキュメントを ご覧ください。 =head2 エクスポート デフォルトでは何もありません。 =head1 作者 Jason Blakey, jblakey@frogboy.net =head1 参考資料 http://www.frogboy.net/Enigma =head1 翻訳者 川合孝典(GCD00051@nifty.ne.jp)