Hizli IP Proxy blocklama Sistemi

Kod Sahibi : Set
Merhabalar, Sunucuya giren hızlı proxy girisleri için yapilmiş bir korumadir.
Calisma sekli: Codda ekleme yapacaginiz yerlerin ustunde neler yazdigi belli sekilde görünmektedir.

on *:snotice:*connectaing*: {
  var %ip $left($token($10,2,64),-1), %ipbaslangic $token(%ipbaslangic,1,46)
  ;Muaf port'lari alttaki kısma ekliceksin ornek: 7001: gibi.
  if $istok(7001: 8001:,$8,32) { return }
  ;Altaki kısma muaf tutulan ip baslangiclari, oraya turk iplerinin baslangiclarini yazabilirsin, o sekil o ipler coddan etkilenmez.
  if !$istok(78 85 5 178 176 81 94,%ipbaslangic,32) {
   if $hget(ip,ban) { .gzline $9 +0 Proxy ban | .msg #w2 4 $9 2Proxy giris olarak algilandi. | return }
   ;Alttaki hadd kısmı Belirtigin ip baslangiclari dısında giren ip baslangiclarinin ip'lerini kayıt altina alir.
   hadd -mu20 ipler %ip $9
   ;Bu kısım belirttigin ip'ler dısında, girisleri kayit altina alir, 20 saniye'de 5 tane giris yapilirsa koruma kendini acar, ve direk o ipler dısındaki hepsine zline atar.
   if $hget(ipler,0).data >= 5 {
     hadd -mu60 ip ban on
     var %x 1
     while $hget(ipler,%x).data {
       gzline $v1 +0 Proxy ban!
       inc %x
     }
     .hfree -sw ipler
   }
  }
}

on *:snotice:*connectaing*: {

var %ip $left($token($10,2,64),-1), %ipbaslangic $token(%ipbaslangic,1,46)

;Muaf port'lari alttaki kısma ekliceksin ornek: 7001: gibi.

if $istok(7001: 8001:,$8,32) { return }

;Altaki kısma muaf tutulan ip baslangiclari, oraya turk iplerinin baslangiclarini yazabilirsin, o sekil o ipler coddan etkilenmez.

if !$istok(78 85 5 178 176 81 94,%ipbaslangic,32) {

if $hget(ip,ban) { .gzline $9 +0 Proxy ban | .msg #w2 4 $9 2Proxy giris olarak algilandi. | return }

;Alttaki hadd kısmı Belirtigin ip baslangiclari dısında giren ip baslangiclarinin ip'lerini kayıt altina alir.

hadd -mu20 ipler %ip $9

;Bu kısım belirttigin ip'ler dısında, girisleri kayit altina alir, 20 saniye'de 5 tane giris yapilirsa koruma kendini acar, ve direk o ipler dısındaki hepsine zline atar.