palm/Palm-Keyring/lib/Palm/Keyring.pm - diff

Return to Keyring.pm CVS log

Up to [local] / palm / Palm-Keyring / lib / Palm

version 1.16, 2007/01/30 04:59:55

version 1.18, 2007/01/30 05:18:06

Line 1

package Palm::Keyring;

# $RedRiver: Keyring.pm,v 1.15 2007/01/29 02:49:41 andrew Exp $

# $RedRiver: Keyring.pm,v 1.17 2007/01/30 05:16:16 andrew Exp $

# Perl class for dealing with Keyring for Palm OS databases.

Line 391

use Palm::PDB;

use Palm::Keyring;

my $pdb = new Palm::PDB;

my $pass = 'password';

my $file = 'Keys-Gtkr.pdb';

my $pdb = new Palm::PDB;

$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