Passphrases using the phpass algorithm
use Authen::Passphrase::PHPass;
$ppr = Authen::Passphrase::PHPass->new(
cost => 10, salt => "NaClNaCl",
hash_base64 => "ObRxTm/.EiiYN02xUeAQs/");
$ppr = Authen::Passphrase::PHPass->new(
cost => 10, salt_random => 1,
passphrase => "passphrase");
$ppr = Authen::Passphrase::PHPass->from_crypt(
'$P$8NaClNaClObRxTm/.EiiYN02xUeAQs/');
$ppr = Authen::Passphrase::PHPass->from_rfc2307(
'{CRYPT}$P$8NaClNaClObRxTm/.EiiYN02xUeAQs/');
$cost = $ppr->cost;
$cost_base64 = $ppr->cost_base64;
$cost = $ppr->nrounds_log2;
$cost_base64 = $ppr->nrounds_log2_base64;
$salt = $ppr->salt;
$hash = $ppr->hash;
$hash_base64 = $ppr->hash_base64;
if($ppr->match($passphrase)) { ...
$passwd = $ppr->as_crypt;
$userPassword = $ppr->as_rfc2307;
An object of this class encapsulates a passphrase hashed using the phpass algorithm invented by Solar Designer and described at <http://www.openwall.com/phpass/>. This is a subclass of Authen::Passphrase, and this document assumes that the reader is familiar with the documentation for that class.
The phpass algorithm is based on the \s-1MD5\s0 message digest algorithm. There is an eight-byte salt, which is conventionally restricted to consist of base 64 digits. There is also a cost parameter that controls the expense of hashing. First the salt and passphrase are concatenated and hashed by \s-1MD5\s0. Then, 2^cost times, the hash from the previous stage is concatenated with the passphrase and hashed by \s-1MD5\s0. The passphrase hash is the output from the final iteration.
The passphrase hash is represented in \s-1ASCII\s0 using the crypt format with prefix "$P$\*(L". The first character after the format prefix is a base 64 digit giving the cost parameter. The next eight characters are the salt. The salt is followed by 22 base 64 digits giving the hash. The base 64 digits are \*(R".\*(L", \*(R"/\*(L", \*(R"0\*(L" to \*(R"9\*(L", \*(R"A\*(L" to \*(R"Z\*(L", \*(R"a\*(L" to \*(R"z" (in \s-1ASCII\s0 order).
Generates a new passphrase recogniser object using the phpass algorithm. The following attributes may be given:
Base-two logarithm of the number of hashing rounds to perform.
Base-two logarithm of the number of hashing rounds to perform, expressed as a single base 64 digit.
Synonym for cost.
Synonym for cost_base64.
The salt, as an eight-byte string.
Causes salt to be generated randomly. The value given for this attribute is ignored. The salt will be a string of eight base 64 digits. The source of randomness may be controlled by the facility described in Data::Entropy.
The hash, as a 16-byte string.
The hash, as a string of 22 base 64 digits.
A passphrase that will be accepted.
The cost and salt must be given, and either the hash or the passphrase.
Generates a new phpass passphrase recogniser object from a crypt string. The crypt string must consist of "$P$", one base 64 character encoding the cost, the salt, then 22 base 64 digits giving the hash. The salt must be exactly 8 characters long, and cannot contain any character that cannot appear in a crypt string.
Generates a new phpass passphrase recogniser object from an \s-1RFC\s0 2307 string. The string must consist of "{\s-1CRYPT\s0}" (case insensitive) followed by an acceptable crypt string.
Returns the base-two logarithm of the number of hashing rounds that will be performed. Returns the base-two logarithm of the number of hashing rounds that will be performed, expressed as a single base 64 digit. Synonym for \*(L"cost\*(R". Synonym for \*(L"cost_base64\*(R". Returns the salt, as a string of eight bytes. Returns the hash value, as a string of 16 bytes. Returns the hash value, as a string of 22 base 64 digits. These methods are part of the standard Authen::Passphrase interface.
Authen::Passphrase, Digest::MD5
Andrew Main (Zefram) <[email protected]>
Copyright (C) 2006, 2007, 2009, 2010, 2012 Andrew Main (Zefram) <[email protected]>
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.