![]() ![]() | ![]() |
File: [local] / palm / Palm-Keyring / examples / example1.pl (download)
Revision 1.6, Fri Nov 10 04:21:17 2006 UTC (17 years, 7 months ago) by andrew
get rid of the "defined" for some password checks that we may not need and fix spacing for the crypt sub |
#!/usr/bin/perl use strict; use warnings; use diagnostics; use lib 'lib'; use Palm::Keyring; my $pdb = new Palm::Keyring; use YAML; #print Dumper $pdb $pdb->Load("Keys-GtkrNEW.PDB"); #$pdb->Load("Keys-Gtkr.PDB"); #$pdb->Load("k:/working/Keys-Gtkr.PDB"); $pdb->Decrypt('Password'); #-------------------------------------------------- # my $new_record = $pdb->append_Record(); # # $new_record->{plaintext} = { # name => 'Test3', # account => 'anothertestaccount', # password => 'adifferentmypass', # description => 'now that really roxorZ!', # }; # #$pdb->Encrypt('12345'); # #$pdb->Write("Keys-GtkrNEW.PDB"); #-------------------------------------------------- print Dump $pdb;