Return to test1.pl CVS log | Up to [local] / palm / Palm-Keyring |
version 1.1, 2006/11/10 17:32:14 | version 1.2, 2006/11/10 17:35:40 | ||
---|---|---|---|
|
|
||
print "Plaintext: $plaintext\n"; | print "Plaintext: $plaintext\n"; | ||
print "Password: $password\n"; | print "Password: $password\n"; | ||
print "Digest: $digest\n"; | print "Digest: $digest\n"; | ||
print "Encrypted: $encrypted\n"; | print "Encrypted: " . unpack("H*", $encrypted) . "\n"; | ||
print "Decrypted: $decrypted\n"; | print "Decrypted: $decrypted\n"; |