Return to example1.pl CVS log

Up to [local] / palm / Palm-Keyring / examples

Switch to decrypting one record at a time when requested.  That leads to more tests so that's kewl :-)

#!/usr/bin/perl
# $RedRiver$
use strict;
use warnings;

use Palm::Keyring;

my $pdb = new Palm::Keyring('12345');

my $rec = $pdb->append_Record();

my $acct = {
	name      => 'Test3',
	account   => 'anothertestaccount',
	password  => 'adifferentmypass',
	notes     => 'now that really roxorZ!',
};

$pdb->Encrypt($rec, $acct);
 
$pdb->Write("Keys-Gtkr-example.PDB");