Crypt-ECB
view release on metacpan or search on metacpan
eval "require $module";
die "Couldn't load $module: $@"."Are you sure '$cipher' is correct? If so,"
. " install $module in the proper path or choose some other cipher.\n"
if $@;
# delete possibly existing cipher obj from a previous crypt process
# otherwise changes in the cipher would not be recognized by start()
$self->{_cipherobj} = '';
}
# some packages like Crypt::DES and Crypt::IDEA behave strange in the way
# that their methods do not belong to the Crypt::DES or Crypt::IDEA namespace
# but only DES or IDEA instead
unless ($module->can('blocksize')) { $module=$cipher }
die "Can't work because Crypt::$cipher doesn't report blocksize."
. " Are you sure $cipher is a valid cipher module?\n"
unless ($module->can('blocksize') && $module->blocksize);
$self->{blocksize} = $module->blocksize;
# In opposition to the blocksize, the keysize need not be known by me,
Foundation; either version 1, or (at your option) any later version, or
b) the "Artistic License".
=head1 AUTHOR
Christoph Appel (see ECB.pm for email address)
=head1 SEE ALSO
perl(1), Crypt::DES(3), Crypt::IDEA(3), Crypt::CBC(3)
=cut
( run in 0.263 second using v1.01-cache-2.11-cpan-9a3d99fc6dc )