Proxy ve Sunucuya Giris Yogunlugu Koruması
 

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. :)
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 :Banlanan 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ı"

Cevap: Proxy ve Sunucuya Giris Yogunlugu Koruması
 

Kode Olarak Verirsek Koplayanması Daha Güzel Olur.. (;
Tabi Botun Bu TCL'yi Uygulayabilmesi İçin, Nickinin Kayıtlı En Az Services Admin Olması ve OS Admin Listte Ekli Olması Gerekir.
Bilmeyenler İçin de Açıklamış Olalım.. (;

Cevap: Proxy ve Sunucuya Giris Yogunlugu Koruması
 

içerisindeki döngüde , "No incidents" geçiyor bu kullanıcıyıda atacaktır...

Cevap: Proxy ve Sunucuya Giris Yogunlugu Koruması
 

neden GhostLy :)

Cevap: Proxy ve Sunucuya Giris Yogunlugu Koruması
 

maalesef Çalıştıramadım ..seri girişlerde bile hiç bir tepki göstermiyor kanallara mode Almıyor düzeltebilirsen Kullanırım İyi Çalışmalar

Cevap: Proxy ve Sunucuya Giris Yogunlugu Koruması
 

diE kesintisiz calisiyor du bende hic bir problemi yok olmasi lazim