version 1.1, 2006/12/06 18:45:42 |
version 1.3, 2007/01/30 04:59:55 |
|
|
use diagnostics; |
use diagnostics; |
|
|
use lib 'lib'; |
use lib 'lib'; |
|
use Palm::PDB; |
use Palm::Keyring; |
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; |
|
} |