[轉貼]perl 防砍站

房東：小胖仔
發表時間：2007-03-01

這個程式是利用perl + 一些系統指令完成的
主要的資料來源是利用netstat的連線紀錄來判斷的

#!/usr/bin/perl
# 防砍站小程式
# 肉腳梁楓製作
# v 0.0超級不穩版
# 製作日期：2003.1.31
# 版權 GPL

# 資料設定

$Max_Connect_Number = 300; # 最多能有多少連結
$IPFW_Number = 950; # 防火牆規則設定在第幾條規則沒必要可以不動
$PATH = '/tmp/'; # 暫存檔路徑
$Netstat = 'temp1'; #暫存檔1 沒必要就不用亂動了！
$CN = 'temp2'; #暫存檔2 沒必要就不用亂動了！C

#系統設定

$USR_BIN_PATH = '/usr/bin/';
$BIN_PATH = '/bin/';
$SBIN_PATH = '/sbin/';

#以下就可以不用動了

system("$USR_BIN_PATH"."netstat -na > $PATH$Netstat");

open(IPFW,$PATH.$Netstat);
open(IPFW2,">$PATH$CN") ||die("can't open IPFW2 file\n");

while($line = ){
$line =~ s/ +/,/g;
print IPFW2 "$line" || die("can't input IPFW2");

}
close IPFW;
close IPFW2;
system("$BIN_PATH"."rm -rf $PATH$Netstat");
system("$USR_BIN_PATH"."cut -f 1,5 -d , $PATH$CN > $PATH$Netstat");
open(IPFW,$PATH.$Netstat);
open(IPFW2,">$PATH$CN");
while(){
($line[0],$line[1],$line[2]) = split(/,/);
chomp($_);

chomp($line[0],$line[1]);
if($line[0] eq "tcp4"){
($IP[0],$IP[1],$IP[2],$IP[3]) = split(/\./,$line[1]);
if($IP[0] > 1 and $IP[0] != 127){
if($IP[0] == 61 and $IP[1] == 63 and $IP[2] == 145 and $IP[3] >= 65 and $IP[3] <= 94){}else{
print IPFW2 "$IP[0].$IP[1].$IP[2].$IP[3]\n";
}
}
}
}
close IPFW;
close IPFW2;
system("$USR_BIN_PATH"."sort $PATH$CN | $USR_BIN_PATH"."uniq -c > $PATH$Netstat");

open(IPFW,$PATH.$Netstat);
open(IPFW2,">$PATH$CN");
while($line = ){
$line =~ s/ +/,/g;
($IP[0],$IP[1],$IP[2])=split(/\,/,$line);
if($IP[1] >= $Max_Connect_Number){
chomp($IP[2]);
system("$SBIN_PATH"."ipfw add $IPFW_Number deny IP from $IP[2] to me");
system("$SBIN_PATH"."ipfw add $IPFW_Number deny IP from me to $IP[2]");
print "$SBIN_PATH"."ipfw add $IPFW_Number deny IP from $IP[2] to me\n";
}
}
close IPFW;
close IPFW2;
system("$BIN_PATH"."rm -rf $PATH$Netstat;rm -rf $PATH$CN");

贊助網站

廣利不動產-板橋在地生根最實在--新板特區指名度最高、值得您信賴的好房仲
完整房訊，房屋、店面熱門精選物件，廣利不動產優質仲介，房屋租賃、買賣資訊透明，交易真安心！
廣利不動產-新板特區指名度最高、值得您信賴的好房仲
您的托付,廣利用心為您服務

　共 0 人回應

姓名：

佈告內容：

其他選項: