Cevap: Proxy Koruması
 

Şimdiye kadar bu tarz bir şikayet almadık, aynısını ben de kullanıyorum, böyle bir sorun yaşamıyoruz. İstersen herşeyi baştan kurmayı dene, conf olarak da bu konu altında daha önce örnek conf olarak gösterdiğim confu kullanmayı deneyebilirsin.

Cevap: Proxy Koruması
 

Kurdum 6 saat oldu ama txt oluşmadı gerekli yerleride dogru yaptım. Hata da almadım sonuca bir anlam veremedim.

Cevap: Proxy Koruması
 

s.a arkadaşlar şu proxy korumasını tcl ile confunu editledim bot sunucuyaada girio proxy.txt ve proxy2.txt leri kuruyo ama sunucuda hiçbir işlev görmüyo proxy.txt ve proxyt2.txt içleride boş sanırım veri alamıyo sitede ben denedim girmeye çalıştım [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] zaten buna girmio diğerinde ise [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] giriyo sorun ne aceba yardımcı olcak arkadaş var mı ?

Cevap: Proxy Koruması
 

Bendeki bot ise hiç oluşturmadı.

Cevap: Proxy Koruması
 

slm buna Bak Kardes

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Proxy Koruması
 

Bot sorunsuz çalışıyor, mutlaka bir yerlerde hata yapıyorsunuzdur, yazılanları dikkatlice okuyup baştan kurmanızı öneriyorum. Tavsiyem: tcl içerisinde editlemenizi söylediğim yerlerden daha fazlasına dokunmayın, conf olarak ise [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]verdiğim confu kullanın

Cevap: Proxy Koruması
 

Sadece ip aralığını girdim o kadar üstad

Cevap: Proxy Koruması
 

tcl de editlemiz gerekn yer sadece sunucu ip adresi deil mi? nereye editlemiz gerekiyo

Cevap: Proxy Koruması
 

##
## proxy.tcl
## proxy girişleri için benzersiz koruma.
##
## Yapımcı: SaW
##
# Sunucu IP adresini belirtiniz.
set sunucuip "188.40.255.97"
bind time - "30 * * * *" proxy:check
bind time - "00 * * * *" proxy:check
bind time - "01 * * * *" proxy:socks
package require http
proc proxy:check {nick uhost hand chan text} {
set havasite "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set sayfa ""
catch {set sayfa [::http::geturl $havasite -timeout 5000]} 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:socks {nick uhost hand chan text} {
set havasite "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set sayfa ""
catch {set sayfa [::http::geturl $havasite -timeout 5000]} 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! \002Proxy Check System By SaW\002"
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! \002Proxy Check System By SaW\002"
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! \002Proxy Check System By SaW\002"
set ::pr($ip) 1
close $t
break
}
}
}

proc dienes {ip host status} {
if {!$status} {return un }
return $ip
}
putlog "proxy.tcl by SaW"


sadece ip adresini değişmicek miyiz?

Cevap: Proxy Koruması
 

# Sunucu IP adresini belirtiniz.
set sunucuip "91.191.161.83"
bind time - "30 * * * *" proxy:check
bind time - "00 * * * *" proxy:check
bind time - "01 * * * *" proxy:socks

Kırmızı olan yere sunucu IP yazıyoruz başka bir editleme yok zaten nebileymben üstadın acıklaması böyle idi.