use Crypt::RC4; my $key = "abcdefghijklm"; my $plaintext = "Hello, World!"; my $encrypted = RC4($key, $plaintext); print $encrypted, "\n"; my @characters; for (split //, $encrypted) { push @characters, ord($_); } print @characters, "\n"; $encrypted = ""; for (@characters) { $encrypted .= chr($_); } print $encrypted, "\n"; my $decrypted = RC4($key, $encrypted); print $decrypted, "\n";