Çevrimiçi

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ı"

 

Çevrimdışı

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.. (;

 

Çevrimiçi

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

__________________
SANAL IRC - irc.sanal.org

 

Çevrimdışı

neden GhostLy
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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

 

Çevrimiçi

diE kesintisiz calisiyor du bende hic bir problemi yok olmasi lazim