[lnzaghi]

arkadaslar size proxy ve sunucu yogunlugu icin güzel bir koruma olan bu tcl i tavsiye ederim.
kullandim güzel calisiyor sizde kullanmak isterseniz buyrun.
bu tcl bazi arkadaslarimizin yazdigi tcl dir. benim degildir ben sadece proxy sitesini vs degistirdim.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

kolay gelsin!

Global kanallarinizi kendinize gore ayarLayiniz.








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"} {
set acik 2

putquick "SAMODE #Radyo +R"
putquick "SAMODE #Sohbet +R"
putquick "SAMODE #Kelime +R"
putquick "SAMODE #Oyun +R"
putquick "SAMODE #DiniSohbet +R"
putquick "SAMODE #Test +R"
putquick "SAMODE #yarisma +R"
putquick "SAMODE #Carkifelek +R"
putquick "SAMODE #islam +R"
putquick "SAMODE #Şiir +R"

set zamanlayici [timer 20 sure]
putserv "PRIVMSG #Opers :Sunucuya giriş yoğunluğu tesbit edilmiştir. Saldırı olasılığı yüksek olmasından dolayı tüm global kanallar 20Dk'Lığına +R (Şifresiz Nickler Giremez) moduna alınmıştır."

foreach nck $::gr {
putserv "ZLINE $nck 1h :Giriş yoğunluğu tesbit edilmiştir."

}
unset ::gr
}
}
}

proc girTas {} {
set ::gr [lrange $::gr 1 end]
}





bind raw * notice spam:connection
proc spam:connection {from keyword arg} {
global spam acik



if {[string match -nocase "*Client connecting on port*" $arg]} {
set dronebl "http://dronebl.org/lookup?ip="
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 connect7 [::http::geturl $dronebl$ip]
set filess [::http::data $connect7]
if {![string match -nocase "*No incidents*" $filess]} {
putquick "GZLINE *@$ip 12h Proxy Koruması!"
putquick "privmsg #Opers
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
anlanan Proxy/Spam IP: $ip"
::http::cleanup $filess
}
}
}



proc baksuna {ip host status} {
if {!$status} {return}
return $ip
}

proc sure {} {
global zamanlayici
putquick "SAMODE #Radyo -R"
putquick "SAMODE #Sohbet -R"
putquick "SAMODE #Kelime -R"
putquick "SAMODE #Oyun -R"
putquick "SAMODE #DiniSohbet -R"
putquick "SAMODE #Test -R"
putquick "SAMODE #yarisma -R"
putquick "SAMODE #Carkifelek -R"
putquick "SAMODE #islam -R"
putquick "SAMODE #Şiir -R"
putquick "Privmsg #Opers :2Global kanallar4 20 2dakikalık süre doldugu için otomatik olarak güvenlik modundan çıkmıştır. "

}




putlog "Spam Koruması"