After decryption the result should be "neshataf" if I understood it properly. But the result is not that. Please help.#!/usr/bin/perl use warnings; use Crypt::DES; my $key = pack("H16", "0123456789ABCDEF"); my $cipher = new Crypt::DES $key; my $plaintext = "neshataf"; my $ciphertext = $cipher->encrypt($plaintext); # NB - 8 bytes $plaintext = $cipher->decrypt($ciphertext); print unpack("H16", $ciphertext), "\n"; print unpack("H16", $plaintext), "\n";
In reply to Decryption in perl by Nesh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |