Crypt::OOEnigma::Rotor - Crypt::OOEnigma��т戎������������Rotor��ŝ����吾�с�壔��
my $rotor = Crypt::OOEnigma::Rotor->new();
# �����������
my $subHash ={ # A..Z�����⓾�勖���垩�勉�������勛舟�����潟�若��
A => "Z",
B => "G",
# ��ŝ�
};
my $freq = 2 ; # ��㏍�若����若�激�с�潟�勉����潟������垸��������������絖���勖�
my $start_position = 20 ; # ��≪�吾�ャ�� 26
my $rotor = Crypt::OOEnigma::Rotor->new(cipher => $subHash,
freq => $freq
start_position => $pos);
# Enigma machines��с�勐�������ñ����勉�����:
$rotor->init(); # �����勐����◐�倶����勉�����Rotor���菴������障��
my $op = $rotor->encode($some_letter); # �����劫����с�勖��絖���勉����潟�潟�若��
$op = $rotor->revencode($some_letter); # �����劫����с�勖��絖���勉����潟�潟�若��
$rotor->next(); # 罨＜�勉����潟�潟�若����勉�������勖��������綽�荀���������������☗��荵
$rotor->rotate(); # 罨＜�勌��臀勉�����荵���������Crypt::OOEnigma��т戎���������Rotor��с�������劫����勉����㏍�������ｃ�������ｃ�� ��㋝�ŝ�勉�������違�����篏������������������˨�����篏帥�����������������
篏������������障�����
����垩�勐�����絎吟�壔�潟�潟����ャ�若�睡����˨����吟����������������í����������������≪����� ����垩�≪�˨�眼�ŝ�冴����勐七������茯������障����������＜�������������違������垩�壔�潟�潟����ャ�若�睡����˨� �����吟�������������������勉�с����������勉��������荀���ŝ����勉�˨�壚戎�����ŝ����с�����������鐚�
�����勉�������宴�若�吾��OO Perl���CPAN��勉�������勰�ï����ʋ�������勛郡膺���勉��������2002綛眼�勖�ャ� 篏������������障����������������̹��荀���ŝ��������Enigma�����∝�純����������с�����
CPAN��˨�壔�ŝ����吾�с�壔����������с�壔�ŝ�����1��ゃ��Enigma���������絎�茖������⓾����� Crypt::Enigma�����≪�˨�������障��������鐚����������絲障����⓾����������勉�ŝ����吾�с�壔����с�������違����˩室��� 罘�罌違��篏���������������с����障��鐚���������勉����������勉�������宴�若�吾��Crypt::OOEnigma�� ���篁������障��������
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
This package is licenced under the same terms as Perl itself.
綏����絖���� (GCD00051@nifty.ne.jp)