version 1.2, 2006/01/31 23:03:39 |
version 1.4, 2006/04/18 20:39:45 |
|
|
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;
|
|
|
|
|
#$pdb->Load("Keys-GtkrNEW.PDB");
|
#$pdb->Load("Keys-GtkrNEW.PDB");
|
#$pdb->Decrypt('12345');
|
#$pdb->Decrypt('12345');
|
$pdb->Load("Keys-Gtkr.PDB");
|
$pdb->Load("Keys-Gtkr.PDB");
|
$pdb->Decrypt('Password');
|
#$pdb->Load("k:/working/Keys-Gtkr.PDB");
|
|
$pdb->Decrypt('12345');
|
|
|
#--------------------------------------------------
|
#--------------------------------------------------
|
# my $new_record = $pdb->append_Record();
|
# my $new_record = $pdb->append_Record();
|