/usr/local/CPAN/Palm-Zetetic-Strip/Palm/Zetetic/Strip/PDB/SystemsV10.pm

• package Palm::Zetetic::Strip::PDB::SystemsV10
  • new
  • load
  • get_systems
• EOF

package Palm::Zetetic::Strip::PDB::SystemsV10;

use strict;
use Palm::PDB;
use Palm::Raw;
use Palm::Zetetic::Strip::CryptV10;
use Palm::Zetetic::Strip::System;

use vars qw(@ISA $VERSION);

require Exporter;

@ISA = qw(Exporter);
$VERSION = "1.02";

sub new
{
    my $class = shift;
    my $self = {};

    bless $self, $class;
    $self->{pdb} = undef;
    return $self;
}

sub load
{
    my ($self, $file) = @_;
    my $pdb;

    $pdb = new Palm::PDB;
    $pdb->Load($file);
    $self->{pdb} = $pdb;
}

sub get_systems
{
    my ($self, $password) = @_;
    my $records;
    my $record;
    my $crypt;
    my @systems;

    $crypt = new Palm::Zetetic::Strip::CryptV10($password);

    $records = $self->{pdb}->{records};
    @systems = ();
    foreach $record (@$records)
    {
        my $encrypted_data;
        my $decrypted_data;
        my $id;
        my $name;
        my $system;

        ($id, $encrypted_data) = unpack("na*", $record->{data});
        $decrypted_data = $crypt->decrypt($encrypted_data);
        ($name) = unpack("Z*", $decrypted_data);
        $system = new Palm::Zetetic::Strip::System("id" => $id,
                                                   "name" => $name);
        push (@systems, $system);
    }

    return \@systems;
}

1;