/usr/lib/perl5/Crypt/Rijndael.pm is in libcrypt-rijndael-perl 1.08-1build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 | =head1 NAME
Crypt::Rijndael - Crypt::CBC compliant Rijndael encryption module
=head1 SYNOPSIS
use Crypt::Rijndael;
# keysize() is 32, but 24 and 16 are also possible
# blocksize() is 16
$cipher = Crypt::Rijndael->new( "a" x 32, Crypt::Rijndael::MODE_CBC() );
$cipher->set_iv($iv);
$crypted = $cipher->encrypt($plaintext);
# - OR -
$plaintext = $cipher->decrypt($crypted);
=head1 DESCRIPTION
This module implements the Rijndael cipher, which has just been selected
as the Advanced Encryption Standard.
=over 4
=cut
package Crypt::Rijndael;
use strict;
use vars qw( $VERSION @ISA );
use warnings;
no warnings;
require DynaLoader;
$VERSION = '1.08';
@ISA = qw/DynaLoader/;
bootstrap Crypt::Rijndael $VERSION;
=item keysize
Returns the keysize, which is 32 (bytes). The Rijndael cipher
actually supports keylengths of 16, 24 or 32 bytes, but there is no
way to communicate this to C<Crypt::CBC>.
=item blocksize
The blocksize for Rijndael is 16 bytes (128 bits), although the
algorithm actually supports any blocksize that is any multiple of
our bytes. 128 bits, is however, the AES-specified block size,
so this is all we support.
=item $cipher = Crypt::Rijndael->new( $key [, $mode] )
Create a new C<Crypt::Rijndael> cipher object with the given key
(which must be 128, 192 or 256 bits long). The additional C<$mode>
argument is the encryption mode, either C<MODE_ECB> (electronic
codebook mode, the default), C<MODE_CBC> (cipher block chaining, the
same that C<Crypt::CBC> does), C<MODE_CFB> (128-bit cipher feedback),
C<MODE_OFB> (128-bit output feedback), or C<MODE_CTR> (counter mode).
ECB mode is very insecure (read a book on cryptography if you dont
know why!), so you should probably use CBC mode.
=item $cipher->set_iv($iv)
This allows you to change the initial value vector used by the
chaining modes. It is not relevant for ECB mode.
=item $cipher->encrypt($data)
Encrypt data. The size of C<$data> must be a multiple of C<blocksize>
(16 bytes), otherwise this function will croak. Apart from that, it
can be of (almost) any length.
=item $cipher->decrypt($data)
Decrypts C<$data>.
=back
=head2 Encryption modes
Use these constants to select the cipher type:
=over 4
=item MODE_CBC - Cipher Block Chaining
=item MODE_CFB - Cipher feedback
=item MODE_CTR - Counter mode
=item MODE_ECB - Electronic cookbook mode
=item MODE_OFB - Output feedback
=item MODE_PCBC - ignore this one for now :)
=back
=head1 SEE ALSO
L<Crypt::CBC>, http://www.csrc.nist.gov/encryption/aes/
=head1 BUGS
Should EXPORT or EXPORT_OK the MODE constants.
=head1 AUTHOR
Currently maintained by brian d foy, C<< <bdfoy@cpan.org> >>.
Original code by Rafael R. Sevilla.
The Rijndael Algorithm was developed by Vincent Rijmen and Joan Daemen,
and has been selected as the US Government's Advanced Encryption Standard.
=head1 SOURCE
This code is in Github:
git://github.com/briandfoy/crypt-rijndael.git
=head1 LICENSE
This software is licensed under the Lesser GNU Public License. See the included
COPYING file for details.
=cut
1;
|