version 1.2, 2007/01/30 04:59:55 |
version 1.4, 2007/08/10 05:13:31 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver$ |
# $RedRiver: example2.pl,v 1.3 2007/01/31 04:17:15 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
$pdb->Load("Keys-Gtkr-example.PDB"); |
$pdb->Load("Keys-Gtkr-example.PDB"); |
$pdb->Password('12345'); |
$pdb->Password('12345'); |
|
|
foreach (0..$#{ $pdb->{'records'} }) { |
foreach my $rec (@{ $pdb->{records} }) { |
next if $_ == 0; |
|
my $rec = $pdb->{'records'}->[$_]; |
|
my $acct = $pdb->Decrypt($rec); |
my $acct = $pdb->Decrypt($rec); |
|
|
print join ":", $rec->{'data'} , $acct->{'account'}, |
my $d = $acct->{3}->{data}; |
$acct->{'password'}, $acct->{'notes'}; |
my $date = ($d->{year} + 1900) . '/' . ($d->{month} + 1) . '/' . $d->{day}; |
|
print join ":", $acct->{0}->{data} , $acct->{1}->{data}, |
|
$acct->{2}->{data}, $date, $acct->{255}->{data}; |
print "\n"; |
print "\n"; |
} |
} |