version 1.1, 2006/01/26 20:54:19 |
version 1.5, 2006/11/10 01:46:40 |
|
|
#!/usr/bin/perl
|
#!/usr/bin/perl |
use strict;
|
use strict; |
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::Keyring; |
my $pdb = new Palm::PDB;
|
|
|
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->Load("k:/working/Keys-Gtkr.PDB"); |
#--------------------------------------------------
|
$pdb->Decrypt('12345'); |
# my $new_record = $pdb->append_Record();
|
|
#
|
#-------------------------------------------------- |
# $new_record->{plaintext} = {
|
# my $new_record = $pdb->append_Record(); |
# name => 'Test3',
|
# |
# account => 'anothertestaccount',
|
# $new_record->{plaintext} = { |
# password => 'adifferentmypass',
|
# name => 'Test3', |
# description => 'now that really roxorZ!',
|
# account => 'anothertestaccount', |
# };
|
# password => 'adifferentmypass', |
#
|
# description => 'now that really roxorZ!', |
#$pdb->Encrypt('12345');
|
# }; |
#
|
# |
#$pdb->Write("Keys-GtkrNEW.PDB");
|
#$pdb->Encrypt('12345'); |
#--------------------------------------------------
|
# |
|
#$pdb->Write("Keys-GtkrNEW.PDB"); |
print Dump $pdb;
|
#-------------------------------------------------- |
|
|
|
print Dump $pdb; |
|
|