IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Anti Spam / Proxy TCL v1.0

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Anti Spam / Proxy TCL v1.0 - Coded by aLoNe (https://www.ircforumlari.net/tcl-scriptler/525617-anti-spam-proxy-tcl-v10-coded-alone.html)

Anti Spam / Proxy TCL v1.0 - Coded by aLoNe

Diyebilirim ki, çok aşırı bir etkinliği olmasa bile destek amaçlı kullanılabilir diye yazdığım bir TCL bu. Spam ve Proxy kontrolünü eggdrop 1.6.20 ve sonrası versiyonlarda çok hızlı yapıyor, 19 ve öncesi biraz daha tutukluk yapabiliyor. Test ettim ve olumlu sonuçlar aldım, ilk testte %75 gibi bir başarı oranı verdi. Daha çok tor/proxy yerine, bu tür engelleyicilerin es geçtiği spam IP'leri yakalamakta gayet güzel iş çıkarıyor.

PHP- Kodu:

   #Spam Checker by aLoNe
bind raw * notice spam:connection
proc spam:connection {from keyword arg} {
  global spam
  if {[string match -nocase "*Client connecting on port*" $arg]} {
    set mecukefendi "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set nick [lindex $arg 9]
    set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
    set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
    set ip [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
    if {![regexp {[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}} $ip]} {
      set ip [dnslookup $ip baksuna]
    }
    set connect [::http::geturl $mecukefendi$ip] 
    set files [::http::data $connect] 
    if {![string match -nocase "*not listed in*" $files]} {
      putquick "GZLINE *@$ip 12h Spam Koruması v1.0 Coded By aLoNe"
      putquick "privmsg #Opers :Banlanan Proxy/Spam IP: $ip"
      ::http::cleanup $files 
    }
  }
}

proc baksuna {ip host status} { 
  if {!$status} {return}
  return $ip
}

putlog "Spam Koruması v1.0 Coded By aLoNe"

* Yayınlamak isteyenler yapımcı bilgilerini silmesin.

* Eggdrop botunuza yükleyip kullanabilirsiniz, sorunsuzdur.

Destek için @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'a tşkler :V