![]() ![]() | ![]() |
File: [local] / palm / Palm-Keyring / examples / example1.pl (download)
Revision 1.1, Thu Jan 26 20:54:19 2006 UTC (18 years, 7 months ago) by andrew
initial import. I am actually hoping to DO something with this, cuZ the java one SUX! |
#!/usr/bin/perl use strict; use warnings; use diagnostics; use Palm::PDB; use lib 'lib'; use Palm::Keyring; my $pdb = new Palm::PDB; use YAML; #print Dumper $pdb $pdb->Load("Keys-GtkrNEW.PDB"); $pdb->Decrypt('12345'); #-------------------------------------------------- # 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;