#!/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";

print "Plaintext: '$plaintext'\n";
print "Password:  '$password'\n";

my $digest    = Palm::Keyring::_calc_keys($password);
print "Digest:    '$digest'\n";

my $encrypted = Palm::Keyring::_crypt3des($plaintext, $digest, ENCRYPT);
print "Encrypted: '" . unpack("H*", $encrypted) . "'\n";

my $decrypted = Palm::Keyring::_crypt3des($encrypted, $digest, DECRYPT);
print "Decrypted: '$decrypted'\n";