#!/usr/local/Perl/bin/perl1 -w
#######################################################################
###### Variablen Einlegen ! #######
$Book = "../../htdocs/Medien/Zeitung";
$BooksURL = "http://127.0.0.1/Medien/Zeitung";
$bookfile = "Inhalts.htm";
$Intern = "InfoMedi/Index.htm";
$Gruss = "Hallo";
$Gruss1 = "Wie gehts es Ihnen Herr ";
@Name = ("Oleg","A","Bena","Tan","Alex","Grer","Die","Vol","Fr","San","Rog","Tob","Dan","Mic","Ron","Mel","Nad","Ka","Mar","Mial","Marus","Shers");
@Pass = ("so170770","ro123","panda","at123","aa123","bg123","bd123","cv123","df123","es123","gr123","gt123","gd123","hm123","hr123","km123","mn123","sk123","sm123","tm123","zm123","leh");
################# Ende Allen Konfigurationen ###################################################
################# Bitte weiter keine Änderungen vornehmen! WICHTIG !!! #########################
## Daten Auslesen und Wert +Value+ getrent von Wert +Name+ Speichern! ##
##################################################################################################
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
print "Content-type: text/html\n\n";
@Formularfelder = split(/&/, $Daten);
foreach $Feld (@Formularfelder)
{
($name, $value) = split(/=/, $Feld);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$Formular{$name} = $name;
$NAME = $Formular{$name};
$Formular{$value} = $value;
$Wert = $Formular{$value};
}
####################################################################################################
## Mit +FOR+ Schleife Ermiteln Wert +ARAY+ von +@Name+ und +@Pass+ ##
####################################################################################################
for ($i=0; $i<=21; $i++)
{
if ($Wert ne $Pass[$i] )
{ $Falsch = $i; }
else { $Richtig = $i; $i = 21; $Antwort = $Richtig; }
}
if ($Wert ne $Pass[$Richtig])
{
print "<html><head><title>Passwort</title><script language='JavaScript'>\n";
print "var Ende=0; function Uhrzeit(){ Zeit = new Date(); Std = Zeit.getHours(); Min = Zeit.getMinutes();\n";
print " Sek = Zeit.getSeconds(); SekNeu = Zeit.setSeconds(Math.floor(Sek / 2));\n";
print " Sek = Zeit.getSeconds(); if(Ende <=0) { timer1=setTimeout('Uhrzeit()',5000); Ende=Sek; }\n";
print " else {Add='$BooksURL/$bookfile'; window.location.href =Add; } } \n";
print "</script></head>\n";
print "<body bgcolor='#000000' text=red link='#ffff00' vlink='#ffff00' onLoad='Uhrzeit()'>\n";
print "<center><h1>Falsch</h1></center>\n";
print "Sie werden in 5 Sekunden weiter geleitet!<br><br>\n";
print "Sonst drücken Sie auf dieser Link---<a href='$BooksURL/$bookfile'>Weiter</a>--\n";
}
else {
print "<html><head><title>Passwort</title><script language='JavaScript'>\n";
print "var Ende=0; function Uhrzeit(){ Zeit = new Date(); Std = Zeit.getHours(); Min = Zeit.getMinutes();\n";
print " Sek = Zeit.getSeconds(); SekNeu = Zeit.setSeconds(Math.floor(Sek / 2));\n";
print " Sek = Zeit.getSeconds(); if(Ende <=0) { timer1=setTimeout('Uhrzeit()',5000); Ende=Sek; }\n";
print " else {Add='$BooksURL/$Intern'; window.location.href =Add; } } \n";
print "</script></head>\n";
if ($Pass[$Richtig] ne $Pass[24]) {
print "<body bgcolor='#ffffff' text='#ff0f0f' link=blau vlink='#ffff00' onLoad='Uhrzeit()'>\n";
print "<center><h1>$Gruss $Name[$Richtig]!</h1></center>\n";
print "<br><br>Du wirst in 5 Sekunden weiter geleitet!<br>\n";
print " Sonst drücken auf dieser Link---<a href='$BooksURL/$Intern'>Weiter</a>--\n";
}
else {
print "<body bgcolor='#ffffff' text='#ff0f0f' link=blau vlink='#ffff00' onLoad='Uhrzeit()'>\n";
print "<center><h1>$Gruss1 $Name[$Richtig]!</h1></center><br><br>\n";
print "Sie werden in 5 Sekunden weiter geleitet!<br><br>\n";
print " Anders Fall drücken Sie auf dieser Link---<a href='$BooksURL/$Intern'>Weiter</a>--\n";
}
}
print "</body></html>\n";
#################### Heppy End ###################################################################
[b]# my e-mail: [i]Oleg.Schneider@******.de[/i] [/b]
.
