#!/usr/bin/perl

use CGI qw(:all);
use Crypt::RC4;
use strict;

my $encrypted = param("encrypted");

my $decrypted = RC4($encrypted,"mykey");

print "Content-Type: text/html\n\n";

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

##</code><code>##

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