version 1.16, 2007/01/30 04:59:55 |
version 1.19, 2007/01/31 04:17:15 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
|
|
# $RedRiver: Keyring.pm,v 1.15 2007/01/29 02:49:41 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.18 2007/01/30 05:18:06 andrew Exp $ |
# |
# |
# Perl class for dealing with Keyring for Palm OS databases. |
# Perl class for dealing with Keyring for Palm OS databases. |
# |
# |
|
|
Readonly my $NULL => chr 0; |
Readonly my $NULL => chr 0; |
|
|
# One liner, to allow MakeMaker to work. |
# One liner, to allow MakeMaker to work. |
our $VERSION = 0.91; |
our $VERSION = 0.92; |
|
|
sub new { |
sub new { |
my $classname = shift; |
my $classname = shift; |
|
|
|
|
# skip the 0 record that holds the password |
# skip the 0 record that holds the password |
return $rec if ! exists $self->{'records'}; |
return $rec if ! exists $self->{'records'}; |
|
|
# skip records with no data (There shouldn't be any) |
|
return $rec if ! exists $rec->{'data'}; |
return $rec if ! exists $rec->{'data'}; |
|
|
my ( $name, $encrypted ) = split /$NULL/xm, $rec->{'data'}, 2; |
my ( $name, $encrypted ) = split /$NULL/xm, $rec->{'data'}, 2; |
|
|
return $rec if ! $encrypted; |
return $rec if ! $encrypted; |
$rec->{'data'} = $name; |
delete $rec->{'data'}; |
|
$rec->{'name'} = $name; |
$rec->{'encrypted'} = $encrypted; |
$rec->{'encrypted'} = $encrypted; |
|
|
return $rec; |
return $rec; |
|
|
my $rec0_id = $self->{'records'}->[0]->{'id'}; |
my $rec0_id = $self->{'records'}->[0]->{'id'}; |
|
|
if ($rec->{'encrypted'} && ! $rec->{'id'} == $rec0_id) { |
if ($rec->{'encrypted'} && ! $rec->{'id'} == $rec0_id) { |
$rec->{'data'} = join $NULL, $rec->{'data'}, $rec->{'encrypted'}; |
$rec->{'data'} = join $NULL, $rec->{'name'}, $rec->{'encrypted'}; |
|
delete $rec->{'name'}; |
delete $rec->{'encrypted'}; |
delete $rec->{'encrypted'}; |
} |
} |
|
|
|
|
$data->{'password'} ||= $EMPTY; |
$data->{'password'} ||= $EMPTY; |
$data->{'notes'} ||= $EMPTY; |
$data->{'notes'} ||= $EMPTY; |
|
|
|
my %Modified; |
|
my ($day, $month, $year) = (localtime)[3,4,5]; |
|
$year -= 4; |
|
$month++; |
|
|
|
my $p = $day | ($month << 5) | ($year << 9); |
|
my $packeddate = pack 'n', $p; |
|
|
my $plaintext = join $NULL, |
my $plaintext = join $NULL, |
$data->{'account'}, $data->{'password'}, $data->{'notes'}; |
$data->{'account'}, $data->{'password'}, $data->{'notes'}, $packeddate; |
|
|
my $encrypted = _crypt3des( $plaintext, $self->{'digest'}, $ENCRYPT ); |
my $encrypted = _crypt3des( $plaintext, $self->{'digest'}, $ENCRYPT ); |
|
|
return if ! $encrypted; |
return if ! $encrypted; |
|
|
$rec->{'data'} ||= $data->{'name'}; |
$rec->{'attributes'}{'Dirty'} = 1; |
|
$rec->{'attributes'}{'dirty'} = 1; |
|
$rec->{'name'} ||= $data->{'name'}; |
$rec->{'encrypted'} = $encrypted; |
$rec->{'encrypted'} = $encrypted; |
|
|
return 1; |
return 1; |
} |
} |
|
|
|
|
} |
} |
|
|
if ( ! $rec) { |
if ( ! $rec) { |
carp("Needed parameter 'record' not passed!\n"); |
croak("Needed parameter 'record' not passed!\n"); |
return; |
|
} |
} |
|
|
if ( ! $self->Password($pass)) { |
if ( ! $self->Password($pass)) { |
|
|
|
|
my $decrypted = |
my $decrypted = |
_crypt3des( $rec->{'encrypted'}, $self->{'digest'}, $DECRYPT ); |
_crypt3des( $rec->{'encrypted'}, $self->{'digest'}, $DECRYPT ); |
my ( $account, $password, $notes, $extra ) = split /$NULL/xm, |
my ( $account, $password, $notes, $packeddate ) = split /$NULL/xm, |
$decrypted, 4; |
$decrypted, 4; |
|
|
|
my %Modified; |
|
if ($packeddate) { |
|
my $u = unpack 'n', $packeddate; |
|
my $year = (($u & 0xFE00) >> 9) + 4; # since 1900 |
|
my $month = (($u & 0x01E0) >> 5) - 1; # 0-11 |
|
my $day = (($u & 0x001F) >> 0); # 1-31 |
|
|
|
%Modified = ( |
|
year => $year, |
|
month => $month || 0, |
|
day => $day || 1, |
|
); |
|
} |
|
|
return { |
return { |
|
name => $rec->{'name'}, |
account => $account, |
account => $account, |
password => $password, |
password => $password, |
notes => $notes, |
notes => $notes, |
|
date => \%Modified, |
}; |
}; |
} |
} |
|
|
|
|
} |
} |
my $acct = $self->Decrypt($self->{'records'}->[$i], $pass); |
my $acct = $self->Decrypt($self->{'records'}->[$i], $pass); |
if ( ! $acct ) { |
if ( ! $acct ) { |
croak("Couldn't decrypt $self->{'records'}->[$i]->{'data'}"); |
croak("Couldn't decrypt $self->{'records'}->[$i]->{'name'}"); |
} |
} |
push @accts, $acct; |
push @accts, $acct; |
} |
} |
|
|
|
|
use Palm::PDB; |
use Palm::PDB; |
use Palm::Keyring; |
use Palm::Keyring; |
my $pdb = new Palm::PDB; |
|
|
my $pass = 'password'; |
|
my $file = 'Keys-Gtkr.pdb'; |
|
my $pdb = new Palm::PDB; |
$pdb->Load($file); |
$pdb->Load($file); |
foreach my $rec (@{ $pdb->{'records'} }) { |
|
print "$rec->{'plaintext'}->{'name'}\n"; |
foreach (0..$#{ $pdb->{'records'} }) { |
|
next if $_ = 0; # skip the password record |
|
my $rec = $pdb->{'records'}->[$_]; |
|
my $acct = $pdb->Decrypt($rec, $pass); |
|
print $rec->{'name'}, ' - ', $acct->{'account'}, "\n"; |
} |
} |
$pdb->Decrypt($password); |
|
# do something with the decrypted parts |
|
|
|
=head1 SUBROUTINES/METHODS |
=head1 SUBROUTINES/METHODS |
|
|