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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
|
package Crypt::Blowfish;
require Exporter;
require DynaLoader;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter DynaLoader);
# @ISA = qw(Exporter DynaLoader Crypt::BlockCipher);
# Items to export into callers namespace by default
@EXPORT = qw();
# Other items we are prepared to export if requested
@EXPORT_OK = qw(
blocksize keysize min_keysize max_keysize
new encrypt decrypt
);
$VERSION = '2.10';
bootstrap Crypt::Blowfish $VERSION;
use strict;
use Carp;
sub usage
{
my ($package, $filename, $line, $subr) = caller(1);
$Carp::CarpLevel = 2;
croak "Usage: $subr(@_)";
}
sub blocksize { 8; } # /* byte my shiny metal.. */
sub keysize { 0; } # /* we'll leave this at 8 .. for now. expect change. */
sub min_keysize { 8; }
sub max_keysize { 56; }
sub new
{
usage("new Blowfish key") unless @_ == 2;
my $type = shift; my $self = {}; bless $self, $type;
$self->{'ks'} = Crypt::Blowfish::init(shift);
$self;
}
sub encrypt
{
usage("encrypt data[8 bytes]") unless @_ == 2;
my $self = shift;
my $data = shift;
Crypt::Blowfish::crypt($data, $data, $self->{'ks'}, 0);
$data;
}
sub decrypt
{
usage("decrypt data[8 bytes]") unless @_ == 2;
my $self = shift;
my $data = shift;
Crypt::Blowfish::crypt($data, $data, $self->{'ks'}, 1);
$data;
}
1;
__END__
#
# Parts Copyright (C) 1995, 1996 Systemics Ltd (http://www.systemics.com/)
# New Parts Copyright (C) 2000, 2001 W3Works, LLC (http://www.w3works.com/)
# All rights reserved.
#
=head1 NAME
Crypt::Blowfish - Perl Blowfish encryption module
=head1 SYNOPSIS
use Crypt::Blowfish;
my $cipher = new Crypt::Blowfish $key;
my $ciphertext = $cipher->encrypt($plaintext);
my $plaintext = $cipher->decrypt($ciphertext);
=head1 DESCRIPTION
Blowfish is capable of strong encryption and can use key sizes up
to 56 bytes (a 448 bit key). You're encouraged to take advantage
of the full key size to ensure the strongest encryption possible
from this module.
Crypt::Blowfish has the following methods:
=over 4
blocksize()
keysize()
encrypt()
decrypt()
=back
=head1 FUNCTIONS
=over 4
=item blocksize
Returns the size (in bytes) of the block cipher.
Crypt::Blowfish doesn't return a key size due to its ability
to use variable-length keys. (well, more accurately, it won't
as of 2.09 .. for now, it does. expect that to change)
=item new
my $cipher = new Crypt::Blowfish $key;
This creates a new Crypt::Blowfish BlockCipher object, using $key,
where $key is a key of C<keysize()> bytes (minimum of eight bytes).
=item encrypt
my $cipher = new Crypt::Blowfish $key;
my $ciphertext = $cipher->encrypt($plaintext);
This function encrypts $plaintext and returns the $ciphertext
where $plaintext and $ciphertext must be of C<blocksize()> bytes.
(hint: Blowfish is an 8 byte block cipher)
=item decrypt
my $cipher = new Crypt::Blowfish $key;
my $plaintext = $cipher->decrypt($ciphertext);
This function decrypts $ciphertext and returns the $plaintext
where $plaintext and $ciphertext must be of C<blocksize()> bytes.
(hint: see previous hint)
=back
=head1 EXAMPLE
my $key = pack("H16", "0123456789ABCDEF"); # min. 8 bytes
my $cipher = new Crypt::Blowfish $key;
my $ciphertext = $cipher->encrypt("plaintex"); # SEE NOTES
print unpack("H16", $ciphertext), "\n";
=head1 PLATFORMS
Please see the README document for platforms and performance
tests.
=head1 NOTES
The module is capable of being used with Crypt::CBC. You're
encouraged to read the perldoc for Crypt::CBC if you intend to
use this module for Cipher Block Chaining modes. In fact, if
you have any intentions of encrypting more than eight bytes of
data with this, or any other block cipher, you're going to need
B<some> type of block chaining help. Crypt::CBC tends to be
very good at this. If you're not going to encrypt more than
eight bytes, your data B<must> be B<exactly> eight bytes long.
If need be, do your own padding. "\0" as a null byte is perfectly
valid to use for this. Additionally, the current maintainer for
Crypt::Blowfish may or may not release Crypt::CBC_R which
replaces the default 'RandomIV' initialization vector in
Crypt::CBC with a random initialization vector. (to the limits
of /dev/urandom and associates) In either case, please email
amused@pobox.com for Crypt::CBC_R.
=head1 SEE ALSO
Crypt::CBC,
Crypt::DES,
Crypt::IDEA
Bruce Schneier, I<Applied Cryptography>, 1995, Second Edition,
published by John Wiley & Sons, Inc.
=head1 COPYRIGHT
The implementation of the Blowfish algorithm was developed by,
and is copyright of, A.M. Kuchling.
Other parts of the perl extension and module are
copyright of Systemics Ltd ( http://www.systemics.com/ ).
Code revisions, updates, and standalone release are copyright
1999-2001 W3Works, LLC.
=head1 AUTHOR
Original algorithm, Bruce Shneier. Original implementation, A.M.
Kuchling. Original Perl implementation, Systemics Ltd. Current
maintenance by W3Works, LLC.
Current revision and maintainer: Dave Paris <amused@pobox.com>
|