Neler yeni

Proxy.db Proxy Koruması

Disket

Moderatör
Katılım
24 Nis 2019
Mesajlar
1,000
Tepkime puanı
3
Konum
Ankara
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
}
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
}
 
Üst