8 Mar
2008
8 Mar
'08
11:52 a.m.
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.