File: [local] / palm / Palm-Keyring / examples / example1.pl (download)
Revision 1.10, Fri Aug 10 04:13:31 2007 UTC (16 years, 11 months ago) by andrew
Branch: MAIN
Changes since 1.9: +5 -5 lines
Switch to the forward looking data presentation and fake out the v4 databases.
Should make writing stuff a LOT easier.
|
#!/usr/bin/perl
# $RedRiver: example1.pl,v 1.9 2007/01/30 04:59:55 andrew Exp $
use strict;
use warnings;
use Palm::Keyring;
my $pdb = new Palm::Keyring('12345');
my $rec = $pdb->append_Record();
my $acct = {
0 => { data => 'Test3' },
1 => { data => 'anothertestaccount' },
2 => { data => 'adifferentmypass' },
255 => { data => 'now that really roxorZ!' },
};
$pdb->Encrypt($rec, $acct);
$pdb->Write("Keys-Gtkr-example.PDB");