1 files changed, 121 insertions, 0 deletions
diff --git a/lib/Crypt/Cipher/CAST5.pm b/lib/Crypt/Cipher/CAST5.pm
new file mode 100644
index 00000000..fbfd240c
--- /dev/null
+++ b/lib/Crypt/Cipher/CAST5.pm
@@ -0,0 +1,121 @@
+package Crypt::Cipher::CAST5;
+
+### BEWARE - GENERATED FILE, DO NOT EDIT MANUALLY!
+
+use strict;
+use warnings;
+our $VERSION = '0.048';
+
+use CryptX;
+use base 'Crypt::Cipher';
+
+sub blocksize      { Crypt::Cipher::blocksize(__PACKAGE__) }
+sub keysize        { Crypt::Cipher::keysize(__PACKAGE__) }
+sub max_keysize    { Crypt::Cipher::max_keysize(__PACKAGE__) }
+sub min_keysize    { Crypt::Cipher::min_keysize(__PACKAGE__) }
+sub default_rounds { Crypt::Cipher::default_rounds(__PACKAGE__) }
+
+1;
+
+=pod
+
+=head1 NAME
+
+Crypt::Cipher::CAST5 - Symetric cipher CAST5 (aka CAST-128), key size: 40-128 bits (Crypt::CBC compliant)
+
+=head1 SYNOPSIS
+
+  ### example 1
+  use Crypt::Mode::CBC;
+
+  my $key = '...'; # length has to be valid key size for this cipher
+  my $iv = '...';  # 16 bytes
+  my $cbc = Crypt::Mode::CBC->new('CAST5');
+  my $ciphertext = $cbc->encrypt("secret data", $key, $iv);
+
+  ### example 2
+  use Crypt::CBC;
+  use Crypt::Cipher::CAST5;
+
+  my $key = '...'; # length has to be valid key size for this cipher
+  my $iv = '...';  # 16 bytes
+  my $cbc = Crypt::CBC->new( -cipher=>'Cipher::CAST5', -key=>$key, -iv=>$iv );
+  my $ciphertext = $cbc->encrypt("secret data");
+
+=head1 DESCRIPTION
+
+This module implements the CAST5 cipher. Provided interface is compliant with L<Crypt::CBC|Crypt::CBC> module.
+
+B<BEWARE:> This module implements just elementary "one-block-(en|de)cryption" operation - if you want to
+encrypt/decrypt generic data you have to use some of the cipher block modes - check for example
+L<Crypt::Mode::CBC|Crypt::Mode::CBC>, L<Crypt::Mode::CTR|Crypt::Mode::CTR> or L<Crypt::CBC|Crypt::CBC> (which will be slower).
+
+=head1 METHODS
+
+=head2 new
+
+ $c = Crypt::Cipher::CAST5->new($key);
+ #or
+ $c = Crypt::Cipher::CAST5->new($key, $rounds);
+
+=head2 encrypt
+
+ $ciphertext = $c->encrypt($plaintext);
+
+=head2 decrypt
+
+ $plaintext = $c->decrypt($ciphertext);
+
+=head2 keysize
+
+  $c->keysize;
+  #or
+  Crypt::Cipher::CAST5->keysize;
+  #or
+  Crypt::Cipher::CAST5::keysize;
+
+=head2 blocksize
+
+  $c->blocksize;
+  #or
+  Crypt::Cipher::CAST5->blocksize;
+  #or
+  Crypt::Cipher::CAST5::blocksize;
+
+=head2 max_keysize
+
+  $c->max_keysize;
+  #or
+  Crypt::Cipher::CAST5->max_keysize;
+  #or
+  Crypt::Cipher::CAST5::max_keysize;
+
+=head2 min_keysize
+
+  $c->min_keysize;
+  #or
+  Crypt::Cipher::CAST5->min_keysize;
+  #or
+  Crypt::Cipher::CAST5::min_keysize;
+
+=head2 default_rounds
+
+  $c->default_rounds;
+  #or
+  Crypt::Cipher::CAST5->default_rounds;
+  #or
+  Crypt::Cipher::CAST5::default_rounds;
+
+=head1 SEE ALSO
+
+=over
+
+=item * L<CryptX|CryptX>, L<Crypt::Cipher|Crypt::Cipher>
+
+=item * L<http://en.wikipedia.org/wiki/CAST-128|http://en.wikipedia.org/wiki/CAST-128>
+
+=back
+
+=cut
+
+__END__
+\ No newline at end of file