Lines Matching refs:ppr

8 my $ppr = Authen::Passphrase::VMSPurdy
11 ok $ppr;
12 is $ppr->algorithm, "PURDY_S";
13 is $ppr->username, "JRANDOM";
14 is $ppr->salt, 1234;
15 is $ppr->salt_hex, "D204";
16 is $ppr->hash, "\x2c\xef\x67\x47\x77\xa5\x48\x80";
17 is $ppr->hash_hex, "2CEF674777A54880";
18 is $ppr->as_crypt, '$VMS3$D2042CEF674777A54880JRANDOM';
19 is $ppr->as_rfc2307, '{CRYPT}$VMS3$D2042CEF674777A54880JRANDOM';
21 $ppr = Authen::Passphrase::VMSPurdy
25 ok $ppr;
26 is $ppr->algorithm, "PURDY";
27 is $ppr->username, "JRANDOM";
28 is $ppr->salt, 1234;
29 is $ppr->salt_hex, "D204";
30 is $ppr->hash, "\xee\xf2\xac\x3d\xe0\xd9\x86\xa7";
31 is $ppr->hash_hex, "EEF2AC3DE0D986A7";
32 is $ppr->as_crypt, '$VMS1$D204EEF2AC3DE0D986A7JRANDOM';
33 is $ppr->as_rfc2307, '{CRYPT}$VMS1$D204EEF2AC3DE0D986A7JRANDOM';
35 $ppr = Authen::Passphrase::VMSPurdy
39 ok $ppr;
40 is $ppr->algorithm, "PURDY_V";
41 is $ppr->username, "JRANDOM";
42 is $ppr->salt, 1234;
43 is $ppr->salt_hex, "D204";
44 is $ppr->hash, "\xe3\x76\xee\x1b\x7a\xfa\xd4\x64";
45 is $ppr->hash_hex, "E376EE1B7AFAD464";
46 is $ppr->as_crypt, '$VMS2$D204E376EE1B7AFAD464JRANDOM';
47 is $ppr->as_rfc2307, '{CRYPT}$VMS2$D204E376EE1B7AFAD464JRANDOM';
49 $ppr = Authen::Passphrase::VMSPurdy
53 ok $ppr;
54 is $ppr->algorithm, "PURDY_S";
55 is $ppr->username, "JRANDOM";
56 is $ppr->salt, 1234;
57 is $ppr->salt_hex, "D204";
58 is $ppr->hash, "\x2c\xef\x67\x47\x77\xa5\x48\x80";
59 is $ppr->hash_hex, "2CEF674777A54880";
60 is $ppr->as_crypt, '$VMS3$D2042CEF674777A54880JRANDOM';
61 is $ppr->as_rfc2307, '{CRYPT}$VMS3$D2042CEF674777A54880JRANDOM';
63 $ppr = Authen::Passphrase::VMSPurdy
66 is $ppr->algorithm, "PURDY_S";
67 is $ppr->username, "JRANDOM";
68 ok $ppr->salt >= 0 && $ppr->salt < 65536;
69 like $ppr->salt_hex, qr/\A[0-9A-F]{4}\z/;
70 is length($ppr->hash), 8;
71 like $ppr->hash_hex, qr/\A[0-9A-F]{16}\z/;
72 ok $ppr->match("wibble");
74 $ppr = Authen::Passphrase::VMSPurdy
76 ok $ppr;
77 is $ppr->algorithm, "PURDY_S";
78 is $ppr->username, "ORINOCO";
79 is $ppr->salt, 15828;
80 is $ppr->salt_hex, "D43D";
81 is $ppr->hash, "\x6e\x82\xb5\x77\xfb\xb9\xcf\xd4";
82 is $ppr->hash_hex, "6E82B577FBB9CFD4";
83 is $ppr->as_crypt, '$VMS3$D43D6E82B577FBB9CFD4ORINOCO';
84 is $ppr->as_rfc2307, '{CRYPT}$VMS3$D43D6E82B577FBB9CFD4ORINOCO';
86 $ppr = Authen::Passphrase::VMSPurdy
88 ok $ppr;
89 is $ppr->algorithm, "PURDY_S";
90 is $ppr->username, "ORINOCO";
91 is $ppr->salt, 15828;
92 is $ppr->salt_hex, "D43D";
93 is $ppr->hash, "\x6e\x82\xb5\x77\xfb\xb9\xcf\xd4";
94 is $ppr->hash_hex, "6E82B577FBB9CFD4";
95 is $ppr->as_crypt, '$VMS3$D43D6E82B577FBB9CFD4ORINOCO';
96 is $ppr->as_rfc2307, '{CRYPT}$VMS3$D43D6E82B577FBB9CFD4ORINOCO';
112 	$ppr = Authen::Passphrase::VMSPurdy
115 	ok $ppr;
116 	is $ppr->algorithm, $algorithm;
117 	is $ppr->username, uc($username);
118 	is $ppr->salt, $salt;
119 	is $ppr->hash, pack("H*", $hash_hex);
120 	is $ppr->hash_hex, uc($hash_hex);
121 	eval { $ppr->passphrase }; isnt $@, "";
122 	$pprs{$_} = $ppr;
126 	my $ppr = $pprs{$rightphrase};
128 		ok ($ppr->match($passphrase) xor $passphrase ne $rightphrase);