version 1.8, 2006/12/06 18:45:42 |
version 1.11, 2007/09/12 04:59:37 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
|
# $RedRiver: example1.pl,v 1.10 2007/08/10 04:13:31 andrew Exp $ |
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(); |
$rec->{plaintext} = { |
|
0 => { data => 'Test3' }, |
$new_record->{plaintext} = { |
1 => { data => 'anothertestaccount' }, |
name => 'Test3', |
2 => { data => 'adifferentmypass' }, |
account => 'anothertestaccount', |
255 => { data => 'now that really roxorZ!' }, |
password => 'adifferentmypass', |
|
description => 'now that really roxorZ!', |
|
}; |
}; |
|
|
$pdb->Encrypt('12345'); |
$pdb->Encrypt($rec); |
|
|
$pdb->Write("Keys-GtkrNEW.PDB"); |
$pdb->Write("Keys-Gtkr-example.PDB"); |
|
|
print Dump $pdb; |
|
|
|