Passwort eingabe --> Quelltext

[Torwächter]

Hallo,
mach als erstes ein Formular mit einem Textfeld und einem Ansend (Submit) Button. Das Formular muss die methode "post" haben.

pass.pl:
-----------------------------(Diese Zeile nicht eintragen)

#!/usr/bin/perl -w

#Wenn du dieses Script benutzt, würde ich mich über einen Link auf
#www.manga-zone.com freuen.
#Hier deine Daten:

#Dein Passwort:
$passwort = "Pass";

#Bei richtiger Eingabe zu dieser Url:
$site = "http://www.deine-seite.de";

#Was tun bei falscher eingabe ?
#Wenn interne Fehlerseite angezeigt werden soll:
$intern = "yes";

#bei $intern = "no"; zu dieser Url:
$wrong = "http://www.deine-fehlerseite.de";

################# Well Done ################
############################################
############################################

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@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;
        $value =~ s/<([^>]|\n)*>//g;
        $value =~ s/<//g;
        $value =~ s/>//g;
        $FORM{$name} = $value;
}

if ($FORM{'Pass'} eq $passwort)
{
print "location: $site";
}
else
{
  if {$intern eq "yes")
  {
    print "Content-type: text/html\n\n";
    print "Der Zugriff wurde verweigert, da das Passwort falsch war.
  }
  else
  {
    print "location: $wrong";
  }
}

-----------------------------(Diese Zeile nicht eintragen)

Ich habe dieses Script nicht getestet und nur hier im Forum schnell entwickelt. Ich hoffe dass es funzt, wenn nicht meld dich einfach nocheinmal.

Viele Grüße
Torwächter