version 1.51, 2007/09/13 16:46:09 |
version 1.53, 2007/12/04 03:34:17 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.50 2007/09/13 00:02:52 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. |
# |
# |
|
|
); |
); |
|
|
|
|
our $VERSION = '0.96_05'; |
our $VERSION = '0.96_06'; |
|
|
sub new |
sub new |
{ |
{ |
|
|
|
|
my $plaintext; |
my $plaintext; |
foreach my $k (keys %{ $new }) { |
foreach my $k (keys %{ $new }) { |
|
next if $new->{$k}->{label_id} == 0; |
$plaintext .= _pack_field($new->{$k}); |
$plaintext .= _pack_field($new->{$k}); |
} |
} |
|
$plaintext .= chr(0xff) x 2; |
|
|
my $encrypted; |
my $encrypted; |
if ($c->{name} eq 'None') { |
if ($c->{name} eq 'None') { |