Return to test2.pl CVS log | Up to [local] / palm / Palm-Keyring |
File: [local] / palm / Palm-Keyring / test2.pl (download)
Revision 1.2, Wed Dec 6 20:59:23 2006 UTC (17 years, 7 months ago) by andrew
ask for a password instead of hardcoding |
#!/usr/bin/perl use strict; use warnings; use diagnostics; use lib 'lib'; use Palm::Keyring; my $pdb = new Palm::Keyring; use YAML; print "Enter: "; my $Pass = <>; chomp $Pass; print "\n"; $pdb->Load("Keys-Gtkr.PDB"); $pdb->Decrypt($Pass) || die "Couldn't decrypt!"; print Dump $pdb;