On Sat, 2008-03-08 at 11:27 +0200, Brent Clark wrote:
> use Digest::SHA1;
> use MIME::Base64;
> $ctx = Digest::SHA1->new;
> $ctx->add($passwd_string);
> $ctx->add('salt');
> my $salted = '{SSHA}' . encode_base64($ctx->digest . 'salt' ,'');
This looks correct, and it also worked when I tried it.
$passwd_string = "pass" produces:
{SSHA}EfVjnyJSUVXLC0NXPuQhKDjHjYdzYWx0
Which worked just fine when logging in.
signature.asc
Description: This is a digitally signed message part
