AnonymousFox

//usr/local/lib64/perl5/Crypt/Passwd/XS.pm

package Crypt::Passwd::XS;

our $VERSION = '0.600';

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;
    }
}

__END__

=head1 NAME

Crypt::Passwd::XS - Full XS implementation of common crypt() algorithms

=head1 SYNOPSIS

use Crypt::Passwd::XS;

my $plaintext = 'secret';
  my $salt      = '$1$1234';
  my $crypted   = Crypt::Passwd::XS::crypt( $plaintext, $salt );

=head1 DESCRIPTION

This module provides several common crypt() schemes as full XS implementations.
It allows you to validate crypted passwords that were hashed using a scheme
that the system's native crypt() implementation does not support.

=head2 Description of functions

The B<crypt()> function handles all supported crypt methods using the standard
salt prefix system for determinging the crypt type.

The B<unix_md5_crypt()> function performs a MD5 crypt regardless of the salt
prefix.

The B<apache_md5_crypt()> function performs a APR1 crypt regardless of the salt
prefix.

The B<unix_des_crypt()> funtion performs a traditional DES crypt regardless of
the salt prefix.

The B<unix_sha256_crypt()> function performs a SHA256 crypt regardless of the
salt prefix.

The B<unix_sha512_crypt()> function performs a SHA512 crypt regardless of the
salt prefix.

=head1 TODO

The blowfish and Sun crypt() schemes are currently unsupported.

=head1 AUTHOR

John Lightsey, E<lt>jd@cpanel.netE<gt>

=head1 COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.1 or,
at your option, any later version of Perl 5 you may have available.

The following files are adapted from other sources (primarily DragonFly BSD.)
See the copyright notices in these files for full details:

md5crypt.c - copyright Poul-Henning Kamp

md5crypt.h - copyright Poul-Henning Kamp

sha256crypt.c - public domain reference implementation by Ulrich Drepper

sha512crypt.c - public domain reference implementation by Ulrich Drepper

=cut