… | … | ||
---|---|---|---|
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 |