html code
---------
Test
------------------------
and cgi code: test2.pl
---------------------
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$p="snhnhaayshasaaahsasfanfdzahdayazazaaadanssaysiaaskzdhxshszsfscaxamfhzahdayazazaaadanhmsdamsfhxhnaaashzaksfhchahhasshzdhxaxafsfscapayhxhkaoavhahvhohszzsssdamsfhzhnhozfskakscaiapzmzkayaosxspashzzdzyhvsysoafhizkdzfsfszdansmazzdzkhnavsxscansxhczfhxsffyavfvamskaxachoakakaaazhnzyasaxaiszhyakazaaazavaxdfhchsszadsyasssznfkfadfhzsfshap";
my $encryptkey = "drbidsearch";
$p = &Decrypt($p,$encryptkey,'asdfhzxcvnmpoiyk');
sub Decrypt {
my ($encrypted, $key, $pub_key) = @_;
$encrypted =~ s/[\n\r\t\f]//eg;
my ($cr,$index,$decode,$decode2,$char,$key_char,$dec_string,$decrypted) = '';
while ( length($key) < length($encrypted) ) { $key .= $key }
$key=substr($key,0,length($encrypted));
while ($index < length($encrypted)) {
$decode = sprintf("%1x", index($pub_key, substr($encrypted,$index,1)));
$index++;
$decode2 = sprintf("%1x", index($pub_key, substr($encrypted,$index,1)));
$index++;
$dec_string .= chr(hex("$decode$decode2"));
}
$index=0;
while( $index < length($dec_string) ) {
$char = substr($dec_string,$index,1);
$key_char = substr($key,$index,1);
$decrypted .= chr(ord($char) ^ ord($key_char));
$index++;
}
$cr = '·¨ ';
$decrypted =~ s/$cr/\r/g;
return &rot13( $decrypted );
}
sub rot13{
my $source = shift (@_);
$source =~ tr /[a-m][n-z]/[n-z][a-m]/;
$source =~ tr /[A-M][N-Z]/[N-Z][A-M]/;
$source = reverse($source);
return $source;
}
---------
####
print "Content-type: text/html\n\n";
$query = new CGI;
$nam = $query->param ( 'name' );
$na="test";
if ($na eq $nam)
{
print "Correct";
}
else
{
print "Incorrect";
}