|
|
|
@ -76,21 +76,27 @@ sub get_random_dpapimk_salt
|
|
|
|
|
# Thanks to Jochen Hoenicke <hoenicke@gmail.com>
|
|
|
|
|
# (one of the authors of Palm Keyring)
|
|
|
|
|
# for these next two subs.
|
|
|
|
|
|
|
|
|
|
sub dpapi_pbkdf2
|
|
|
|
|
{
|
|
|
|
|
my ($password, $salt, $iter, $keylen, $prf) = @_;
|
|
|
|
|
my ($k, $t, $u, $ui, $i);
|
|
|
|
|
|
|
|
|
|
$t = "";
|
|
|
|
|
|
|
|
|
|
for ($k = 1; length ($t) < $keylen; $k++)
|
|
|
|
|
{
|
|
|
|
|
$u = $ui = &$prf ($salt . pack ('N', $k), $password);
|
|
|
|
|
|
|
|
|
|
for ($i = 1; $i < $iter; $i++)
|
|
|
|
|
{
|
|
|
|
|
# modification to fit Microsoft
|
|
|
|
|
# weird pbkdf2 implementation...
|
|
|
|
|
|
|
|
|
|
$ui = &$prf ($u, $password);
|
|
|
|
|
$u ^= $ui;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$t .= $u;
|
|
|
|
|
}
|
|
|
|
|
return substr ($t, 0, $keylen);
|
|
|
|
|