palm/Palm-Keyring/test1.pl - diff

Return to test1.pl CVS log

Up to [local] / palm / Palm-Keyring

-version 1.2, 2006/11/10 17:35:40
+version 1.3, 2006/12/06 18:45:42
 Line 1
 Line 1
 Line 1
  #!/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);
+ 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";