#!/usr/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 = "tranrw";
$correctpass2 = "tb05dlr";
$correcturl = "http://www.techtrans.de/html/needs/bereich.htm";
$scriptlocation = "http://www.techtrans.de/cgi-bin/password.pl";
# Read in form data
&parse_form;
$password = $input{'password'};
$function = $input{'function'};
if ($function eq "post") {
if ($password eq $correctpass) {
&goto_url;
} elsif ($password eq $correctpass2) {
&goto_url;
}
&badpassword;
}
&ask_password;
sub badpassword {
print "Content-type: text/html\n\n";
print "\n";
print "Falsches Passwort\n";
print "\n";
print "Falsches Passwort
\n";
print "
\n";
print "\n";
print "Sollten Sie noch nicht über ein Password verfügen, so können Sie dieses hier anfordern. Die MST Aerospace vergibt an interessierte Unternehmen und Einrichtungen kostenpflichtige Zugriffsrechte auf die Bedarfsammlung.\n";
print "Nochmal versuchen.\n";
print "\n";
print "\n";
exit;
}
sub ask_password {
print "Content-type: text/html\n\n";
print "\n";
print "
Passwortabfrage\n";
print "\n";
print "
\n";
print "\n";
print "Sie erhalten Zugang zu den Beschreibungen der Technologiebedarfe der Industrie durch Eingabe Ihres Passwortes. Damit erhalten Sie auch die Möglichkeit Lösungsvorschläge für die aufgeführten Bedarfe zu schildern.\n";
print "
\n";
print "Bitte geben Sie Ihr Passwort ein:\n";
print "\n";
print "\n";
print "
\n";
print "Sollten Sie noch nicht über ein Password verfügen, so können Sie dieses hier anfordern. Die MST Aerospace vergibt an interessierte Unternehmen und Einrichtungen kostenpflichtige Zugriffsrechte auf die Bedarfsammlung.\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;
}
}