version 1.10, 2008/09/18 02:47:37 |
version 1.11, 2008/09/18 02:50:25 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $RedRiver: keyring5.t,v 1.9 2007/09/13 15:44:39 andrew Exp $ |
# $RedRiver: keyring5.t,v 1.10 2008/09/18 01:47:37 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
my $password = '12345'; |
my $password = '12345'; |
my $new_password = '54321'; |
my $new_password = '54321'; |
|
|
foreach my $cipher ( 0 .. 3 ) { |
|
|
|
#next unless $cipher == 0; |
|
my $pdb; |
|
my @recs; |
|
my $record; |
|
my $decrypted; |
|
|
|
my $crypt = Palm::Keyring::crypts($cipher); |
|
|
|
my $options = { |
|
version => 5, |
|
password => $password, |
|
cipher => $cipher, |
|
}; |
|
|
|
my $original_accts = [ |
my $original_accts = [ |
{ 0 => { |
{ 0 => { |
'label_id' => 0, |
'label_id' => 0, |
|
|
} |
} |
} |
} |
]; |
]; |
|
|
|
foreach my $cipher ( 0 .. 3 ) { |
|
|
|
#next unless $cipher == 0; |
|
my $pdb; |
|
my @recs; |
|
my $record; |
|
my $decrypted; |
|
|
|
my $crypt = Palm::Keyring::crypts($cipher); |
|
|
|
my $options = { |
|
version => 5, |
|
password => $password, |
|
cipher => $cipher, |
|
}; |
|
|
my $Num_Tests_Left = 34; |
my $Num_Tests_Left = 34; |
SKIP: { |
SKIP: { |