=================================================================== RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v retrieving revision 1.39 retrieving revision 1.41 diff -u -r1.39 -r1.41 --- palm/Palm-Keyring/lib/Palm/Keyring.pm 2007/02/23 03:24:09 1.39 +++ palm/Palm-Keyring/lib/Palm/Keyring.pm 2007/02/23 03:38:07 1.41 @@ -1,5 +1,5 @@ package Palm::Keyring; -# $RedRiver: Keyring.pm,v 1.38 2007/02/23 02:54:49 andrew Exp $ +# $RedRiver: Keyring.pm,v 1.40 2007/02/23 03:32:46 andrew Exp $ ######################################################################## # Keyring.pm *** Perl class for Keyring for Palm OS databases. # @@ -1285,7 +1285,7 @@ It currently supports the v4 Keyring databases as well as the pre-release v5 databases. I am not completely happy with the interface -for accessing the v5 database, so any suggestions on improvements on +for accessing v5 databases, so any suggestions on improvements on the interface are appreciated. This module doesn't store the decrypted content. It only keeps it until it @@ -1381,6 +1381,7 @@ =back For v5 databases there are some additional appinfo fields set. +These are set either on new() or Load(). $pdb->{appinfo} = { # normal appinfo stuff described in L @@ -1395,6 +1396,7 @@ These only make sense for v5 databases. This is a function, not a method. + $cipher can be 0, 1, 2, 3, None, DES_EDE3, AES128 or AES256. my $c = Palm::Keyring::crypt($cipher); @@ -1483,7 +1485,7 @@ Decrypts the record and returns a reference for the account as described under Encrypt(). - foreach (0..$#{ $pdb->{records}) { + foreach (0..$#{ $pdb->{records} }) { next if $_ == 0 && $pdb->{version} == 4; my $rec = $pdb->{records}->[$_]; my $acct = $pdb->Decrypt($rec); @@ -1530,11 +1532,25 @@ Palm::StdAppInfo +B + Digest::MD5 Crypt::DES -Readonly +B + +Digest::HMAC_SHA1 + +Digest::SHA1 + +Depending on how the database is encrypted + +Crypt::CBC - For any encryption but None + +Crypt::DES_EDE3 + +Crytp::Rijndael - The AES encryption schemes =head1 THANKS