version 1.32, 2007/02/19 03:33:56 |
version 1.33, 2007/02/21 01:26:07 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.31 2007/02/19 02:55:35 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.32 2007/02/19 03:33:56 andrew Exp $ |
######################################################################## |
######################################################################## |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# |
# |
|
|
|
|
my $digest = md5($msg); |
my $digest = md5($msg); |
|
|
if (! $data eq $salt . $digest ) { |
if ($data ne $salt . $digest ) { |
return; |
return; |
} |
} |
|
|