Crypt::SEEDPerl extension for SEED encryption/decryption algorithm | |
Download |
Crypt::SEED Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Jongpil Jeon
- Publisher web site:
- http://search.cpan.org/~jpjeon/
Crypt::SEED Tags
Crypt::SEED Description
Perl extension for SEED encryption/decryption algorithm 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).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.SYNOPSIS use Crypt::SEED; my $seed = new Crypt::SEED(); $seed->addKeys( @user_keys ); # or my $seed = new Crypt::SEED( @user_keys ); # Each key must be in 16 bytes in length my $seed = new Crypt::SEED( '0123456789ABCDEF' ); # userkey. my $cipher = $seed->encrypt( $source_data, '0123456789ABCDEF' ); my $cipher = $seed->encrypt( $source_data, 3 ); # 3 above is an user key index. starting from 0. my $recall = $seed->decrypt( $cipher, '0123456789ABCDEF' ); # by user key. my $recall = $seed->decrypt( $cipher, 3 ); # by index if( !$seed->hasAKey( $userKey ) ) { $seed->addKey( $userKey ); } my $index = $seed->replaceKey($userKey, $newKey); my $number_of_keys = $seed->count(); my $idx = $seed->keyIndex($userKey); my $userKey = $seed->findUserKey($idx); Requirements: · Perl
Crypt::SEED Related Software