version 1.2, 2006/11/10 17:35:40 |
version 1.3, 2006/12/06 18:45:42 |
|
|
#!/usr/bin/perl
|
#!/usr/bin/perl |
use strict;
|
use strict; |
use warnings;
|
use warnings; |
|
|
use lib 'lib';
|
use lib 'lib'; |
use Palm::Keyring;
|
use Palm::Keyring; |
|
|
use constant ENCRYPT => 1;
|
use constant ENCRYPT => 1; |
use constant DECRYPT => 0;
|
use constant DECRYPT => 0; |
|
|
my $plaintext = "Hello World";
|
my $plaintext = "Hello World"; |
my $password = "12345";
|
my $password = "12345"; |
|
|
my $digest = Palm::Keyring::_calc_keys($password);
|
print "Plaintext: '$plaintext'\n"; |
my $encrypted = Palm::Keyring::_crypt3des($plaintext, $digest, ENCRYPT);
|
print "Password: '$password'\n"; |
my $decrypted = Palm::Keyring::_crypt3des($encrypted, $digest, DECRYPT);
|
|
|
my $digest = Palm::Keyring::_calc_keys($password); |
print "Plaintext: $plaintext\n";
|
print "Digest: '$digest'\n"; |
print "Password: $password\n";
|
|
print "Digest: $digest\n";
|
my $encrypted = Palm::Keyring::_crypt3des($plaintext, $digest, ENCRYPT); |
print "Encrypted: " . unpack("H*", $encrypted) . "\n";
|
print "Encrypted: '" . unpack("H*", $encrypted) . "'\n"; |
print "Decrypted: $decrypted\n";
|
|
|
my $decrypted = Palm::Keyring::_crypt3des($encrypted, $digest, DECRYPT); |
|
print "Decrypted: '$decrypted'\n"; |
|
|