##
## proxy.tcl
## proxy girişleri için benzersiz koruma.
##
## Yapımcı: SAW
##
# Sunucu IP adresini belirtiniz.
set sunucuip "xxx"
#bind time - "30 * * * *" proxy:check
#bind time - "00 * * * *" proxy:check
bind time - "30 * * * *" proxy:check1
bind time - "00 * * * *" proxy:check1
bind time - "01 * * * *" proxy:socks
package require http
proc proxy:check {nick uhost hand chan text} {
set havasite "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set sayfa ""
catch {set sayfa [::http::geturl $havasite -timeout 30000]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
putquick "PRIVMSG $chan :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."
::http::cleanup $sayfa
return
}
if { [::http::status $sayfa] == "*timeout*" } {
putquick "PRIVMSG $chan :Hata: Bağlantı zaman aşımına uğradı.."
::http::cleanup $sayfa
return
}
set html [::http::data $sayfa]
::http::cleanup $sayfa
set bugun [strftime %Y-%m-%d]
set gh [open proxy2.txt w]
foreach y [split $html \n] {
if {[regexp {<td>[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}</td>} $y]} {
regexp -- {<td>(.*?)</td>} $y - ip
puts $gh $ip
}
}
close $gh
}
proc proxy:check1 {nick uhost hand chan text} {
set havasite "http://torstatus.blutmagie.de/"
set sayfa ""
catch {set sayfa [::http::geturl $havasite -timeout 30000]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
putquick "PRIVMSG $chan :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."
::http::cleanup $sayfa
return
}
if { [::http::status $sayfa] == "*timeout*" } {
putquick "PRIVMSG $chan :Hata: Bağlantı zaman aşımına uğradı.."
::http::cleanup $sayfa
return
}
set html [::http::data $sayfa]
::http::cleanup $sayfa
set gh [open proxy2.txt w]
foreach y [split $html \n] {
if {[string match -nocase "*</small></td></tr></table></td><td*" $y]} {
regexp -- {\/cgi\-bin\/.+>(.*?)</a>} $y - ip
puts $gh $ip
}
}
close $gh
}
proc proxy:socks {nick uhost hand chan text} {
set havasite "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set sayfa ""
catch {set sayfa [::http::geturl $havasite -timeout 30000]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
putquick "PRIVMSG $chan :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."
::http::cleanup $sayfa
return
}
if { [::http::status $sayfa] == "*timeout*" } {
putquick "PRIVMSG $chan :Hata: Bağlantı zaman aşımına uğradı.."
::http::cleanup $sayfa
return
}
set html [::http::data $sayfa]
::http::cleanup $sayfa
set acikmi 0
set gh [open proxy.txt w]
foreach y [split $html \n] {
if {[string match -nocase "*dir=\"ltr\">" $y]} { set acikmi 1 }
if {[string match -nocase "</pre>" $y]} { set acikmi 0 }
if {$acikmi == 1 && [regexp {[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\:[0-9]{2,5}} $y]} {
puts $gh [lindex [split $y :] 0]
}
}
close $gh
}
 
set portlar "1080,1081,3380,3381,16104,41188,20769,47712"
 
 
bind raw * notice clsnotice
proc clsnotice {from keyword arg} {
global portlar sunucuip
if { [string match "*Client connecting*" $arg] } {
if {[lindex $arg 6] == "on"} {set sa 10}
if {[lindex $arg 6] == "at"} {set sa 9}
if {[lindex [join [split [split [lindex $arg $sa] @] )]] 1] == "$sunucuip"} {return 0}
set ip [lindex [join [split [split [lindex $arg $sa] @] )]] 1]
if {![regexp {[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}} $ip]} {
set ip [dnslookup $ip dienes]
}
if {$ip == "un"} { putlog "Host çözülemedi.." ; return 0 }
set ::pr($ip) 0
pr:sbak $ip
if {$::pr($ip) == 0} {
foreach {x} [split $portlar \x2c] {
if {![catch {socket -async $ip $x} s]} {
fileevent $s writable[list check:sock $s $ip]
}
}
}
if {$::pr($ip) == 0} { pr:bak $ip }
}
}
proc check:sock {s ip} {
if {[string equal {} [fconfigure $s -error]]} {
putquick "gzline *@$ip :Proxy Girişi Tesbit Edilmiştir! \12Anti4Proxy System"
set ::pr($ip) 1
}
close $s
}
proc pr:bak {ip} {
set t [open proxy2.txt r]
set fg [unixtime]
while {1} {
set line [gets $t]
if {[eof $t]} {
close $t
break
}
if {$ip == $line} {
putquick "gzline *@$ip :Proxy Girişi Tesbit Edilmiştir! \12Anti4Proxy System By"
close $t
break
}
}
}
proc pr:sbak {ip} {
set t [open proxy.txt r]
set fg [unixtime]
while {1} {
set line [gets $t]
if {[eof $t]} {
close $t
break
}
if {$ip == $line} {
putquick "gzline *@$ip :Proxy Girişi Tesbit Edilmiştir! \12Anti4Proxy System"
set ::pr($ip) 1
close $t
break
}
}
}
 
proc dienes {ip host status} { 
if {!$status} {return un }
return $ip
}
putlog "proxy.tcl by SAW"