| 吸引顧客視線，好的廣告招牌很重要 各式招牌客製設計、製作，現場免費估價請洽！ |  | 各式廠商輕鬆找，不怕你比價，免費刊登 鎖定客群，強力放送，品牌竄紅就靠這一招 |
| 吸引顧客視線，好的廣告招牌很重要 各式招牌客製設計、製作，現場免費估價請洽！ | | 各式廠商輕鬆找，不怕你比價，免費刊登 鎖定客群，強力放送，品牌竄紅就靠這一招 |
[轉貼]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\"); |
廣利不動產-板橋在地生根最實在--新板特區指名度最高、值得您信賴的好房仲 完整房訊，房屋、店面熱門精選物件，廣利不動產 優質仲介，房屋租賃、買賣資訊透明，交易真安心！ 廣利不動產-新板特區指名度最高、值得您信賴的好房仲 您的托付,廣利用心為您服務 |