Return to test2.pl CVS log | Up to [local] / palm / Palm-Keyring |
version 1.1, 2006/12/06 18:45:42 | version 1.2, 2006/12/06 20:59:23 | ||
---|---|---|---|
|
|
||
use YAML; | use YAML; | ||
print "Enter: "; | |||
my $Pass = <>; | |||
chomp $Pass; | |||
print "\n"; | |||
$pdb->Load("Keys-Gtkr.PDB"); | $pdb->Load("Keys-Gtkr.PDB"); | ||
#$pdb->Decrypt('12345'); | $pdb->Decrypt($Pass) || die "Couldn't decrypt!"; | ||
print Dump $pdb; | print Dump $pdb; | ||