IP-Sperre einbinden

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • 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:

    Quellcode

    1. #!/usr/bin/perl
    3. use CGI qw(:standard);
    5. my $cgi = new CGI;
    7. $parameter = $ENV{QUERY_STRING};
    9. $ip_adresse = $ENV{'REMOTE_ADDR'};
    11. $klick4win_keks1 = cookie("xxx");
    13. ($was,$url) = split(/\|/ , $parameter);
    17. $file = $url;
    19. $file =~ s/http|\/|:|www|-|\.|\?|\=//g;
    21. $datei = $file . ".txt";
    23. $log = $file . ".log";
    26. if ($klick4win_keks1) {
    28. print $cgi->redirect('xxx');
    30. exit;
    32. }
    33. else {
    35. if ($was eq "count") {&count;};
    37. if ($was eq "show"){&show;};
    39. sub einlesen{
    42. open (DATA, "<ips/$log");
    43. $ip = <DATA>;
    45. close (DATA);
    47. open (CLICKDATA,"<clicks/$datei");
    49. $clicks = <CLICKDATA>;
    51. close (CLICKDATA);
    53. if ($clicks eq ""){$clicks = "0";};
    55. if ($clicks eq "250"){$clicks = "0";};
    57. $clicks++;
    59. }
    63. sub show {
    65. &einlesen;
    67. print "Content-type: text/html\n\n";
    69. print "document.write('$clicks ');";
    71. if ($clicks eq "250") {print "document.write(' <a href=xxx><img src=xxx width=80 height=25 border=0 align=absmiddle></a>');";};
    73. exit;
    75. }
    79. sub ausgeben{
    81. open (CLICKDATA,">clicks/$datei");
    83. print CLICKDATA "$clicks";
    85. close (CLICKDATA);
    87. open (DATA,">ips/$log");
    89. print DATA "$ip_adresse";
    91. close (DATA);
    94. }
    98. sub count {
    100. &einlesen;
    102. if ($ip ne $ip_adresse){
    104. &ausgeben;
    106. }
    109. print "Location: $url\n\n";
    111. exit;
    113. }
    114. }
    Alles anzeigen