| … | … | ||
|---|---|---|---|
| 45 | 45 | ||
| 46 | Authenticates a (hashed) password using the given nonce. | 46 | Authenticates a (hashed) password using the given nonce. |
| 47 | 47 | ||
| 48 | =cut | 48 | =cut |
| 49 | 49 | ||
| 50 | sub auth_pw($$) { | 50 | sub auth_pw($$$) { |
| 51 | my ($hash, $nonce1, $nonce2) = @_; | 51 | my ($hash, $nonce1, $nonce2) = @_; |
| 52 | 52 | ||
| 53 | # simple HMAC application | 53 | # simple HMAC application |
| 54 | Digest::SHA3::sha3_512 $nonce1 . Digest::SHA3::sha3_512 $nonce2 . $hash | 54 | Digest::SHA3::sha3_512 $nonce1 . Digest::SHA3::sha3_512 $nonce2 . $hash |
| 55 | } | 55 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |