|
No_FeaR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
[22:43] * yolkadi_izler7268 (PowER_BiTT@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].Net-F9625516.telecom.net.ar) Çıktı (Connection reset by peer)
[22:43] * AntiFirLama8555 (izmirden@1.230.127.AAC7A8B7) Çıktı (Connection reset by peer)
[22:43] * Sevil5820 (ueFa@202.95.148.A2B594DC) Çıktı (Connection reset by peer)
[22:43] * PaPaX8512 (pelin_@65.167.25.E51C5391) Çıktı (Connection reset by peer)
[22:43] * BaTIkaN3000 (MANKENf@118.97.107.9036524D) Çıktı (Connection reset by peer)
[22:43] * DuBBing4821 (NesLiHan@190.207.234.35DFBC97) Çıktı (Connection reset by peer)
[22:43] * CoLgate7124 (Sertab@202.53.254.C7C3EEC3) Çıktı (Connection reset by peer)
[22:44] * AngeLica9710 (yelizzz@122.227.47.474F5B32) Çıktı (Z:lined (no reason))
[22:44] * zehragul_5332 (~yeLizZzuy@60.29.245.D0D29402) Çıktı (Z:lined (no reason))
[22:44] * SiGn7861 (TOROSLAR@192.3.172.C751C026) Çıktı (Z:lined (no reason))
[22:44] * BoTMeN7315 (SouLDarK@49.213.16.FA90303B) Çıktı (Z:lined (no reason))
Arkadaşlar Bunu Nasıl Önleyebiliriz ? Socket Ajan var Ama Bi Süre Sonra Oda İşlev Görmüyor..
|
|
| Alıntı: |
bind raw * notice spam:connection
proc spam:connection {from keyword arg} {
global spam
if {[string match -nocase "*Client connecting on port*" $arg]} {
set mecukefendi "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]="
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 4W2ingate11/2Socks11/2Tor11/2Prox4y 7Oto ban atma sisttemi Devrede Giriş izniniz bulunmuyor!"
::http::cleanup $files
}
}
}
proc baksuna {ip host status} {
if {!$status} {return}
return $ip
}
|
bu tcl kulanabilirsin bir nevi işine yarar..
Burdan bir Arkadaşımız paylaşmıştı aradım bulamadım