version 1.9, 2007/01/30 04:59:55 |
version 1.11, 2007/09/12 04:59:37 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver$ |
# $RedRiver: example1.pl,v 1.10 2007/08/10 04:13:31 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
|
|
my $rec = $pdb->append_Record(); |
my $rec = $pdb->append_Record(); |
|
|
my $acct = { |
$rec->{plaintext} = { |
name => 'Test3', |
0 => { data => 'Test3' }, |
account => 'anothertestaccount', |
1 => { data => 'anothertestaccount' }, |
password => 'adifferentmypass', |
2 => { data => 'adifferentmypass' }, |
notes => 'now that really roxorZ!', |
255 => { data => 'now that really roxorZ!' }, |
}; |
}; |
|
|
$pdb->Encrypt($rec, $acct); |
$pdb->Encrypt($rec); |
|
|
$pdb->Write("Keys-Gtkr-example.PDB"); |
$pdb->Write("Keys-Gtkr-example.PDB"); |