- } elsif ($params{algorithm} =~ m/^SHA1/) {
- return '{' . $params{algorithm} . '}' . Digest::SHA::sha1_hex($salt . $params{password});
-
- } elsif ($params{algorithm} =~ m/^MD5/) {
- return '{' . $params{algorithm} . '}' . Digest::MD5::md5_hex($salt . $params{password});
-
- } elsif ($params{algorithm} eq 'CRYPT') {
- return '{CRYPT}' . crypt($params{password}, substr($params{login}, 0, 2));
-