version 1.1, 2006/01/26 20:54:19 |
version 1.3, 2006/02/02 00:59:08 |
|
|
use warnings;
|
use warnings;
|
use diagnostics;
|
use diagnostics;
|
|
|
use Palm::PDB;
|
|
use lib 'lib';
|
use lib 'lib';
|
use Palm::Keyring;
|
use Palm::Keyring;
|
|
|
my $pdb = new Palm::PDB;
|
my $pdb = new Palm::Keyring;
|
|
|
use YAML;
|
use YAML;
|
|
|
#print Dumper $pdb
|
#print Dumper $pdb
|
|
|
$pdb->Load("Keys-GtkrNEW.PDB");
|
#$pdb->Load("Keys-GtkrNEW.PDB");
|
$pdb->Decrypt('12345');
|
#$pdb->Decrypt('12345');
|
|
$pdb->Load("Keys-Gtkr.PDB");
|
|
$pdb->Decrypt('Password');
|
|
|
#--------------------------------------------------
|
#--------------------------------------------------
|
# my $new_record = $pdb->append_Record();
|
# my $new_record = $pdb->append_Record();
|