#!/usr/bin/perl
use strict;
use warnings;

use lib 'lib';
use Palm::Keyring;

use constant ENCRYPT    =>  1;
use constant DECRYPT    =>  0;

my $plaintext = "Hello World";
my $password  = "12345";

my $digest    = Palm::Keyring::_calc_keys($password);
my $encrypted = Palm::Keyring::_crypt3des($plaintext, $digest, ENCRYPT);
my $decrypted = Palm::Keyring::_crypt3des($encrypted, $digest, DECRYPT);

print "Plaintext: $plaintext\n";
print "Password:  $password\n";
print "Digest:    $digest\n";
print "Encrypted: $encrypted\n";
print "Decrypted: $decrypted\n";