Current File : //usr/local/lib64/perl5/Crypt/Passwd/XS.pm
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__
=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
Copyright (C) 2011 cPanel, Inc.
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:
crypt_to64.c - copyright 1991 University of California
crypt_to64.h - copyright 1991 University of California
des.c - copyright 1994 David Burren, Geoffrey M. Rehmet, Mark R V Murray
md5.c - copyright 1999, 2000, 2002 Aladdin Enterprises
md5.h - copyright 1999, 2000, 2002 Aladdin Enterprises
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
Mini Shell