crypted password digests have the salt tacked onto the front in plain text, like this:

$ perl -e'print crypt("glaummer", "es"), $/'
esWBuiGT4AQcA
$
[download]

All you need to do is capture the salt with my $salt = substr $digest, 0, 2; , then crypt away.

Update: Fixed typo in code (s/crupt/crypt/) ++rob_au for the spot.

After Compline,
Zaxo