version 1.2, 2006/01/31 23:03:39 |
version 1.8, 2006/12/06 18:45:42 |
|
|
#!/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;
|
|
|
my $new_record = $pdb->append_Record(); |
#print Dumper $pdb
|
|
|
$new_record->{plaintext} = { |
#$pdb->Load("Keys-GtkrNEW.PDB");
|
name => 'Test3', |
#$pdb->Decrypt('12345');
|
account => 'anothertestaccount', |
$pdb->Load("Keys-Gtkr.PDB");
|
password => 'adifferentmypass', |
$pdb->Decrypt('Password');
|
description => 'now that really roxorZ!', |
|
}; |
#--------------------------------------------------
|
|
# my $new_record = $pdb->append_Record();
|
$pdb->Encrypt('12345'); |
#
|
|
# $new_record->{plaintext} = {
|
$pdb->Write("Keys-GtkrNEW.PDB"); |
# name => 'Test3',
|
|
# account => 'anothertestaccount',
|
print Dump $pdb; |
# password => 'adifferentmypass',
|
|
# description => 'now that really roxorZ!',
|
|
# };
|
|
#
|
|
#$pdb->Encrypt('12345');
|
|
#
|
|
#$pdb->Write("Keys-GtkrNEW.PDB");
|
|
#--------------------------------------------------
|
|
|
|
print Dump $pdb;
|
|
|
|