![]() |
![]() |
![]() |
#1 |
![]()
Üyelik tarihi: 27 Ocak 2015
Bulunduğu yer: Denizli Mesajlar: 136 WEB Sitesi: www.AlemTR.com IRC Sunucusu: www.AlemTR.com İlgi Alanı: Alınan Beğeni: 69 |
![]()
* 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. Kod:
############### 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. ![]() Aynı Dünyada Yaşamamalı Cellatlar Ve Çocuklar . Ya Ölmeli Cellatlar,Yada Hiç Doğmamalı Çocuklar...! Konu No_FeaR tarafından (22 Mart 2015 Saat 14:14 ) değiştirilmiştir. |
![]() |
Alıntı
|
Etiketler |
delay, irc, join, online, taraması, tcl, tor or proxy, v20 |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Stil | |
|
|
![]() |
||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Güncel Proxy 22-01-17 | Fast Proxy Server List | Ahmet | Güncel Proxy Liste(leri) | 0 | 22 Ocak 2017 09:39 |
Güncel Proxy 21-01-17 | Fast Proxy Server List | Ahmet | Güncel Proxy Liste(leri) | 0 | 21 Ocak 2017 19:55 |
Güncel Proxy 21-01-17 | Free Proxy Server List (2182) | Ahmet | Güncel Proxy Liste(leri) | 0 | 21 Ocak 2017 19:55 |
Güncel Proxy 21-01-17 | Fast Proxy Server List | Ahmet | Güncel Proxy Liste(leri) | 0 | 21 Ocak 2017 19:55 |
Güncel Proxy 21-01-17 | Free Proxy Server List (2607) | Ahmet | Güncel Proxy Liste(leri) | 0 | 21 Ocak 2017 19:55 |