Select Code to Download

perl enc.pl 

...
Enter your message to be encrypted: This is an encryption test

Your encrypted message: c7cda0cc55bde684b5db9698d5d6d7b0c9a9bde2d274e1
+dba6db

perl denc.pl 

...
Enter your encrypted message: c7cda0cc55bde684b5db9698d5d6d7b0c9a9bde2
+d274e1dba6db

Your decrypted message: This is an encryption test

use warnings;
use strict;
...
print "\nYour encrypted message: ";
print @crypted;
print "\n\n";

use warnings;
use strict;
...
print "\nYour decrypted message: ";
print map { chr( $_ ) } @decrypted_message;
print "\n\n";