version 1.16, 2007/01/30 04:59:55 |
version 1.17, 2007/01/30 05:16:16 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
|
|
# $RedRiver: Keyring.pm,v 1.15 2007/01/29 02:49:41 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.16 2007/01/30 04:59:55 andrew Exp $ |
# |
# |
# Perl class for dealing with Keyring for Palm OS databases. |
# Perl class for dealing with Keyring for Palm OS databases. |
# |
# |
|
|
|
|
use Palm::PDB; |
use Palm::PDB; |
use Palm::Keyring; |
use Palm::Keyring; |
|
|
|
my $pass = 'password'; |
my $pdb = new Palm::PDB; |
my $pdb = new Palm::PDB; |
$pdb->Load($file); |
$pdb->Load($file); |
foreach my $rec (@{ $pdb->{'records'} }) { |
|
print "$rec->{'plaintext'}->{'name'}\n"; |
foreach (0..$#{ $pdb->{'records'} }) { |
|
next if $_ = 0; # skip the password record |
|
my $rec = $pdb->{'records'}->[$_]; |
|
my $acct = $pdb->Decrypt($rec, $pass); |
|
print $rec->{'data'}, ' - ', $acct->{'account'}, "\n"; |
} |
} |
$pdb->Decrypt($password); |
|
# do something with the decrypted parts |
|
|
|
=head1 SUBROUTINES/METHODS |
=head1 SUBROUTINES/METHODS |
|
|