| … | … | ||
|---|---|---|---|
| 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..999; | 46 | for 0..499; |
| 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 |