Crypt::SEED 0.01

Crypt::SEED is a Perl module that provides the Perl community with the SEED encryption algorithm which has been made by Korean Information Security Agency(KISA, http://www.kisa.or.kr).<br /><br />SEED encryption/decryption uses a 'round key' which translated from a user key. Whenever you add user keys to the module using new or addKey or addKeys, the module will translate them to round keys and store them inside the module with user keys. (Of course, in hash) And, whenever you use the user key with encrypt, decrypt methods, the module look for the matching round key from inside the module to do real job.<br /><br />SYNOPSIS<br /><br /> use Crypt::SEED;<br /><br /> my $seed = new Crypt::SEED();<br /> $seed->addKeys( @user_keys );<br /> # or<br /> my $seed = new Crypt::SEED( @user_keys );<br /> # Each key must be in 16 bytes in length<br /> my $seed = new Crypt::SEED( '0123456789ABCDEF' ); # userkey.<br /><br /> my $cipher = $seed->encrypt( $source_data, '0123456789ABCDEF' );<br /> my $cipher = $seed->encrypt( $source_data, 3 );<br /> # 3 above is an user key index. starting from 0.<br /> my $recall = $seed->decrypt( $cipher, '0123456789ABCDEF' ); # by user key.<br /> my $recall = $seed->decrypt( $cipher, 3 ); # by index<br /><br /> if( !$seed->hasAKey( $userKey ) ) {<br /> $seed->addKey( $userKey );<br /> }<br /> my $index = $seed->replaceKey($userKey, $newKey);<br /> my $number_of_keys = $seed->count();<br /> my $idx = $seed->keyIndex($userKey);<br /> my $userKey = $seed->findUserKey($idx);

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Abcdef,  Bytes,  Cipher,  Crypt,  Crypt Seed,  Cryptseed,  Index,  Inside,  Length,  Module,  Number Keys,  Recall,  Round,  Seed,  Seedgtaddkeys,  Seedgtdecrypt,  Seedgtencrypt,  Source Data,  Starting,  User Keys,  Userkey
Users rating:	0/10