| … | … | ||
|---|---|---|---|
| 140 | } | 140 | } |
| 141 | 141 | ||
| 142 | sub compare_password($$) { | 142 | sub compare_password($$) { |
| 143 | my ($pass, $token) = @_; | 143 | my ($pass, $token) = @_; |
| 144 | 144 | ||
| 145 | if ($token =~ /\!(.*)/) { | 145 | if ($token =~ /!!(.*)/) { |
| 146 | return +(substr $pass, 0, 8) eq pack "H*", $1; | ||
| 147 | } elsif ($token =~ /!(.*)/) { | ||
| 146 | return $pass eq pack "H*", $1; | 148 | return $pass eq pack "H*", $1; |
| 147 | } else { | 149 | } else { |
| 148 | return $token eq crypt $pass, $token; | 150 | return $token eq crypt $pass, $token; |
| 149 | } | 151 | } |
| 150 | } | 152 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |