DDOS на board.lutsk.ua

[D@ve]

to Shkoder А можна скріптік поюзать?

[Shkoder]

D@ve, можно. Perl стоит на машине?

[t0rik]

D@ve, можно. Perl стоит на машине?

В студию =) Езь канечно перл на машине ))

[kostya]

хакеры вас досят

http://board.lutsk.ua/index.php?showtopic=20999

еще и письмо скоро напишут

[Shkoder]

ловите

my $ipfw = "c:/windows/ipfw/bin/ipfw.exe";
my $stfile = "stats";
my %ports;
foreach ('80','443','21','25','110','3389','8080') {
	$ports{$_} = 1;
}
my %myips;
foreach ('192.168.1.1') {
	$myips{$_} = 1;
}
my $thres = 50;

while(!$-) {
	my %exips = ();
	system("netstat -a -n > $stfile");
	open(INF,"$stfile");
	while(<INF>) {
		my $inline = $_;
		chomp($inline);
		if ($inline =~ /ESTABLISHED/) {
			my ($oip,$a,$opr,$iip,$a,$ipr) = $inline =~ m/((\d+\.){3}\d+)\:(\d+)/g;
			if ((exists ($ports{$opr})) && (exists ($myips{$oip}))) {
				$exips{$iip} ++;
			}
		}
	}
	print "Last stats :\n";
	foreach (keys %exips) {
		my $eepnm = $exips{$_};
		my $eepee = $_;
		print $eepee." : ".$eepnm;
		if ($eepnm > $thres) {
			print " < blocked";
			system($ipfw." add deny ip from ".$eepee." to any");
			system($ipfw." add deny ip from any to ".$eepee);
		}
		print "\n";
	}
	close(INF);
	sleep(30);
}

думаю вопросов не возникнет