Authen-Passphrase

 view release on metacpan or  search on metacpan

lib/Authen/Passphrase/LANManager.pm  view on Meta::CPAN

=head1 NAME

Authen::Passphrase::LANManager - passphrases using the LAN Manager
hash algorithm

=head1 SYNOPSIS

	use Authen::Passphrase::LANManager;

	$ppr = Authen::Passphrase::LANManager->new(
		hash_hex => "855c3697d9979e78ac404c4ba2c66533");

	$ppr = Authen::Passphrase::LANManager->new(
		passphrase => "passphrase");

	$ppr = Authen::Passphrase::LANManager->from_rfc2307(
		"{LANMAN}855c3697d9979e78ac404c4ba2c66533");

	$hash = $ppr->hash;
	$hash_hex = $ppr->hash_hex;

	$ppr0 = $ppr->first_half;
	$ppr1 = $ppr->second_half;

	if($ppr->match($passphrase)) { ...

	$userPassword = $ppr->as_rfc2307;

t/lanman.t  view on Meta::CPAN

use Test::More tests => 75;

BEGIN { use_ok "Authen::Passphrase::LANManager"; }

my $ppr = Authen::Passphrase::LANManager
		->new(passphrase => "wibble");
ok $ppr;
is $ppr->hash, "\xfa\x19\x61\x43\x0a\x96\xf9\xbe".
		"\xaa\xd3\xb4\x35\xb5\x14\x04\xee";
is $ppr->hash_hex, "fa1961430a96f9beaad3b435b51404ee";

$ppr = Authen::Passphrase::LANManager
		->new(passphrase => "wibblewobble");
ok $ppr;
is $ppr->hash_hex, "8ff3acd71203e5ad12f825806ba3a168";

$ppr = Authen::Passphrase::LANManager
	->from_rfc2307("{LANMAN}f67023e95cc9dc1CAad3b435b51404ee");
ok $ppr;
is $ppr->hash_hex, "f67023e95cc9dc1caad3b435b51404ee";

$ppr = Authen::Passphrase::LANManager
	->from_rfc2307("{LANM}f67023e95cc9dc1CAad3b435b51404ee");
ok $ppr;
is $ppr->hash_hex, "f67023e95cc9dc1caad3b435b51404ee";

my %pprs;
my $i = 0;
while(<DATA>) {
	chomp;
	s/([^ \n]+) *//;
	my $hash_hex = $1;
	my $hash = pack("H*", $hash_hex);
	$ppr = Authen::Passphrase::LANManager
			->new(($i++ & 1) ? (hash_hex => $hash_hex) :

t/lanman.t  view on Meta::CPAN

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__
aad3b435b51404eeaad3b435b51404ee
25AD3B83FA6627C7AAD3B435B51404EE 0
C2265B23734E0DACAAD3B435B51404EE 1
5bfafbebfb6a0942aad3b435b51404ee foo
f0e963830c0156217887ed3fba9a7ed5 supercalifragi

t/lanmanhalf.t  view on Meta::CPAN

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__
aad3b435b51404ee
25AD3B83FA6627C7 0
C2265B23734E0DAC 1
5bfafbebfb6a0942 foo
f0e963830c015621 superca