Crypt::CBCeasy - Crypt::CBC��с�勛亜�����ŝ����������㋚����̥亜�����˨����障��
use Crypt::CBCeasy; # !!! �����勉�≪�吾�ャ�若�˨��'require'��������������壔�с����障����� !!!
IDEA::encipher($my_key, "plain-file", "crypted-file");
$plain_text = DES::decipher($my_key, \*CRYPTO_FILE);
$crypted = Blowfish::encipher($my_key, \*PLAIN_SOCKET);
�����勉�≪�吾�ャ�若�˨�夌亜�����˨��������絽吾�勌��篋���������ŝ����壔�潟�í�ゃ����若�˨�������� Crypt::CBC��勉�������勐����ŝ�������˨����若�с�����
�����勉�≪�吾�ャ�若�˨�勛憠�������若�吾�с�潟��CPAN��у��緇������������������с����障�����
篁ヤ����勉�������˨����⓾�������勉�≪�吾�ャ�若�˨����若�喝�冴����
use Crypt::CBCeasy IMPORT-LIST;
IMPORT-LIST
��˩�������������������⓾�勐�����腥咲��(��������宴�若��)�� ��∽��encipher()
��� decipher()
���篏���������障�����
IMPORT-LIST
�����ŝ�������違�����������3��ゃ�勖���垩�������宴�������������с����ŝ����c�� 篁ュ����勉����若�吾�с�潟����勌�������с��篆���ゃ����������������í�˨����с��DES::���IDEA:: ���������Blowfish::��˨�����������2��ゃ�勰�∽�違��篏���������障�����
Blowfish
���筝�膩����罘���純�������������˨��Crypt::CBC
v. 1.22篁ラ�������ゃ�潟�鴻����若�˨����� 綽�荀������������障�����
IDEA::��∽�違��Crypt::IDEA�����ゃ�潟�鴻����若�˨����⓾�������������˨�勉�水�������障����� DES::��∽�� - Crypt::DES������Blowfish:: - Crypt::Blowfish���Crypt::CBC��������若�吾�с�� 1.22 篁ヤ����ŝ�í��
篁ヤ����̥憜�����Crypt::CBCeasy
��ゃ�潟�帥�若����с�若�鴻����������☗�若�喝�冴����������� ��堺�ャ������垩�勌��荀с�������������障��鐚�絎������˨��Crypt::CBC
篋������勉�≪�吾�ャ�若�˨� ��������с��鐚�: Here's the list of the ciphers that could be called via the
������ CPAN��≪�吾�ャ�若�
DES Crypt::DES
IDEA Crypt::IDEA
Blowfish Crypt::Blowfish
Twofish2 Crypt::Twofish2
DES_PP Crypt::DES_PP
Blowfish_PP Crypt::Blowfish_PP
Rijndael Crypt::Rijndael
TEA Crypt::TEA
IMPORT-LIST
��с������垩�勐�������壠ぇ���絖�鐚鎞����絖������阪�ャ���������������� 羈���������⓾�������������������勉�����"blowfish"��壔����í�若�˨�ŝ����障����� �����˨�ŝ�c�⓾�������≪�吾�ャ�若�˨��絲上�������������勉����������˨�ŝ��������罩g∈�� �����∴昭�����с��������������
��∽��encipher()
���decipher()
��壔�����������3��ゃ�勉����í�<�若�帥����������障��:
1 - ����垸��/緇ï垸����㏍�
2 - �����怨��
3 - ��阪�����
�����怨����壚札筝���勉����勉��荐㊤�������������������с����障��:��√����勉����<�ゃ�˨����鴻�˨�í��(����垸�� ��������������ŝ�����絖����)�����ŝ�若����潟�������������<�ゃ�˨����潟����˨�������<�ゃ�˨����潟����˨��膓���帥����� 篏���������勉�ŝ����吾�с�壔�����箴�������IO::File���FileHandle��ŝ����吾�с�壔�������������⓾�純�宴��������
��������с�壔�鴻�˨�í�若����阪�������<�ゃ����������阪�ャ����������������с����ŝ����������鴻�˨�í�若����ゃ����違�� ��阪�������壚��荐���勉����鴻�⓾�����絎������������������с����障�����
���������������箴������帥����祉�����膂≦����с��������:
($fh
���������紊���違��IO::Handle���IO::File������������FileHandle��ŝ����吾�с�壔����� "GLOB"�����勐����違��"GLOB"��ŝ����<�㋘�潟�鴻����������壔�純�宴�������с�����)
IDEA::encipher( $my_key, "in-file", "out-file" );
IDEA::encipher( $my_key, *IN, "out-file" );
IDEA::encipher( $my_key, \*IN, "out-file" );
IDEA::encipher( $my_key, $fh_in, "out-file" );
IDEA::encipher( $my_key, "in-file", *OUT );
IDEA::encipher( $my_key, "in-file", \*OUT );
IDEA::encipher( $my_key, "in-file", $fh_out );
IDEA::encipher( $my_key, *IN, *OUT );
IDEA::encipher( $my_key, \*IN, \*OUT );
IDEA::encipher( $my_key, $fh_in, $fh_out );
IDEA::encipher( $my_key, $plain_text, "out-file" );
IDEA::encipher( $my_key, $plain_text, *OUT );
IDEA::encipher( $my_key, $plain_text, \*OUT );
IDEA::encipher( $my_key, $plain_text, $fh_out );
筝�荐���勉����鴻�⓾��罘���純�����篋���潟�������⓾��������������茵������障�����
��������̥����������鴻�˨�í�ц��������綣����2��ゃ�勉����若�吾�с�潟����������障��:
$crypted_text = IDEA::encipher( $my_key, $plain_text );
$crypted_text = IDEA::encipher( $my_key, "in-file" );
$crypted_text = IDEA::encipher( $my_key, *IN );
$crypted_text = IDEA::encipher( $my_key, \*IN );
$crypted_text = IDEA::encipher( $my_key, $fh );
���������������IMPORT-LIST
��˨����������⓾�勖���垽�号����у櫝�純�с�����
�����í�若�勉�������˨�壠����⓾�勰�∽�違��croak�����障��("input file not found"��勉��������)��� �����勉����������í�若�������í�������������������違��������������eval{}
�����㏍����壔�勐����眼� 篏睡��������$@
��������с����壔����⓾��������������
�����ŝ�����binmode
���荀�羆������⓾�������ŝ����⓾�������������⓾�勉����<�ゃ�˨����潟����˨�� binmode
��т戎������������������羈���������⓾��������������������������Win32��с�壔������� 腟������������� "crypted_file" ���篁ヤ����勉�������˨����☖����������������
DES::encipher($my_key, "text_file", "crypted_file");
������������緇���˨�
$plain_text = DES::decipher($my_key, "crypted_file");
$plain_text��˨��CRLF�����ャ����障�����
�����������<�ゃ�˨����潟����˨�������˩戎��������⓾�������� - �����㏍����祉��/����������� ��壔�㏍�若�冴�������������壔�������ŝ����勌��篋���с�����
��������壠����ŝ����≪�吾�ャ�若�˨�ŝ�勉�с��篏������劫�ャ�ŝ�ゃ�潟�鴻����若�˨�壠��荀���������障�������� @INC��勉�í��������/Crypt��泣�������c�㋘�壔����ŝ����ャ����⓾��������������罔�羣���
Makefile.PL
make
make test
make install
���������������������箴���������⓾����障�������������
make html
���HTML�����㏍�ャ�<�潟�����篏���������障�����
�����勉�≪�吾�ャ�若�˨�壚札筝���勉����勉��綽�荀���������障��
Lincoln Stein lstein@cshl.org ��˨�����Crypt::CBC v.1.20篁ラ��
篁ヤ����勉�����1��や札筝�
Crypt::IDEA, Crypt::DES, Crypt::Blowfish, Crypt::Blowfish_PP, Crypt::Twofish2, Crypt::DES_PP �����������壔����勌����� Crypt::CBC篋������≪�吾�ャ�若�
�����勉�≪�吾�ャ�若�˨��Win95/98/2000Pro��医�����Perl 5.004_02�� ActiveState ActivePerl build 618��т�������������������鴻����������⓾����障����� 腱���壚����勉�激�鴻�������с��罩c����閟���純�����������������緇������⓾����障�����
0.21 Mon Mar 6 07:28:41 2000 - first public release
0.22 Sun Feb 18 13:11:59 2001
A horrible BUG was found by Michael Drumheller <drumheller@alum.mit.edu>
In fact 0.21 was ALWAYS using DES despite of the desired cipher.
DAMN!
Fixed.
And the test is modified so that this will never happen again.
Now you can define the list of ciphers that are compatible
with Crypt::CBC in the import list.
You can not call this module with the "require" statement. This
is incompatible with the older versions.
0.23 Crypt::Rijndael 0.02 compatibility was approved.
Tests are some more complex now.
0.24 Crypt::TEA 1.01 by Abhijit Menon-Sen <ams@wiw.org> is checked
and approved.
��í����ʋ��罅����紊ф��菴���с�����
��í�������㋘����若��������������������
�����勉�������ャ�≪�˨�祉����若�吾��"Crypt::CBCeasy" �����若�吾�с�� 0.24 2001綛�2���18��ャ�˨�ゃ����⓾� �����勉�с�����
Mike Blazer, blazer@mail.nevalink.ru
http://base.dux.ru/guest/fno/perl/
Crypt::CBC
Copyright (C) 2000-2001 Mike Blazer.
This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
綏����絖����(GCD00051@nifty.ne.jp)