Revision 1c38bb41
Von Sven Schöling vor fast 13 Jahren hinzugefügt
SL/Auth/Password.pm | ||
---|---|---|
20 | 20 |
return '{' . $params{algorithm} . '}' . Digest::SHA::sha256_hex($salt . $params{password}); |
21 | 21 |
|
22 | 22 |
} elsif ($params{fallback_algorithm}) { |
23 |
return $class->hash_password(%params, algorithm => $params{fallback_algorithm});
|
|
23 |
return $class->hash(%params, algorithm => $params{fallback_algorithm}); |
|
24 | 24 |
|
25 | 25 |
} else { |
26 | 26 |
die 'Digest::SHA is not available'; |
... | ... | |
34 | 34 |
return '{' . $params{algorithm} . '}' . Digest::SHA1::sha1_hex($salt . $params{password}); |
35 | 35 |
|
36 | 36 |
} elsif ($params{fallback_algorithm}) { |
37 |
return $class->hash_password(%params, algorithm => $params{fallback_algorithm});
|
|
37 |
return $class->hash(%params, algorithm => $params{fallback_algorithm}); |
|
38 | 38 |
|
39 | 39 |
} else { |
40 | 40 |
die 'Neither Digest::SHA nor Digest::SHA1 is available'; |
Auch abrufbar als: Unified diff
Fallback in SL/Auth/Password war nicht korrekt