version 1.1, 2006/01/26 20:54:19 |
version 1.11, 2007/09/12 04:59:37 |
|
|
#!/usr/bin/perl
|
#!/usr/bin/perl |
use strict;
|
# $RedRiver: example1.pl,v 1.10 2007/08/10 04:13:31 andrew Exp $ |
use warnings;
|
use strict; |
use diagnostics;
|
use warnings; |
|
|
use Palm::PDB;
|
use Palm::Keyring; |
use lib 'lib';
|
|
use Palm::Keyring;
|
my $pdb = new Palm::Keyring('12345'); |
|
|
my $pdb = new Palm::PDB;
|
my $rec = $pdb->append_Record(); |
|
|
use YAML;
|
$rec->{plaintext} = { |
|
0 => { data => 'Test3' }, |
#print Dumper $pdb
|
1 => { data => 'anothertestaccount' }, |
|
2 => { data => 'adifferentmypass' }, |
$pdb->Load("Keys-GtkrNEW.PDB");
|
255 => { data => 'now that really roxorZ!' }, |
$pdb->Decrypt('12345');
|
}; |
|
|
#--------------------------------------------------
|
$pdb->Encrypt($rec); |
# my $new_record = $pdb->append_Record();
|
|
#
|
$pdb->Write("Keys-Gtkr-example.PDB"); |
# $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;
|
|
|
|