view release on metacpan or  search on metacpan

t/phpass.t  view on Meta::CPAN

$ppr = Authen::Passphrase::PHPass
		->new(nrounds_log2_base64 => "6", salt_random => 1,
		      passphrase => "wibble");
ok $ppr;
is $ppr->cost, 8;
is $ppr->cost_base64, "6";
is $ppr->nrounds_log2, 8;
is $ppr->nrounds_log2_base64, "6";
like $ppr->salt, qr#\A[./0-9A-Za-z]{8}\z#;
is length($ppr->hash), 16;
ok $ppr->match("wibble");

$ppr = Authen::Passphrase::PHPass
	->from_crypt('$P$8NaClNaClMeOtoCi6dkB5NlSyY.wFQ.');
ok $ppr;
is $ppr->cost, 10;
is $ppr->salt, "NaClNaCl";
is $ppr->hash_base64, "MeOtoCi6dkB5NlSyY.wFQ.";

$ppr = Authen::Passphrase::PHPass
	->from_rfc2307('{CrYpT}$P$8NaClNaClMeOtoCi6dkB5NlSyY.wFQ.');
ok $ppr;
is $ppr->cost, 10;
is $ppr->salt, "NaClNaCl";
is $ppr->hash_base64, "MeOtoCi6dkB5NlSyY.wFQ.";

my %pprs;
while(<DATA>) {
	chomp;
	s/([^ \n]+) ([^ \n]+) ([^ \n]+) *//;
	my($cost_base64, $salt, $hash_base64) = ($1, $2, $3, $4);
	$ppr = Authen::Passphrase::PHPass
			->new(cost_base64 => $cost_base64,
			      salt => $salt,
			      hash_base64 => $hash_base64);
	ok $ppr;
	is $ppr->cost_base64, $cost_base64;
	is $ppr->salt, $salt;
	is $ppr->hash_base64, $hash_base64;
	eval { $ppr->passphrase }; isnt $@, "";
	my $crypt_string = "\$P\$".$cost_base64.$salt.$hash_base64;
	is $ppr->as_crypt, $crypt_string;
	is $ppr->as_rfc2307, "{CRYPT}$crypt_string";
	$pprs{$_} = $ppr;
}

foreach my $rightphrase (sort keys %pprs) {
	my $ppr = $pprs{$rightphrase};
	foreach my $passphrase (sort keys %pprs) {
		ok ($ppr->match($passphrase) xor $passphrase ne $rightphrase);
	}
}

1;

__DATA__
6 MVeiwNN2 Z9ajy4aaEmIhSGxgfIMbF/
3 tWgAqczl uHKlOhHYT1V80gVQxgypw. 0
7 Fi0425wg bQvE6tzjOfMPGgENlndLm/ 1
8 EP62lbrh mf/uFiTNicupnEEbqAbK70 foo
9 /.ksQxvw hZ7Sdy4MmLyS15OJjhbrG1 supercalifragilisticexpialidocious