File Coverage

lib/Crypt/CBC/PBKDF.pm

Criterion	Covered	Total	%
statement	1608	1608	100.0
branch	2	4	50.0
condition			n/a
subroutine	536	536	100.0
pod	0	4	0.0
total	2146	2152	99.7

package Crypt::CBC::PBKDF;

# just a virtual base class for passphrase=>key derivation functions
use strict;
use File::Basename 'dirname','basename';
use Carp 'croak';

sub new {
    my $class    = shift;
    my $subclass = shift;
    my $options  = shift;

    my $package = __PACKAGE__."::$subclass";
    eval "use $package; 1" or
	croak "Could not load $subclass: $@";

    return $package->create(%$options);
}

# returns a series of subclasses
sub list {
    my $self = shift;
    my $dir      = dirname(__FILE__);
    my @pm_files = <$dir/PBKDF/*.pm>;
    my @subclasses;
    foreach (@pm_files) {
	my $base =  basename($_);
	$base    =~ s/\.pm$//;
	push @subclasses,$base;
    }
    return @subclasses;
}

sub generate_hash {
    my $self = shift;
    my ($salt,$passphrase) = @_;
    croak "generate() method not implemented in this class. Use one of the subclasses",join(',',$self->list);
}

sub key_and_iv {
    my $self = shift;
    croak 'usage $obj->salt_key_iv($salt,$passphrase)' unless @_ == 2;

    my $hash = $self->generate_hash(@_);

    my $key  = substr($hash,0,$self->{key_len});
    my $iv   = substr($hash,$self->{key_len},$self->{iv_len});
    return ($key,$iv);
}

1;