[轉貼]perl 防砍站

廣受客戶好評，滿足您的居家收納和風格，免費丈量設計
客製化系統家具，充分滿足居家空間機能需求

現場免費專人估價，廠房拆除、違章建築拆除
專業工程團隊，親切用心服務您！

首頁 ‧ j2h 論壇 ‧ 程式設計討論 ‧

[轉貼]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 人回應

姓名：
佈告內容：