version 1.37, 2007/02/23 02:34:01 |
version 1.41, 2007/02/23 03:38:07 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.36 2007/02/22 05:16:04 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. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# |
# |
|
|
# Set defaults |
# Set defaults |
if ($self->{version} == 5) { |
if ($self->{version} == 5) { |
$self->{options}->{cipher} ||= 0; # 'None' |
$self->{options}->{cipher} ||= 0; # 'None' |
$self->{options}->{iterations} ||= |
my $c = crypts($self->{options}->{cipher}) |
$CRYPTS[ $self->{options}->{cipher} ]{default_iter}; |
or croak('Unknown cipher ' . $self->{options}->{cipher}); |
|
$self->{options}->{iterations} ||= $c->{default_iter}; |
$self->{appinfo}->{cipher} ||= $self->{options}->{cipher}; |
$self->{appinfo}->{cipher} ||= $self->{options}->{cipher}; |
$self->{appinfo}->{iter} ||= $self->{options}->{iterations}; |
$self->{appinfo}->{iter} ||= $self->{options}->{iterations}; |
}; |
}; |
|
|
if ( defined $options->{password} ) { |
if ( defined $options->{password} ) { |
|
|
sub crypts |
sub crypts |
{ |
{ |
my $crypt = shift; |
my $crypt = shift; |
if ($crypt =~ /\D/) { |
if (! defined $crypt || ! length $crypt) { |
|
return; |
|
} elsif ($crypt =~ /\D/) { |
foreach my $c (@CRYPTS) { |
foreach my $c (@CRYPTS) { |
if ($c->{alias} eq $crypt) { |
if ($c->{alias} eq $crypt) { |
return $c; |
return $c; |
|
|
delete $rec->{data}; |
delete $rec->{data}; |
|
|
} elsif ($self->{version} == 5) { |
} elsif ($self->{version} == 5) { |
my $blocksize = $CRYPTS[ $self->{appinfo}->{cipher} ]{blocksize}; |
my $c = crypts( $self->{appinfo}->{cipher} ) |
|
or croak('Unknown cipher ' . $self->{appinfo}->{cipher}); |
|
my $blocksize = $c->{blocksize}; |
my ($field, $extra) = _parse_field($rec->{data}); |
my ($field, $extra) = _parse_field($rec->{data}); |
delete $rec->{data}; |
delete $rec->{data}; |
|
|
|
|
my $key = shift; |
my $key = shift; |
my $cipher = shift; |
my $cipher = shift; |
my $ivec = shift; |
my $ivec = shift; |
my $blocksize = $CRYPTS[ $cipher ]{blocksize}; |
my $c = crypts($cipher) or croak('Unknown cipher ' . $cipher); |
my $keylen = $CRYPTS[ $cipher ]{keylen}; |
|
my $cipher_name = $CRYPTS[ $cipher ]{name}; |
|
|
|
if (! defined $ivec) { |
if (! defined $ivec) { |
$ivec = pack("C*",map {rand(256)} 1..$blocksize); |
$ivec = pack("C*",map {rand(256)} 1..$c->{blocksize}); |
} |
} |
|
|
my $changed = 0; |
my $changed = 0; |
|
|
$decrypted .= _pack_field($field); |
$decrypted .= _pack_field($field); |
} |
} |
my $encrypted; |
my $encrypted; |
if ($cipher_name eq 'None') { |
if ($c->{name} eq 'None') { |
# do nothing |
# do nothing |
$encrypted = $decrypted; |
$encrypted = $decrypted; |
|
|
} elsif ($cipher_name eq 'DES_EDE3' or $cipher_name eq 'Rijndael') { |
} elsif ($c->{name} eq 'DES_EDE3' or $c->{name} eq 'Rijndael') { |
require Crypt::CBC; |
require Crypt::CBC; |
my $c = Crypt::CBC->new( |
my $cbc = Crypt::CBC->new( |
-key => $key, |
-key => $key, |
-literal_key => 1, |
-literal_key => 1, |
-iv => $ivec, |
-iv => $ivec, |
-cipher => $cipher_name, |
-cipher => $c->{name}, |
-keysize => $keylen, |
-keysize => $c->{keylen}, |
-blocksize => $blocksize, |
-blocksize => $c->{blocksize}, |
-header => 'none', |
-header => 'none', |
-padding => 'oneandzeroes', |
-padding => 'oneandzeroes', |
); |
); |
|
|
croak("Unable to set up encryption!"); |
croak("Unable to set up encryption!"); |
} |
} |
|
|
$encrypted = $c->encrypt($decrypted); |
$encrypted = $cbc->encrypt($decrypted); |
|
|
} else { |
} else { |
die "Unsupported Version"; |
die "Unsupported Version"; |
|
|
my $cipher = shift; |
my $cipher = shift; |
my $ivec = shift; |
my $ivec = shift; |
|
|
my $keylen = $CRYPTS[ $cipher ]{keylen}; |
my $c = crypts($cipher) or croak('Unknown cipher ' . $cipher); |
my $cipher_name = $CRYPTS[ $cipher ]{name}; |
|
my $blocksize = $CRYPTS[ $cipher ]{blocksize}; |
|
|
|
my $decrypted; |
my $decrypted; |
|
|
if ($cipher_name eq 'None') { |
if ($c->{name} eq 'None') { |
# do nothing |
# do nothing |
$decrypted = $encrypted; |
$decrypted = $encrypted; |
|
|
} elsif ($cipher_name eq 'DES_EDE3' or $cipher_name eq 'Rijndael') { |
} elsif ($c->{name} eq 'DES_EDE3' or $c->{name} eq 'Rijndael') { |
require Crypt::CBC; |
require Crypt::CBC; |
my $c = Crypt::CBC->new( |
my $cbc = Crypt::CBC->new( |
-key => $key, |
-key => $key, |
-literal_key => 1, |
-literal_key => 1, |
-iv => $ivec, |
-iv => $ivec, |
-cipher => $cipher_name, |
-cipher => $c->{name}, |
-keysize => $keylen, |
-keysize => $c->{keylen}, |
-blocksize => $blocksize, |
-blocksize => $c->{blocksize}, |
-header => 'none', |
-header => 'none', |
-padding => 'oneandzeroes', |
-padding => 'oneandzeroes', |
); |
); |
|
|
if (! $c) { |
if (! $c) { |
croak("Unable to set up encryption!"); |
croak("Unable to set up encryption!"); |
} |
} |
my $len = $blocksize - length($encrypted) % $blocksize; |
my $len = $c->{blocksize} - length($encrypted) % $c->{blocksize}; |
$encrypted .= $NULL x $len; |
$encrypted .= $NULL x $len; |
$decrypted = $c->decrypt($encrypted); |
$decrypted = $cbc->decrypt($encrypted); |
|
|
} else { |
} else { |
die "Unsupported Version"; |
die "Unsupported Version"; |
|
|
|
|
my $salt = pack("H*", $appinfo->{salt}); |
my $salt = pack("H*", $appinfo->{salt}); |
|
|
|
my $c = crypts($appinfo->{cipher}) |
|
or croak('Unknown cipher ' . $appinfo->{cipher}); |
my ($key, $hash) = _calc_key_v5( |
my ($key, $hash) = _calc_key_v5( |
$pass, $salt, $appinfo->{iter}, |
$pass, $salt, $appinfo->{iter}, |
$CRYPTS[ $appinfo->{cipher} ]{keylen}, |
$c->{keylen}, |
$CRYPTS[ $appinfo->{cipher} ]{DES_odd_parity}, |
$c->{DES_odd_parity}, |
); |
); |
|
|
#print "Iter: '" . $appinfo->{iter} . "'\n"; |
#print "Iter: '" . $appinfo->{iter} . "'\n"; |
|
|
my $length = 8; |
my $length = 8; |
my $salt = shift || pack("C*",map {rand(256)} 1..$length); |
my $salt = shift || pack("C*",map {rand(256)} 1..$length); |
|
|
|
my $c = crypts($cipher) or croak('Unknown cipher ' . $cipher); |
my ($key, $hash) = _calc_key_v5( |
my ($key, $hash) = _calc_key_v5( |
$pass, $salt, $iter, |
$pass, $salt, $iter, |
$CRYPTS[ $cipher ]->{keylen}, |
$c->{keylen}, |
$CRYPTS[ $cipher ]->{DES_odd_parity}, |
$c->{DES_odd_parity}, |
); |
); |
|
|
$appinfo->{salt} = unpack "H*", $salt; |
$appinfo->{salt} = unpack "H*", $salt; |
$appinfo->{iter} = $iter; |
$appinfo->{iter} = $iter; |
$appinfo->{cipher} = $cipher; |
$appinfo->{cipher} = $cipher; |
|
|
$appinfo->{key} = $key; |
|
$appinfo->{masterhash} = $hash; |
$appinfo->{masterhash} = $hash; |
|
$appinfo->{key} = $key; |
|
|
return $key; |
return $key; |
} |
} |
|
|
$packed .= $NULL; |
$packed .= $NULL; |
} |
} |
} else { |
} else { |
my $packstr = "n1 c1 c1 x1"; |
my $packstr = "n1 C1 C1 x1"; |
$packed = pack $packstr, 0, 0, 0; |
$packed = pack $packstr, 0, 0, 0; |
} |
} |
|
|
|
|
|
|
It currently supports the v4 Keyring databases as well as |
It currently supports the v4 Keyring databases as well as |
the pre-release v5 databases. I am not completely happy with the interface |
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. |
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 |
|
|
print ' - ', $acct->{account}; |
print ' - ', $acct->{account}; |
} else { |
} else { |
foreach my $a (@{ $acct }) { |
foreach my $a (@{ $acct }) { |
if ($a->{type} eq 'account') { |
if ($a->{label} eq 'account') { |
print ' - ', $a->{data}; |
print ' - ', $a->{data}; |
last; |
last; |
} |
} |
|
|
$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); |
|
|
Supported options |
=over |
|
|
|
=item Supported options |
|
|
=over |
=over |
|
|
=item password |
=item password |
|
|
|
|
=item cipher |
=item cipher |
|
|
The cipher to use. 0, 1, 2 or 3. |
The cipher to use. Either the number or the name. |
|
|
0 => None |
0 => None |
1 => DES_EDE3 |
1 => DES_EDE3 |
|
|
|
|
=back |
=back |
|
|
|
=back |
|
|
For v5 databases there are some additional appinfo fields set. |
For v5 databases there are some additional appinfo fields set. |
|
These are set either on new() or Load(). |
|
|
$pdb->{appinfo} = { |
$pdb->{appinfo} = { |
# normal appinfo stuff described in L<Palm::StdAppInfo> |
# normal appinfo stuff described in L<Palm::StdAppInfo> |
|
|
|
|
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); |
|
|
$c is now: |
$c is now: |
|
|
Decrypts the record and returns a reference for the account as described |
Decrypts the record and returns a reference for the account as described |
under Encrypt(). |
under Encrypt(). |
|
|
foreach (0..$#{ $pdb->{records}) { |
foreach (0..$#{ $pdb->{records} }) { |
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); |
my $acct = $pdb->Decrypt($rec); |
|
|
|
|
Palm::StdAppInfo |
Palm::StdAppInfo |
|
|
|
B<For v4 databases> |
|
|
Digest::MD5 |
Digest::MD5 |
|
|
Crypt::DES |
Crypt::DES |
|
|
Readonly |
B<For v5 databases> |
|
|
|
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 |
=head1 THANKS |
|
|