=encoding euc-jp

=head1 名前

Crypt::OOEnigma::Commercial -  1940年頃の商用エニグマ・マシン

=head1 概要

  use Crypt::OOEnigma::Commercial;
  my $enigma = new Crypt::OOEnigma::Commercial;

  # あるいは
  use Crypt::OOEnigma::Commercial;
  use Crypt::OOEnigma::Rotor;
  my @rotors = ();
  # Crypt::OOEnigma::Rotorのリストを入れる
  Crypt::OOEnigma::Commercial->new( rotors => [@rotors] );

  # あるは
  use Crypt::OOEnigma::Commercial;
  use Crypt::OOEnigma::Rotor;
  use Crypt::OOEnigma::Reflector;
  my @rotors = ()
  # Crypt::OOEnigma::Rotorのリストを入れる
  my $reflector = new Crypt:OOEnigma::Reflector(params); # 対応するPODを参照
  Crypt::OOEnigma::Commercial->new( rotors => [@rotors],
                                    reflector => $reflector);

  my $cipher = $enigma->encipher($mesg);
  my $decode = $enigma->encipher($cipher); # 逆方向

  # 同様に、内部的に利用するため
  $enigma->init(); # ローターとそれらの初期状態を返します

=head1 説明

このモジュールは、いくつかのローターとリフレクタによって構成される商用エニグマ・マシン
を提供します。コンストラクタでRotaorが与えられなければ、3つのデフォルトのローターが
利用されます。それぞれはいつでも同じ置換を使います（つまり開始位置0では各ローターでは
全く何も暗号になりません）。

通常、独自のローターを作成し、それらを使うべきです。詳細については
Crypt::OOEnigma::Rotorのドキュメントをご覧ください。

=head1 注意

何もありません

=head1 バグと警告

=head2 エニグマは脆弱です!

暗号の専門家はコンピュータ的にやぶれやすいかどうかという面から
暗号アルゴリズムの強さを語ります。もちろんエニグマ暗号はコンピュータ的には
やぶられやすいものです。そのため重要なものには使わないでください！

=head1 歴史

このパッケージはOO PerlとCPANのための適切な準備の練習のため、2002年の春に
作成されました。さらに重要なことはEnigmaが面白いことです。

CPANにはオブジェクト指向ではなく、1つのEnigmaだけを実装している
Crypt::Enigmaが既にありました。（これに対してこれらのオブジェクトでエニグマに似た
機械を作ることができます）。そのためこのパッケージをCrypt::OOEnigmaと
名付けました。

=head1 参考資料

The Pleasures of Counting, T W Korner, CUP 1996.  A great book for anyone with
the slightest interest in mathematics
  ISBN 0 521 56087 X hardback
  ISBN 0 521 56823 4 paperback 

Crypt::OOEnigma::Military

コンポーネント
  Crypt::OOEnigma::Rotor
  Crypt::OOEnigma::Reflector
  Crypt::OOEnigma::Plugboard

=head1 著作権(=COPYRIGHT)

This package is licenced under the same terms as Perl itself.

=head1 翻訳者

川合孝典 (GCD00051@nifty.ne.jp)