version 1.36, 2007/02/22 05:16:04 |
version 1.38, 2007/02/23 02:54:49 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.35 2007/02/22 04:11:35 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.37 2007/02/23 02:34:01 andrew Exp $ |
######################################################################## |
######################################################################## |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# |
# |
|
|
use warnings; |
use warnings; |
|
|
use Carp; |
use Carp; |
$Carp::Verbose = 1; |
|
|
|
use base qw/ Palm::StdAppInfo /; |
use base qw/ Palm::StdAppInfo /; |
|
|
|
|
} elsif ($self->{version} == 5) { |
} elsif ($self->{version} == 5) { |
my $blocksize = $CRYPTS[ $self->{appinfo}->{cipher} ]{blocksize}; |
my $blocksize = $CRYPTS[ $self->{appinfo}->{cipher} ]{blocksize}; |
my ($field, $extra) = _parse_field($rec->{data}); |
my ($field, $extra) = _parse_field($rec->{data}); |
my $ivec = substr $extra, 0, $blocksize; |
delete $rec->{data}; |
my $encrypted = substr $extra, $blocksize; |
|
|
|
$rec->{name} = $field->{data}; |
$rec->{name} = $field->{data}; |
$rec->{ivec} = $ivec; |
$rec->{ivec} = substr $extra, 0, $blocksize; |
$rec->{encrypted} = $encrypted; |
$rec->{encrypted} = substr $extra, $blocksize; |
delete $rec->{data}; |
|
|
|
} else { |
} else { |
die 'Unsupported Version'; |
die 'Unsupported Version'; |
|
|
} |
} |
|
|
} elsif ($self->{version} == 5) { |
} elsif ($self->{version} == 5) { |
my $field = { |
my $field; |
'label_id' => 1, |
if ($rec->{name}) { |
'data' => $rec->{name}, |
$field = { |
'font' => 0, |
'label_id' => 1, |
}; |
'data' => $rec->{name}, |
my $packed .= _pack_field($field); |
'font' => 0, |
|
}; |
|
} else { |
|
$field = { |
|
'label_id' => $EMPTY, |
|
'data' => $EMPTY, |
|
'font' => 0, |
|
}; |
|
} |
|
my $packed = _pack_field($field); |
|
|
$rec->{data} = join '', $packed, $rec->{ivec}, $rec->{encrypted}; |
$rec->{data} = join '', $packed, $rec->{ivec}, $rec->{encrypted}; |
|
|
|
|
my $date_index; |
my $date_index; |
for (my $i = 0; $i < @{ $new }; $i++) { |
for (my $i = 0; $i < @{ $new }; $i++) { |
if ( |
if ( |
(exists $new->[$i]->{label_id} && $new->[$i]->{label_id} == 3) || |
($new->[$i]->{label_id} && $new->[$i]->{label_id} == 3) || |
(exists $new->[$i]->{label} && $new->[$i]->{label} eq 'lastchange') |
($new->[$i]->{label} && $new->[$i]->{label} eq 'lastchange') |
) { |
) { |
$date_index = $i; |
$date_index = $i; |
if ( $old && $#{ $new } == $#{ $old } && ( |
if ( $old && $#{ $new } == $#{ $old } && ( |
$new->[$i]->{data}->{day} != $old->[$i]->{data}->{day} || |
$new->[$i]{data}{day} != $old->[$i]{data}{day} || |
$new->[$i]->{data}->{month} != $old->[$i]->{data}->{month} || |
$new->[$i]{data}{month} != $old->[$i]{data}{month} || |
$new->[$i]->{data}->{year} != $old->[$i]->{data}->{year} |
$new->[$i]{data}{year} != $old->[$i]{data}{year} |
)) { |
)) { |
$changed = 1; |
$changed = 1; |
$need_newdate = 0; |
$need_newdate = 0; |
last; |
|
} |
} |
|
|
} elsif ($old && $#{ $new } == $#{ $old }) { |
} elsif ($old && $#{ $new } == $#{ $old }) { |
|
|
my ($label, $font, $data) = unpack $unpackstr, $field; |
my ($label, $font, $data) = unpack $unpackstr, $field; |
my $leftover = substr $field, $offset; |
my $leftover = substr $field, $offset; |
|
|
if ($label == 3) { |
if ($label && $label == 3) { |
$data = _parse_keyring_date($data); |
$data = _parse_keyring_date($data); |
} |
} |
return { |
return { |
|
|
notes => 255, |
notes => 255, |
); |
); |
|
|
my $label = $field->{label_id} || $labels{ $field->{label} }; |
my $packed; |
my $font = $field->{font} || 0; |
if (defined $field) { |
my $data = $field->{data} || ''; |
my $label = $field->{label_id} || 0; |
|
if (defined $field->{label} && ! $label) { |
|
$label = $labels{ $field->{label} }; |
|
} |
|
my $font = $field->{font} || 0; |
|
my $data = defined $field->{data} ? $field->{data} : $EMPTY; |
|
|
if ($label == 3) { |
if ($label && $label == 3) { |
$data = _pack_keyring_date($data); |
$data = _pack_keyring_date($data); |
} |
} |
my $len = length $data; |
my $len = length $data; |
my $packstr = "n1 C1 C1 A*"; |
my $packstr = "n1 C1 C1 A*"; |
|
|
my $packed = pack $packstr, ($len, $label, $font, $data); |
$packed = pack $packstr, ($len, $label, $font, $data); |
|
|
if ($len % 2) { |
if ($len % 2) { |
# add byte padding for next even address. |
# add byte padding for next even address. |
$packed .= $NULL; |
$packed .= $NULL; |
|
} |
|
} else { |
|
my $packstr = "n1 C1 C1 x1"; |
|
$packed = pack $packstr, 0, 0, 0; |
} |
} |
|
|
return $packed; |
return $packed; |
|
|
It has the standard Palm::PDB methods with 2 additional public methods. |
It has the standard Palm::PDB methods with 2 additional public methods. |
Decrypt and Encrypt. |
Decrypt and Encrypt. |
|
|
It currently supports the v4 Keyring databases. |
It currently supports the v4 Keyring databases as well as |
The pre-release v5 databases are mostly supported. There are definitely some |
the pre-release v5 databases. I am not completely happy with the interface |
bugs, For example, t/keyring5.t sometimes fails. I am not sure why yet. |
for accessing the v5 database, so any suggestions on improvements on |
|
the interface are appreciated. |
|
|
This module doesn't store the decrypted content. It only keeps it until it |
This module doesn't store the decrypted content. It only keeps it until it |
returns it to you or encrypts it. |
returns it to you or encrypts it. |
|
|
next if $_ == 0 && $pdb->{version} == 4; |
next if $_ == 0 && $pdb->{version} == 4; |
my $rec = $pdb->{records}->[$_]; |
my $rec = $pdb->{records}->[$_]; |
my $acct = $pdb->Decrypt($rec, $pass); |
my $acct = $pdb->Decrypt($rec, $pass); |
print $rec->{name}, ' - ', $acct->{account}, "\n"; |
print $rec->{name}, ' - '; |
|
if ($pdb->{version} == 4 || $pdb->{options}->{v4compatible}) { |
|
print ' - ', $acct->{account}; |
|
} else { |
|
foreach my $a (@{ $acct }) { |
|
if ($a->{label} eq 'account') { |
|
print ' - ', $a->{data}; |
|
last; |
|
} |
|
} |
|
} |
|
print "\n"; |
} |
} |
|
|
=head1 SUBROUTINES/METHODS |
=head1 SUBROUTINES/METHODS |
|
|
$pdb = new Palm::Keyring({ key1 => value1, key2 => value2 }); |
$pdb = new Palm::Keyring({ key1 => value1, key2 => value2 }); |
$pdb = new Palm::Keyring( -key1 => value1, -key2 => value2); |
$pdb = new Palm::Keyring( -key1 => value1, -key2 => value2); |
|
|
=head3 Supported options are: |
=over |
|
|
|
=item Supported options |
|
|
=over |
=over |
|
|
=item password |
=item password |
|
|
|
|
The number of iterations to encrypt with. |
The number of iterations to encrypt with. |
|
|
|
=item options |
|
|
|
A hashref of the options that are set |
|
|
=back |
=back |
|
|
|
=back |
|
|
For v5 databases there are some additional appinfo fields set. |
For v5 databases there are some additional appinfo fields set. |
|
|
$pdb->{appinfo} = { |
$pdb->{appinfo} = { |
# normal appinfo stuff described in L<Palm::StdAppInfo> |
# normal appinfo stuff described in L<Palm::StdAppInfo> |
cipher => The index number of the cipher being used |
cipher => The index number of the cipher being used |
iter => Number of iterations for the cipher |
iter => Number of iterations for the cipher |
}; |
}; |
|
|
=head2 crypt |
=head2 crypt |
|
|
Pass in the alias of the crypt to use, or the index. |
Pass in the alias of the crypt to use, or the index. |
|
|
|
These only make sense for v5 databases. |
|
|
This is a function, not a method. |
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); |
my $c = Palm::Keyring::crypt($cipher); |
|
|
|
|
|
|
|
|
The account name is stored in $rec->{name} for both v4 and v5 databases. |
The account name is stored in $rec->{name} for both v4 and v5 databases. |
It is not returned in the decrypted information for v5. |
It is not returned in the decrypted information for v5. |
|
|
$rec->{name} = 'account name'; |
$rec->{name} = 'account name'; |
|
|
|
|
|
|
For v4 |
For v4 |
|
|
$pdb->{digest} = the calculated digest used from the key; |
$pdb->{digest} = the calculated digest used from the key; |
$pdb->{password} = the password that was passed in; |
$pdb->{password} = the password that was passed in; |
|
|
For v5 |
For v5 |
|
|
$pdb->{appinfo} = { |
$pdb->{appinfo} = { |
# As described under new() with these additional fields |
# As described under new() with these additional fields |
cipher => The index number of the cipher being used |
cipher => The index number of the cipher being used |
iter => Number of iterations for the cipher |
iter => Number of iterations for the cipher |
key => The key that is calculated from the password |
key => The key that is calculated from the password |
and salt and is used to decrypt the records. |
and salt and is used to decrypt the records. |
masterhash => the hash of the key that is stored in the |
masterhash => the hash of the key that is stored in the |
database. Either set when Loading the database |
database. Either set when Loading the database |
or when setting a new password. |
or when setting a new password. |
salt => the salt that is either read out of the database |
salt => the salt that is either read out of the database |
or calculated when setting a new password. |
or calculated when setting a new password. |
}; |
}; |
|
|
=head1 DEPENDENCIES |
=head1 DEPENDENCIES |
|
|