version 1.52, 2007/12/04 03:33:34 |
version 1.53, 2007/12/04 03:34:17 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.51 2007/09/13 15:46:09 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.52 2007/12/04 03:33:34 andrew Exp $ |
######################################################################## |
######################################################################## |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# |
# |
|
|
next if $new->{$k}->{label_id} == 0; |
next if $new->{$k}->{label_id} == 0; |
$plaintext .= _pack_field($new->{$k}); |
$plaintext .= _pack_field($new->{$k}); |
} |
} |
#$plaintext .= chr(0xff) x 2; |
$plaintext .= chr(0xff) x 2; |
|
|
my $encrypted; |
my $encrypted; |
if ($c->{name} eq 'None') { |
if ($c->{name} eq 'None') { |