Return to test2.pl CVS log

Up to [local] / palm / Palm-Keyring

Switch to decrypting one record at a time when requested.  That leads to more tests so that's kewl :-)

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use lib 'lib';
use Palm::PDB;
use Palm::Keyring;
use YAML;

my $pdb = new Palm::PDB;

$pdb->Load("Keys-Gtkr.pdb") || die "Unable to load PDB"; 

#print Dump $pdb->{'records'};

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;
}