version 1.8, 2006/12/06 18:45:42 |
version 1.9, 2007/01/30 04:59:55 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
|
# $RedRiver$ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
|
|
|
use lib 'lib'; |
|
use Palm::Keyring; |
use Palm::Keyring; |
|
|
my $pdb = new Palm::Keyring; |
my $pdb = new Palm::Keyring('12345'); |
|
|
use YAML; |
my $rec = $pdb->append_Record(); |
|
|
my $new_record = $pdb->append_Record(); |
my $acct = { |
|
name => 'Test3', |
$new_record->{plaintext} = { |
account => 'anothertestaccount', |
name => 'Test3', |
password => 'adifferentmypass', |
account => 'anothertestaccount', |
notes => 'now that really roxorZ!', |
password => 'adifferentmypass', |
|
description => 'now that really roxorZ!', |
|
}; |
}; |
|
|
$pdb->Encrypt('12345'); |
$pdb->Encrypt($rec, $acct); |
|
|
$pdb->Write("Keys-GtkrNEW.PDB"); |
$pdb->Write("Keys-Gtkr-example.PDB"); |
|
|
print Dump $pdb; |
|
|
|