/
Rijndael.pm
138 lines (80 loc) · 3.06 KB
/
Rijndael.pm
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
135
136
137
package Crypt::Rijndael;
use strict;
use warnings;
our $VERSION = '1.16';
use XSLoader;
XSLoader::load('Crypt::Rijndael', $VERSION);
1;
__END__
=head1 NAME
Crypt::Rijndael - Crypt::CBC compliant Rijndael encryption module
=head1 VERSION
Version 1.16
=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
=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 don't
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 Leon Timmermans C<< leont@cpan.org >>.
Previously 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/leont/crypt-rijndael.git
=head1 LICENSE
This software is licensed under the Lesser GNU Public License v3 (29
June 2007). See the included COPYING file for details.
=cut