version 1.10, 2007/08/10 05:13:31 |
version 1.11, 2007/09/12 04:59:37 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: example1.pl,v 1.9 2007/01/30 04:59:55 andrew Exp $ |
# $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} = { |
0 => { data => 'Test3' }, |
0 => { data => 'Test3' }, |
1 => { data => 'anothertestaccount' }, |
1 => { data => 'anothertestaccount' }, |
2 => { data => 'adifferentmypass' }, |
2 => { data => 'adifferentmypass' }, |
255 => { data => '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"); |