Wtf was ist das für eine Datei ?

[[DEV]MinusKind™]

Hay, wollte fragen was das für eine Datei ist und was für ein Sinn hat die und ob die auch wirklick Funktioniert. ?

PHP Code:

#!/usr/bin/perl

use strict;

my @assholes = ();

open (IN, "/var/log/auth.log");
while (<IN>) {
            if ($_ =~ /Invalid user.*from ([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)/) {
                            push(@assholes, $1);
            }
            if ($_ =~ /Did not receive identification string from ([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)/) {
                            push(@assholes, $1);
            }
}
close (IN);

@assholes = sort {lc($a) cmp lc($b)} @assholes;

my @allowedIPs = ();
open (IN, "/var/db/allowed-ips");
while (<IN>) {
            if ($_ =~ /[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+/) {
                            push(@allowedIPs, $_);
            }
}
close (IN);

chop(@allowedIPs);

my $tmp = "";
foreach my $asshole (@assholes) {
            if ($asshole eq $tmp) {
                            $asshole = "";
            } else {
                            if ($asshole =~ /127\.0\.0\.1/) {
                                            $asshole = "";
                            }
                            if ($asshole =~ /192\.168\.[0-9]+\.[0-9]+/) {
                                            $asshole = "";
                            }
                            foreach my $allowedIP (@allowedIPs) {
                                            if ($asshole =~ /$allowedIP/) {
                                                            $asshole = "";
                                            }
                            }
                            $tmp = $asshole;
            }
}

@assholes = sort {lc($b) cmp lc($a)} @assholes;

my $popCount = 0;
foreach my $asshole (reverse @assholes) {
            if ($asshole eq "") {
                            $popCount++;
            }
}

for (my $i = 0; $i < $popCount; $i++) {
            pop (@assholes);
} 


[.Monkey]

Ist neh Funktion.

[IgorGlock]

Is'ne Perl Firewall

^^ ********

[-Zhui-]

Wo ist denn die?

[[DEV]MinusKind™]

Ja und was bringt die ? wäre auch noch Hilfreich..

[.Cyous]

Hey,

Mit diesem Script kannst du anscheind IP's erlauben und sperren.

my @allowedIPs = (); 
open (IN, "/var/db/allowed-ips"); 
while (<IN>) {

my $tmp = ""; 
foreach my $******* (@********) { 
            if ($******* eq $tmp) { 
                            $******* = "";

dieses $******* bestimmt wohl die Blacklist .

Gruß,
.Cyous

[TheRzR]

Es wird geschaut, wer sich mit falschen Passwort z.b. anmeldet. Sollte das vorkommen wird die IP gesperrt.

[.Shōgun]

It's a script to ban bruteforcers. Better install fail2ban.