palm/Palm-Keyring/test2.pl - diff

Return to test2.pl CVS log

Up to [local] / palm / Palm-Keyring

-version 1.1, 2006/12/06 18:45:42
+version 1.3, 2007/01/30 04:59:55
 Line 4
 Line 4
 Line 4
  use diagnostics;
  use lib 'lib';
+ use Palm::PDB;
  use Palm::Keyring;
+ use YAML;
- my $pdb = new Palm::Keyring;
+ my $pdb = new Palm::PDB;
- use YAML;
+ $pdb->Load("Keys-Gtkr.pdb") || die "Unable to load PDB";
- $pdb->Load("Keys-Gtkr.PDB");
+ #print Dump $pdb->{'records'};
- #$pdb->Decrypt('12345');
- print Dump $pdb;
+ print "Enter: ";
+ my $Pass = <>;
+ chomp $Pass;
+ print "\n";
+ foreach my $rec (@{ $pdb->{'records'} }) {
+     next unless $rec->{'encrypted'};
+         my $acct = $pdb->Decrypt($rec, $Pass) || die "Couldn't decrypt!";
+         print Dump $rec, $acct;
+ }