File Coverage

blib/lib/CGI/Application/Plugin/Authentication/Driver/Filter/crypt.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	29	29	100.0

package CGI::Application::Plugin::Authentication::Driver::Filter::crypt;

use strict;
use warnings;
our $VERSION = '0.20';

sub check {
    my $class    = shift;
    my $param    = shift;
    my $plain    = shift;
    my $filtered = shift;

    return ( $class->filter( $param, $plain, $filtered ) eq $filtered ) ? 1 : 0;
}

sub filter {
    my $class = shift;
    my $param = lc shift; # not used
    my $plain = shift;
    my $salt  = shift;
    if (!$salt) {
        my @alphabet = ( '.', '/', 0 .. 9, 'A' .. 'Z', 'a' .. 'z' );
        $salt = join '', @alphabet[ rand 64, rand 64 ];
    }
    return crypt( $plain, $salt );
}

1;
__END__