[Dovecot] dovecotpw

Hi

I would like to simulate dovecot's dovecotpw with a perl script

I tried / used

use Crypt::SaltedHash; my $csh = Crypt::SaltedHash->new(algorithm => 'SHA-1'); $csh->add($passwd_string); my $salted = $csh->generate;

also

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' ,'');

But it doesnt work.

Basically what im doing is authenticating against a mysql db.

If i do a dovecotpw -s SSHA -p password

and update the DB, then the mail client authenticates perfectly.

If anyone can help, it would be most appreciated.

Kind Regards Brent Clark