Merhaba, 500.000 'e yakın proxy.db oluşturdum ve proxy koruması olarak sizlerle bu db'i kullanmak istedim firsat buldukça proxy.db 'e yeni ipler ekleyeceğim.. veya kendi dbnizi oluşturup daha önce paylaşılmış olan tcl bu şekilde kullana bilirsiniz.. iyi çalışmalar..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw * notice spam:connection
proc spam:connection {from keyword arg} {
global spam
if {[string match -nocase "*Client connecting on port*" $arg]} {
set mecukefendi "http://urunler.org/proxy.db"
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 "*$ip*" $files]} {
putquick "GZLINE *@$ip +0 Spam/Advertising"
putquick "privmsg #Opers :Proxy/Spam IP: $ip"
::http::cleanup $files
}
}
}
proc baksuna {ip host status} {
if {!$status} {return}
return $ip
}