#!/usr/local/bin/perl
##################################################################################
# Password Protector Script
# Copyright 1996 Techno Trade http://www.technotrade.com
# Written By : Sammy Afifi sammy@technotrade.com
# Date Last Modified : Oct 22, 1996
##################################################################################
#
# This script is free of charge for non-commercial sites.
# Please refer to our web site for registering this script for commercial use.
#
##################################################################################
# Change these variables with your own values
$correctpass = "SjaUBGHe";
$correcturl = "http://magconline.org/members.html";
$scriptlocation = "http://magconline.org/password.pl";
# Read in form data
&parse_form;
$password = $input{'password'};
$function = $input{'function'};
if ($function eq "post") {
if ($password eq $correctpass) {
&goto_url;
}
&badpassword;
}
&ask_password;
sub badpassword {
print "Content-type: text/html\n\n";
print "\n";
print "Invalid Password\n";
print "\n";
print "Invalid Password
\n";
print "\n";
print "\n";
exit;
}
sub ask_password {
print "Content-type: text/html\n\n";
print "\n";
print "Please Enter Password\n";
print "\n";
print "Please Enter Your Password\n";
print "\n";
print "\n";
print "\n";
exit;
}
sub goto_url {
print "Location: $correcturl\n\n";
}
sub parse_form {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$input{$name} = $value;
}
}