CPAN::Groonga

sh_base64, "vNEA50Bnj/q1";

eval { Authen::Passphrase::EggdropBlowfish->new(passphrase => ""); };
isnt $@, "";

my %pprs;
my $i = 0;
while(<DATA>) {
	chomp;
	s/([^ \n]+) *//;
	my $hash_base64 = $1;
	$

r->hash_base64, $hash_base64;
	eval { $ppr->passphrase }; isnt $@, "";
	eval { $ppr->as_crypt }; isnt $@, "";
	eval { $ppr->as_rfc2307 }; isnt $@, "";
	$pprs{$_} = $ppr;
}

foreach my $rightphrase (so

...."); };
isnt $@, "";

$ppr1 = Authen::Passphrase::RejectAll->from_rfc2307("{CrYpT}*");
is $ppr1, $ppr;

eval { Authen::Passphrase::RejectAll->from_rfc2307("{CrYpT}............."); };
isnt $@, "";

assphrase("", qw(0 1 foo supercalifragilisticexpialidocious)) {
	ok !$ppr->match($passphrase);
}

eval { $ppr->passphrase };
isnt $@, "";

is $ppr->as_crypt, "*";
is $ppr->as_rfc2307, "{CRYPT}*";

1;

	is $ppr->hash_base64, $hash;
	eval { $ppr->passphrase }; isnt $@, "";
	eval { $ppr->as_crypt }; isnt $@, "";
	eval { $ppr->as_rfc2307 }; isnt $@, "";
	$pprs{$_} = $ppr;
}

foreach my $rightphrase (so

	is $ppr->hash_base64, $hash;
	eval { $ppr->passphrase }; isnt $@, "";
	eval { $ppr->as_crypt }; isnt $@, "";
	eval { $ppr->as_rfc2307 }; isnt $@, "";
	$pprs{$_} = $ppr;
}

foreach my $rightphrase (so

_hex);
	is $ppr->hash, $hash;
	eval { $ppr->passphrase }; isnt $@, "";
	eval { $ppr->as_crypt }; isnt $@, "";
	eval { $ppr->as_rfc2307 }; isnt $@, "";
	$pprs{$_} = $ppr;
}

foreach my $rightphrase (so

_hex);
	is $ppr->hash, $hash;
	eval { $ppr->passphrase }; isnt $@, "";
	eval { $ppr->as_crypt }; isnt $@, "";
	eval { $ppr->as_rfc2307 }; isnt $@, "";
	$pprs{$_} = $ppr;
}

foreach my $rightphrase (so

s $ppr->hash_base64, $hash;
	eval { $ppr->passphrase };
	isnt $@, "";
	eval { $ppr->as_crypt };
	isnt $@, "";
	eval { $ppr->as_rfc2307 };
	isnt $@, "";
	$pprs{$_} = $ppr;
}

foreach my $rightphrase (s

se::VMSPurdy
			->new(username => "jrandom", salt => 1234,
			      passphrase => $badpass);
	};
	isnt $@, "";
}

my %pprs;
while(<DATA>) {
	chomp;
	s/([^ \n]+) ([^ \n]+) ([^ \n]+) ([^ \n]+) *//;
	my(

$ppr->hash, pack("H*", $hash_hex);
	is $ppr->hash_hex, uc($hash_hex);
	eval { $ppr->passphrase }; isnt $@, "";
	$pprs{$_} = $ppr;
}

foreach my $rightphrase (sort keys %pprs) {
	my $ppr = $pprs{$right

	is $ppr->second_half->hash, substr($hash, 8, 8);
	eval { $ppr->passphrase }; isnt $@, "";
	eval { $ppr->as_crypt }; isnt $@, "";
	is $ppr->as_rfc2307, "{LANMAN}".lc($hash_hex);
	$pprs{$_} = $ppr;
}

 $ppr->hash_hex, $hash_hex;
	is $ppr->hash, $hash;
	eval { $ppr->passphrase }; isnt $@, "";
	eval { $ppr->as_crypt }; isnt $@, "";
	is $ppr->as_rfc2307, "{SMD5}".encode_base64($hash.$salt, "");
	$pprs

 $ppr->hash_hex, $hash_hex;
	is $ppr->hash, $hash;
	eval { $ppr->passphrase }; isnt $@, "";
	eval { $ppr->as_crypt }; isnt $@, "";
	is $ppr->as_rfc2307, "{SSHA}".encode_base64($hash.$salt, "");
	$pprs

 247101;
is $ppr->nrounds_base64_4, "xIw.";
is $ppr->salt, 8089638;
eval { $ppr->salt_base64_2 }; isnt $@, "";
is $ppr->salt_base64_4, "a.rS";
is $ppr->hash, "\x25\x63\x4a\xf4\x8c\x7c\x51\x67";
is $pp

968263;
is $ppr->nrounds_base64_4, "5e/a";
is $ppr->salt, 10354060;
eval { $ppr->salt_base64_2 }; isnt $@, "";
is $ppr->salt_base64_4, "AqTb";
is $ppr->hash, "\x86\x8d\xe9\xf0\x5e\x4f\x8a\x82";
is $pp

...."); };
isnt $@, "";

$ppr1 = Authen::Passphrase::AcceptAll->from_rfc2307("{CrYpT}");
is $ppr1, $ppr;

eval { Authen::Passphrase::AcceptAll->from_rfc2307("{CrYpT}............."); };
isnt $@, "";

f

pr;
is $ppr->passphrase, "womble";
eval { Authen::Passphrase::Clear->from_rfc2307("{CRYPT}*"); };
isnt $@, "";

my @test_phrases = ("", qw(0 1 foo supercalifragilisticexpialidocious));

foreach my $ri

		ok ($ppr->match($passphrase) xor $passphrase ne $rightphrase);
	}
	is $ppr->passphrase, $rightphrase;
	eval { $ppr->as_crypt };
	isnt $@, "";
	is $ppr->as_rfc2307, "{CLEARTEXT}".$rightphrase;
}

1;

$ppr->hash_hex, lc($hash_hex);
	is $ppr->hash, pack("H*", $hash_hex);
	eval { $ppr->passphrase }; isnt $@, "";
	is $ppr->as_rfc2307, "{NS-MTA-MD5}".lc($hash_hex).$salt;
	$pprs{$_} = $ppr;
}

foreach m

s, 25;
	is $ppr->salt_base64_2, $salt;
	is $ppr->hash_base64, $hash;
	eval { $ppr->passphrase };
	isnt $@, "";
	is $ppr->as_crypt, $salt.$hash;
	is $ppr->as_rfc2307, "{CRYPT}".$salt.$hash;
	$pprs{$_} 

t_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_s

	ok $ppr;
	is $ppr->hash_hex, lc($hash_hex);
	is $ppr->hash, $hash;
	eval { $ppr->passphrase };
	isnt $@, "";
	is $ppr->as_crypt, "\$3\$\$".lc($hash_hex);
	is $ppr->as_rfc2307, "{MSNT}".lc($hash_hex)

$ppr->salt_base64, $salt_base64;
	is $ppr->hash_base64, $hash_base64;
	eval { $ppr->passphrase }; isnt $@, "";
	my $crypt_string = "\$2".($knul ? "a" : "")."\$0".$cost."\$".
			   $salt_base64.$hash_b

ash);
	ok $ppr;
	is $ppr->salt, $salt;
	is $ppr->hash_base64, $hash;
	eval { $ppr->passphrase };
	isnt $@, "";
	is $ppr->as_crypt, "\$1\$".$salt."\$".$hash;
	is $ppr->as_rfc2307, "{CRYPT}\$1\$".$salt.