version 1.50, 2007/09/13 01:02:52 |
version 1.52, 2007/12/04 03:33:34 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.49 2007/09/12 03:39:22 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.51 2007/09/13 15:46:09 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_04'; |
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') { |