Skip to content

Latest commit

 

History

History
233 lines (141 loc) · 6.25 KB

File metadata and controls

233 lines (141 loc) · 6.25 KB

������

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.

TODO

��í����ʋ��罅����紊ф��菴���с�����

�����

��í�������㋘����若��������������������

�����若�吾�с�

�����勉�������ャ�≪�˨�祉����若�吾��"Crypt::CBCeasy" �����若�吾�с�� 0.24 2001綛�2���18��ャ�˨�ゃ����⓾� �����勉�с�����

篏����

Mike Blazer, blazer@mail.nevalink.ru

http://base.dux.ru/guest/fno/perl/

������莖����

Crypt::CBC

���篏�罔�(COPYRIGHT)

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)