palm/Palm-Keyring/examples/example1.pl - diff

Return to example1.pl CVS log

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

version 1.10, 2007/08/10 05:13:31

version 1.11, 2007/09/12 04:59:37

Line 1

#!/usr/bin/perl

# $RedRiver: example1.pl,v 1.9 2007/01/30 04:59:55 andrew Exp $

# $RedRiver: example1.pl,v 1.10 2007/08/10 04:13:31 andrew Exp $

use strict;

use warnings;

Line 9

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

my $acct = {

$rec->{plaintext} = {

0 => { data => 'Test3' },

1 => { data => 'anothertestaccount' },

2 => { data => 'adifferentmypass' },

255 => { data => 'now that really roxorZ!' },

};

$pdb->Encrypt($rec, $acct);

$pdb->Encrypt($rec);

$pdb->Write("Keys-Gtkr-example.PDB");