IP-Sperre einbinden

mycros

Professional

Posts: 155

Thursday, September 7th 2006, 1:58pm

IP-Sperre einbinden

Hi,

hab mir jetzt ein Script gebastelt mit dem Klicks gezählt werden. Jeder User soll aber nur einmal klicken dürfen. Deshalb hab ich das schon über cookies gemacht. Da aber nicht jeder die Cookies akzeptiert wollte ich das ganze noch mit einer IP-Sperre regeln. Das sollte dann eigentlich reichen, um nahezu guten Schutz bieten zu können.

Die IP-Sperre soll wie folgt aussehen. Die IPs sollen in eine Datei gespeichert werden und nach 24 Stunden gelöscht werden. Bei jedem Klick soll dann gesprüft werden, ob die IP schon vorhanden ist bzw. die Zeit abgelaufen ist.

Hier mal der code:

Perl Quellcode

#!/usr/bin/perl
 
use CGI qw(:standard);
 
my $cgi = new CGI;
 
$parameter = $ENV{QUERY_STRING};
 
$ip_adresse = $ENV{'REMOTE_ADDR'};
 
$klick4win_keks1 = cookie("xxx");
 
($was,$url) = split(/\|/ , $parameter);
 
 
 
$file  = $url;
 
$file  =~ s/http|\/|:|www|-|\.|\?|\=//g;
 
$datei = $file . ".txt";
 
$log   = $file . ".log";
 
 
if ($klick4win_keks1) {
 
print $cgi->redirect('xxx');
 
exit;
 
}
else {
 
if ($was eq "count") {&count;};
 
if ($was eq "show"){&show;};
 
sub einlesen{
 
 
   open (DATA, "<ips/$log");
    $ip = <DATA>;
 
   close (DATA);
 
   open (CLICKDATA,"<clicks/$datei");
 
    $clicks = <CLICKDATA>;
 
   close (CLICKDATA);
 
   if ($clicks eq ""){$clicks = "0";};
 
   if ($clicks eq "250"){$clicks = "0";};
 
   $clicks++;
 
}
 
 
 
sub show {
 
   &einlesen;
 
    print "Content-type: text/html\n\n";
 
    print "document.write('$clicks ');";
 
    if ($clicks eq "250") {print "document.write(' <a href=xxx><img src=xxx width=80 height=25 border=0 align=absmiddle></a>');";};
 
   exit;
 
}
 
 
 
sub ausgeben{
 
   open (CLICKDATA,">clicks/$datei");
 
    print CLICKDATA "$clicks";
 
   close (CLICKDATA);
 
   open (DATA,">ips/$log");
 
    print DATA "$ip_adresse";
 
   close (DATA);
 
 
}
 
 
 
sub count {
 
   &einlesen;
 
   if ($ip ne $ip_adresse){
 
     &ausgeben;
 
   }
 
 
    print "Location: $url\n\n";
 
   exit;
 
}
}