palm/Palm-Keyring/lib/Palm/Keyring.pm - diff

Return to Keyring.pm CVS log

Up to [local] / palm / Palm-Keyring / lib / Palm

version 1.60, 2008/09/19 06:53:08

version 1.61, 2008/09/19 06:55:35

Line 1

package Palm::Keyring;

# $RedRiver: Keyring.pm,v 1.59 2008/09/19 05:39:07 andrew Exp $

# $RedRiver: Keyring.pm,v 1.60 2008/09/19 05:53:08 andrew Exp $

########################################################################

# Keyring.pm *** Perl class for Keyring for Palm OS databases.

Line 480

$encrypted = _encrypt_v4($datav4, $acctv4, $self->{digest});

} elsif ($self->{version} == 5) {

($encrypted, $ivec) = _encrypt_v5(

($encrypted, $rec->{ivec}) = _encrypt_v5(

$data, $acct,

$self->{appinfo}->{key},

$self->{appinfo}->{cipher},

$ivec,

);

if (defined $ivec) {

$rec->{ivec} = $ivec;

}

} else {

croak "Unsupported version $self->{version}";