version 1.56, 2008/09/18 07:04:55 |
version 1.57, 2008/09/19 03:04:34 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.55 2008/09/17 14:47:47 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.56 2008/09/18 06:04:55 andrew Exp $ |
######################################################################## |
######################################################################## |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# |
# |
|
|
my $self = shift; |
my $self = shift; |
my $rec = shift; |
my $rec = shift; |
|
|
# XXX This probably shouldn't croak, just make something up |
if (!defined $rec->{encrypted}) { |
croak "No encrypted content to pack" if !defined $rec->{encrypted}; |
$rec->{encrypted} = $EMPTY; |
|
} |
|
|
if ($self->{version} == 4) { |
if ($self->{version} == 4) { |
if ($rec->{encrypted}) { |
if ($rec->{encrypted}) { |
|
|
} |
} |
|
|
} elsif ($self->{version} == 5) { |
} elsif ($self->{version} == 5) { |
# XXX This probably shouldn't croak, just make something up |
if (!$rec->{ivec}) { |
croak "No ivec" if !$rec->{ivec}; |
$rec->{ivec} = $EMPTY; |
|
} |
|
|
my $field; |
my $field; |
if ($rec->{plaintext}->{0}) { |
if ($rec->{plaintext}->{0}) { |