Return to example1.pl CVS log | Up to [local] / palm / Palm-Keyring / examples |
File: [local] / palm / Palm-Keyring / examples / example1.pl (download)
Revision 1.11, Wed Sep 12 03:59:37 2007 UTC (16 years, 9 months ago) by andrew
fix the examples so they work. |
#!/usr/bin/perl # $RedRiver: example1.pl,v 1.10 2007/08/10 04:13:31 andrew Exp $ use strict; use warnings; use Palm::Keyring; my $pdb = new Palm::Keyring('12345'); my $rec = $pdb->append_Record(); $rec->{plaintext} = { 0 => { data => 'Test3' }, 1 => { data => 'anothertestaccount' }, 2 => { data => 'adifferentmypass' }, 255 => { data => 'now that really roxorZ!' }, }; $pdb->Encrypt($rec); $pdb->Write("Keys-Gtkr-example.PDB");