Leser: 1
4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl
### Define Login and PW
$MeinLogin = "EinLogin";
$MeinPW = "SuupergeheimesPW";
$SecretURL = "[URL=http://www.sonstewo.de/geheim.html;]http://www.sonstewo.de/geheim.html";[/URL]
### Read POST input
local ($i, $key, $val);
read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
@in = split(/&/,$in);
foreach $i (0 .. $#in){
($key, $val) = split(/=/,$in[$i],2);
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
$in{$key} = $val;
}
### Compare and forward to secret page
if(($MeinLogin eq $in{'login'}) && ($MeinPW eq $in{'userpw'})) {
print "Location: $SecretURL\n\n";
} else {
print "Falsches Login/Passwort!";
}
4 Einträge, 1 Seite |