File Coverage

lib/Crypt/CBC/PBKDF/pbkdf2.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition	8	8	100.0
subroutine	5	5	100.0
pod	0	2	0.0
total	33	35	94.2

package Crypt::CBC::PBKDF::pbkdf2;
use strict;

use base 'Crypt::CBC::PBKDF';
use Crypt::PBKDF2;

our $VERSION = '3.07';
# options:
# key_len    => 32    default
# iv_len     => 16    default
# iterations => 10000  default
# hash_class => 'HMACSHA2' default

sub create {
    my $class = shift;
    my %options = @_;
    $options{key_len}      ||= 32;
    $options{iv_len}       ||= 16;
    $options{iterations}   ||= 10_000;
    $options{hash_class}   ||= 'HMACSHA2';
    return bless \%options,$class;
}

sub generate_hash {
    my $self = shift;
    my ($salt,$passphrase) = @_;
    my $pbkdf2 = Crypt::PBKDF2->new(%$self,
				    output_len => $self->{key_len} + $self->{iv_len});
    return $pbkdf2->PBKDF2($salt,$passphrase);
}

1;