version 1.37, 2007/02/23 02:34:01 |
version 1.38, 2007/02/23 02:54:49 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.36 2007/02/22 05:16:04 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.37 2007/02/23 02:34:01 andrew Exp $ |
######################################################################## |
######################################################################## |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# |
# |
|
|
$packed .= $NULL; |
$packed .= $NULL; |
} |
} |
} else { |
} else { |
my $packstr = "n1 c1 c1 x1"; |
my $packstr = "n1 C1 C1 x1"; |
$packed = pack $packstr, 0, 0, 0; |
$packed = pack $packstr, 0, 0, 0; |
} |
} |
|
|
|
|
print ' - ', $acct->{account}; |
print ' - ', $acct->{account}; |
} else { |
} else { |
foreach my $a (@{ $acct }) { |
foreach my $a (@{ $acct }) { |
if ($a->{type} eq 'account') { |
if ($a->{label} eq 'account') { |
print ' - ', $a->{data}; |
print ' - ', $a->{data}; |
last; |
last; |
} |
} |
|
|
$pdb = new Palm::Keyring({ key1 => value1, key2 => value2 }); |
$pdb = new Palm::Keyring({ key1 => value1, key2 => value2 }); |
$pdb = new Palm::Keyring( -key1 => value1, -key2 => value2); |
$pdb = new Palm::Keyring( -key1 => value1, -key2 => value2); |
|
|
Supported options |
=over |
|
|
|
=item Supported options |
|
|
=over |
=over |
|
|
=item password |
=item password |
|
|
|
|
=back |
=back |
|
|
|
=back |
|
|
For v5 databases there are some additional appinfo fields set. |
For v5 databases there are some additional appinfo fields set. |
|
|
$pdb->{appinfo} = { |
$pdb->{appinfo} = { |
|
|
|
|
Pass in the alias of the crypt to use, or the index. |
Pass in the alias of the crypt to use, or the index. |
|
|
|
These only make sense for v5 databases. |
|
|
This is a function, not a method. |
This is a function, not a method. |
|
$cipher can be 0, 1, 2, 3, None, DES_EDE3, AES128 or AES256. |
|
|
my $c = Palm::Keyring::crypt($cipher); |
my $c = Palm::Keyring::crypt($cipher); |
|
|