version 1.21, 2007/01/31 05:32:20 |
version 1.23, 2007/02/02 01:51:46 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
|
|
# $RedRiver: Keyring.pm,v 1.20 2007/01/31 04:29:08 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.22 2007/02/01 01:56:11 andrew Exp $ |
# |
# |
# Perl class for dealing with Keyring for Palm OS databases. |
# Perl class for dealing with Keyring for Palm OS databases. |
# |
# |
|
|
my $self = shift; |
my $self = shift; |
my $rec = shift; |
my $rec = shift; |
|
|
my $rec0_id = $self->{'records'}->[0]->{'id'}; |
if ($rec->{'encrypted'}) { |
|
if (! defined $rec->{'name'}) { |
if ($rec->{'encrypted'} && ! $rec->{'id'} == $rec0_id) { |
$rec->{'name'} = $EMPTY; |
|
} |
$rec->{'data'} = join $NULL, $rec->{'name'}, $rec->{'encrypted'}; |
$rec->{'data'} = join $NULL, $rec->{'name'}, $rec->{'encrypted'}; |
delete $rec->{'name'}; |
delete $rec->{'name'}; |
delete $rec->{'encrypted'}; |
delete $rec->{'encrypted'}; |
|
|
croak("Incorrect Password!\n"); |
croak("Incorrect Password!\n"); |
} |
} |
|
|
$self->{'digest'} ||= _calc_keys( $pass ); |
$self->{'digest'} ||= _calc_keys( $pass ); |
|
|
$data->{'account'} ||= $EMPTY; |
$data->{'account'} ||= $EMPTY; |
$data->{'password'} ||= $EMPTY; |
$data->{'password'} ||= $EMPTY; |
$data->{'notes'} ||= $EMPTY; |
$data->{'notes'} ||= $EMPTY; |
|
|
|
my $changed = 0; |
|
my $need_newdate = 0; |
|
my $acct = {}; |
|
if ($rec->{'encrypted'}) { |
|
$acct = $self->Decrypt($rec, $pass); |
|
foreach my $key (keys %{ $data }) { |
|
next if $key eq 'lastchange'; |
|
if ($data->{$key} ne $acct->{$key}) { |
|
$changed = 1; |
|
last; |
|
} |
|
} |
|
if ( exists $data->{'lastchange'} && exists $acct->{'lastchange'} && ( |
|
$data->{'lastchange'}->{day} != $acct->{'lastchange'}->{day} || |
|
$data->{'lastchange'}->{month} != $acct->{'lastchange'}->{month} || |
|
$data->{'lastchange'}->{year} != $acct->{'lastchange'}->{year} |
|
)) { |
|
$changed = 1; |
|
$need_newdate = 0; |
|
} else { |
|
$need_newdate = 1; |
|
} |
|
|
|
} else { |
|
$changed = 1; |
|
} |
|
|
|
# no need to re-encrypt if it has not changed. |
|
return 1 if ! $changed; |
|
|
my ($day, $month, $year); |
my ($day, $month, $year); |
|
|
# XXX the 0 here is a placeholder for $record_has_changed. |
if ($data->{'lastchange'} && ! $need_newdate ) { |
if ( 0 || ! $data->{'lastchange'}) { |
$day = $data->{'lastchange'}->{'day'} || 1; |
|
$month = $data->{'lastchange'}->{'month'} || 0; |
|
$year = $data->{'lastchange'}->{'year'} || 0; |
|
|
|
# XXX Need to actually validate the above information somehow |
|
if ($year >= 1900) { |
|
$year -= 1900; |
|
} |
|
} else { |
|
$need_newdate = 1; |
|
} |
|
|
|
if ($need_newdate) { |
($day, $month, $year) = (localtime)[3,4,5]; |
($day, $month, $year) = (localtime)[3,4,5]; |
$year -= 4; |
|
$month++; |
|
} |
} |
|
$year -= 4; |
|
$month++; |
|
|
|
|
my $p = $day | ($month << 5) | ($year << 9); |
my $p = $day | ($month << 5) | ($year << 9); |
my $packeddate = pack 'n', $p; |
my $packeddate = pack 'n', $p; |
|
|
|
|
|
|
foreach my $i (0..$#accts) { |
foreach my $i (0..$#accts) { |
next if $i == 0; |
next if $i == 0; |
|
delete $self->{'records'}->[$i]->{'encrypted'}; |
$self->Encrypt($self->{'records'}->[$i], $accts[$i], $pass); |
$self->Encrypt($self->{'records'}->[$i], $accts[$i], $pass); |
} |
} |
} |
} |
|
|
}, |
}, |
}; |
}; |
|
|
|
If you have changed anything other than the lastchange, or don't pass in a |
|
lastchange record, Encrypt() will generate a new lastchange for you. |
|
|
|
If you pass in a lastchange field that is different than the one in the |
|
record, it will honor what you passed in. |
|
|
|
It also only uses the $acct->{'name'} if there is not already a $rec->{'name'}. |
|
|
=head2 Decrypt |
=head2 Decrypt |
|
|
my $acct = $pdb->Decrypt($rec[, $password]); |
my $acct = $pdb->Decrypt($rec[, $password]); |
|
|
Decrypts the record and returns a hashref for the account as described |
Decrypts the record and returns a hashref for the account as described |
under Encrypt(). |
under Encrypt(). |
However, it ignores the "lastchange" field and generates its own. |
|
It also only uses the "name" field if there is not already a $rec->{'name'}. |
|
|
|
foreach (0..$#{ $pdb->{'records'}) { |
foreach (0..$#{ $pdb->{'records'}) { |
next if $_ == 0; |
next if $_ == 0; |