Return to example1.pl CVS log

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

I don't know why I thought it worked before.  It seems to work now though, at least I can create and decrypt my own pdbs.  I don't know if I am outside compatible though.

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use lib 'lib';
use Palm::Keyring;

my $pdb = new Palm::Keyring;

use YAML;

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;