Crypt::SEED

Perl extension for SEED encryption/decryption algorithm
Download

Crypt::SEED Ranking & Summary

Advertisement

  • Rating:
  • 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