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

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:

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

}