Opened by Gast at 2006-02-20 21:35
User since
2006-02-20
5 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-02-20
5 Artikel
BenutzerIn
So, entschuldigung dass mein vorheriger post etwas
ungehobelt klang, bin etwas im stress mit der geschichte :o(
Stand:
Das Skript geht soweit, er erkennt nur kein passwort!
in aktion kann man sich das ganze unter www.attempted-arson.de angucken, unter 'bonus'.
Er gibt immer die 'zugriff verweigert' message aus...
ungehobelt klang, bin etwas im stress mit der geschichte :o(
Stand:
Das Skript geht soweit, er erkennt nur kein passwort!
in aktion kann man sich das ganze unter www.attempted-arson.de angucken, unter 'bonus'.
Er gibt immer die 'zugriff verweigert' message aus...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $THRU = "0";
my $PASSWORD = param('code');
my $salt = substr $PASSWORD, 0, 2;
my $guess = crypt($PASSWORD, $salt);
open(USERLIST, "<users") or die "Can't open user list: $!\n";
while (my $PWS = <USERLIST>) {
chomp($PWS);
if ( $PWS eq $guess ) { $THRU = "1"; };
}
close USERLIST;
print "Content-type: text/html\n\n";
print "<html>\n";
print "<body bgcolor=\"#000000\" text=\"#00FF00\" link=\"#FFFFFF\" vlink=\"#CCCCCC\" alink=\"#FFFFFF\" background=\"img/frame/bg.jpg\" bgproperties=\"fixed\">\n";
print "<table width=\"511\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">\n";
print " <tr>\n";
print " <td> <center>\n";
if ($THRU eq "1") {
print "Wilkommen!\n";
};
if ($THRU eq "0") {
print " <br>\n";
print " <br>\n";
print " <br>\n";
print " <br>\n";
print " <br>\n";
print " <br>\n";
print " <br>\n";
print " <br>\n";
print "Zugang verweigert. Falscher code.\n";
};
print " </td>\n";
print " </tr>\n";
print "</table>\n";
print "</html>\n";
print "\n\n";
exit (0);