IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Agresif girişte ban atacak TCL [istek] (https://www.ircforumlari.net/eggdrop-neostats-bnc/384619-agresif-giriste-ban-atacak-tcl-istek.html)

Agresif girişte ban atacak TCL [istek]

Sunucuya 5 saniye içerisinde 10 giriş yapıldığında bu aralıkta girenleri banlayacak bir tcl yapabilirmisiniz arkadaşlar. Birde mümkünse bu özelliği #Opers kanalından ;

!korumaon
!korumaoff

gibi açıp kapatma şansımız olsa müthiş olurdu. Yardımlarınız için şimdiden teşekkür ederim.

Cevap: Agresif girişte ban atacak TCL [istek]

Bunu yapabilecek olan arkadaşa ücreti neyse ödeyecem arkadaşlar : )

Cevap: Agresif girişte ban atacak TCL [istek]

ScanX'ın içinde, var bu tcl.

Oradan alıp kullanabilirsiniz isterseniz.

Kod:

bind raw * notice tsnotice

proc tsnotice {from keyword arg} {

global girTas

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

if {![info exists ::gr]} {

set ::gr [lindex $arg 9]

utimer 3[list girTas]

return 0

}

append ::gr " [lindex $arg 9]"

utimer 3[list girTas] 

if {[llength $::gr] >= "5"} { 

foreach nck $::gr {

putserv "GZLINE $nck 1h :\00305Giriş yoğunluğu tesbit edilmiştir. \00302(\00304ScanX\00302)\003"

}

unset ::gr

}

}

}

proc girTas {} {

set ::gr [lrange $::gr 1 end]

}

utimer3 arada boşluk olması gerek, forumdan dolayı çıkmıyor.