| |
|
21 Haziran 2009, 01:37
| #81 | ||||
| Çevrimdışı  IF Ticaret Sayısı: (0) | 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. | ||||
| |  |
| IRCForumlari.NET Reklamlar |
   |
|
26 Haziran 2009, 11:40
| #83 |
| Çevrimdışı  IF Ticaret Sayısı: (0) | 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ı ? Konu MeeT tarafından (26 Haziran 2009 Saat 12:01 ) değiştirilmiştir. |
| | |
|
26 Haziran 2009, 11:54
| #85 | ||||
| Çevrimdışı IF Ticaret Sayısı: (0) | Cevap: Proxy Koruması
slm buna Bak Kardes [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod: Kodu kopyalamak için üzerine çift tıklayın!
Konu ustad38 tarafından (26 Haziran 2009 Saat 12:02 ) değiştirilmiştir. | ||||
| | |
|
26 Haziran 2009, 11:54
| #86 |
| Çevrimdışı IF Ticaret Sayısı: (0) | 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 |
| | |
|
26 Haziran 2009, 11:58
| #87 |
| Çevrimdışı IF Ticaret Sayısı: (0) | Cevap: Proxy Koruması Kod: Kodu kopyalamak için üzerine çift tıklayın!
Sadece ip aralığını girdim o kadar üstad |
| | |
|
26 Haziran 2009, 12:07
| #89 |
| Çevrimdışı IF Ticaret Sayısı: (0) | 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? |
| | |
|
26 Haziran 2009, 12:08
| #90 |
| Çevrimdışı IF Ticaret Sayısı: (0) | 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. |
| | |
 |
| Etiketler |
| korumasi, koruması, proxy |
| Konuyu Toplam 6 Üye okuyor. (0 Kayıtlı üye ve 6 Misafir) | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| IRC Proxy Koruması | aLSanCak | mIRC Scripting Sorunları | 3 | 07 Haziran 2017 01:09 |
| Proxy Koruması | MaryMy | mIRC Scripting Sorunları | 3 | 25 Mart 2014 18:39 |
| Clone Koruması Proxy Koruması ve SaldırıProgramına OnLem KOdu Lazım | neobre | mIRC Scripting Sorunları | 13 | 09 Ekim 2009 00:07 |
| Proxy Koruması ( Koruma Icın Proxy Lıstesı Lazım) | Heavenly | mIRC Scripting Sorunları | 2 | 05 Temmuz 2009 20:09 |
| Help!! Proxy Koruması | By_GuRbey | mIRC Scripting Sorunları | 11 | 08 Eylül 2008 16:11 |
Normal
