… | … | ||
---|---|---|---|
41 | my $pass = substr shift, 0, 512 / 8; | 41 | my $pass = substr shift, 0, 512 / 8; |
42 | 42 | ||
43 | my $hash; # first iteration is just dgst $pass | 43 | my $hash; # first iteration is just dgst $pass |
44 | 44 | ||
45 | $hash = dgst $hash ^ $pass | 45 | $hash = dgst $hash ^ $pass |
46 | for 0..9999; | 46 | for 0..999; |
47 | 47 | ||
48 | $hash | 48 | $hash |
49 | } | 49 | } |
50 | 50 | ||
51 | =item Deliantra::Util::auth_pw $hash, $nonce1, $nonce2 | 51 | =item Deliantra::Util::auth_pw $hash, $nonce1, $nonce2 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |