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