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
|
package Crypt::CBC::PBKDF::randomiv;
# This is for compatibility with early (pre v1.0) versions of OpenSSL
# THE KEYS GENERATED BY THIS ALGORITHM ARE INSECURE!!!
use strict;
use base 'Crypt::CBC::PBKDF';
use Digest::MD5 'md5';
our $VERSION = '3.07';
# options:
# salt_len => 8 default
# key_len => 32 default
# iv_len => 16 default
sub create {
my $class = shift;
my %options = @_;
$options{salt_len} ||= 8;
$options{key_len} ||= 32;
$options{iv_len} ||= 16;
return bless \%options,$class;
}
sub generate_hash {
my $self = shift;
my ($salt,$passphrase) = @_;
my $desired_len = $self->{key_len};
my $material = md5($passphrase);
while (length($material) < $desired_len) {
$material .= md5($material);
}
substr($material,$desired_len) = '';
$material .= Crypt::CBC->_get_random_bytes($self->{iv_len});
return $material;
}
1;
|
