===================================================================
RCS file: /cvs/palm/Palm-Keyring/test1.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- palm/Palm-Keyring/test1.pl	2006/11/10 17:35:40	1.2
+++ palm/Palm-Keyring/test1.pl	2006/12/06 18:45:42	1.3
@@ -1,22 +1,25 @@
-#!/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: " . unpack("H*", $encrypted) . "\n";
-print "Decrypted: $decrypted\n";
+#!/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";
+