No_FeaR
22 Mart 2015, 14:11
* 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 [::[Only Registered Users Can See Links] [Only Registered Users Can See Links]$ip]
set files [::[Only Registered Users Can See Links] $connect]
if {[string match -nocase "*listed in*other blacklists*" $files]} {
putquick "GLINE *@$ip 12h Tor Koruması v3.0 Coded By CLubber"
::[Only Registered Users Can See Links] $files
}
if {[string match -nocase "*not listed in any blacklists*" $files]} {
utimer $tor(sure)[list putquick "sajoin $nick $tor(kanal)"]
::[Only Registered Users Can See Links] $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.
* 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 [::[Only Registered Users Can See Links] [Only Registered Users Can See Links]$ip]
set files [::[Only Registered Users Can See Links] $connect]
if {[string match -nocase "*listed in*other blacklists*" $files]} {
putquick "GLINE *@$ip 12h Tor Koruması v3.0 Coded By CLubber"
::[Only Registered Users Can See Links] $files
}
if {[string match -nocase "*not listed in any blacklists*" $files]} {
utimer $tor(sure)[list putquick "sajoin $nick $tor(kanal)"]
::[Only Registered Users Can See Links] $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.