File Coverage

blib/lib/Crypt/Passwd/XS.pm

Criterion	Covered	Total	%
statement	10	11	90.9
branch	11	12	91.6
condition			n/a
subroutine	1	1	100.0
pod	0	1	0.0
total	22	25	88.0

package Crypt::Passwd::XS;

our $VERSION = '0.601';

require XSLoader;
XSLoader::load( 'Crypt::Passwd::XS', $VERSION );

sub crypt {
    my $password = shift;
    my $salt     = shift;
    return unless $salt;
    my $crypt_type = substr( $salt, 0, 3 );
    if ( $crypt_type eq '$1$' ) {
        return unix_md5_crypt( $password, $salt );
    }
    elsif ( $crypt_type eq '$6$' ) {
        return unix_sha512_crypt( $password, $salt );
    }
    elsif ( $crypt_type eq '$5$' ) {
        return unix_sha256_crypt( $password, $salt );
    }
    elsif ( substr( $salt, 0, 1 ) ne '$' ) {
        return unix_des_crypt( $password, $salt );
    }
    elsif ( substr( $salt, 0, 6 ) eq '$apr1$' ) {
        return apache_md5_crypt( $password, $salt );
    }
    else {

        # Unimplemented hashing scheme
        return;
    }
}

1;

__END__