version 1.50, 2007/09/13 01:02:52 |
version 1.54, 2007/12/05 05:42:29 |
|
|
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.53 2007/12/04 03:34:17 andrew Exp $ |
######################################################################## |
######################################################################## |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# |
# |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
require 5.006_001; |
|
|
use Carp; |
use Carp; |
|
|
use base qw/ Palm::StdAppInfo /; |
use base qw/ Palm::StdAppInfo /; |
|
|
); |
); |
|
|
|
|
our $VERSION = '0.96_04'; |
our $VERSION = '0.96_07'; |
|
|
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') { |