Select Code to Download

#!/usr/bin/perl

...

print "<b>Encrypted Data: $encrypted</b><br><br>";
print "<b>Decrypted Data: $decrypted</b><br><br>";

my $encrypted = RC4("thisisatest",'This is a test');
my $decrypted = RC4("thisisatest",$encrypted);