| version 1.61, 2008/09/19 06:55:35 |
version 1.62, 2008/09/19 07:01:00 |
|
|
| package Palm::Keyring; |
package Palm::Keyring; |
| # $RedRiver: Keyring.pm,v 1.60 2008/09/19 05:53:08 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.61 2008/09/19 05:55:35 andrew Exp $ |
| ######################################################################## |
######################################################################## |
| # Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
| # |
# |
|
|
| |
|
| $rec->{plaintext}->{0} = $data->{0}; |
$rec->{plaintext}->{0} = $data->{0}; |
| |
|
| if ($encrypted) { |
if ($encrypted ne '1') { |
| if ($encrypted eq '1') { |
|
| return 1; |
|
| } |
|
| |
|
| $rec->{attributes}{Dirty} = 1; |
$rec->{attributes}{Dirty} = 1; |
| $rec->{attributes}{dirty} = 1; |
$rec->{attributes}{dirty} = 1; |
| $rec->{encrypted} = $encrypted; |
$rec->{encrypted} = $encrypted; |
| |
|
| return 1; |
|
| } else { |
|
| return; |
|
| } |
} |
| |
|
| |
return 1; |
| } |
} |
| |
|
| sub _encrypt_v4 |
sub _encrypt_v4 |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Keyring.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / palm / Palm-Keyring / lib / Palm