Following code will take the password from a form and redirect them to the secret page if the password is correct. This code has no security but since it's not an issue, then the following code will help you out.
#!/usr/bin/perl -w
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$FORM{$name} = $value;
}
print "Content-type: text/html\n\n";
$pass_data = $FORM{'password'};
$pass = "password";
if ($pass_data eq $pass) {
print "Location:
";
}else{
print "Location:
";
}
There is no Knowledge, That is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (
Company
not done yet)
Status: Currently working with C++ for game developing.
-Aaron
