Delay Join TCL v2.0 - Online IRC Tor/Proxy Taraması

[No_FeaR]

* Bu TCL ile, sunucunuza bağlanan kullanıcılara tarama yaptırarak sunucunuzun güvenliğinizi kolayca sağlayabilirsiniz.

* Delay Join ve Proxy Koruması birleştirilmiştir, Kısacası kullanıcı sunucunuza bağlandığında bot kanallara almadan online web sitesinden tor/proxy olup olmadığına bakar.

* Proxy/Tor olarak algıladığı kullanıcıyı uzaklaştırır, temiz bulduğu kullanıcıları tor(kanal) olarak belirlediğiniz kanallara çeker.

* Temiz bulduğu kullanıcılara mesaj atıp, belirttiğiniz süre zarfı sonunda "5 - 10 sn." kanallara çeker.

* Kanallara alınmadan kullanıcı tarandığı için kanal genelinde herhangi bir karmaşa/kirlilik olmaz.

* TCL Yapımcısı: CLubber

* Not: $time[list bu bölümdeki $time ile [ arasında boşluk olması gerekmektedir, aksi taktirde bot çalışmaz.

  
   
###############   K O M U T L A R  B Ö L Ü M Ü   #############

##                                                          ##

##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##

##      kendinize özel yapabilir yada asla değiştirmeden    ##

##             mevcut hali ile kullanabilirsiniz            ##

##                                                          ##

##############################################################





set tor(kanal) "#Sohbet,#Radyo,#Oyun"

set tor(sure) "5"



bind raw * notice tor:connection

proc tor:connection {from keyword arg} {

  global tor

  if {[string match -nocase "*Client connecting on port*" $arg]} {

    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 dienes]

    }

    set connect [::http::geturl http://rbls.org/$ip] 

    set files [::http::data $connect] 

    if {[string match -nocase "*listed in*other blacklists*" $files]} {

      putquick "GLINE *@$ip 12h Tor Koruması v3.0 Coded By CLubber"

      ::http::cleanup $files 

    }

    if {[string match -nocase "*not listed in any blacklists*" $files]} {

      utimer $tor(sure)[list putquick "sajoin $nick $tor(kanal)"]

      ::http::cleanup $files 

    }

  }

}



proc dienes {ip host status} { 

  if {!$status} {return}

  return $ip

}



putlog "Delay Join TCL v2.0 - Written By CLubber"

DİPNOT ; TCL'nin Yapım Tarihi 2011 Olduğundan Dolayı Proxy Çektiği Site Kapanmış veya Güncellenmemiş Olabilir, Gerekli Kontrolleri Yapabilirsiniz.