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