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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Proxy.tcl (https://www.ircforumlari.net/tcl-scriptler/446728-proxytcl.html)

PHP- Kodu:

   ##### Ayarlar
set bot(prxydizin) "scripts/db/proxy.db"
set bot(logchan) "#MyLOG"
set bot(bansure) "1h"

bind time - "* * * * *"  proxy:check
bind time - "* * * * *"  db:yenile

package require http
proc db:yenile {type} {
       global bot server
       if {[file exists "$bot(prxydizin)"]} {
               set prxyfile [open "$bot(prxydizin)" r]
               set prxylines [split [read $prxyfile] "\n"]
               catch {close $prxyfile}
               set ::proxyliste ""
               set count 1
               foreach proxy $prxylines {
                       if {$proxy != ""} {
                               append ::proxyliste " [lindex $proxy 0]"
                               incr count
                       }

               }
       }
}


proc proxy:check {nick uhost hand chan text} {
    global server botnick bot server
       set havasite "http://torstatus.blutmagie.de/"
       set sayfa ""
       catch {set sayfa [::http::geturl $havasite -timeout 5000]} error
       if {[string match -nocase "*couldn't open socket*" $error]} {
               ::http::cleanup $sayfa
               return
       }
       if { [::http::status $sayfa] == "*timeout*" } {
               ::http::cleanup $sayfa
               return
       }
       set html [::http::data $sayfa]
       ::http::cleanup $sayfa
       set gh [open $bot(prxydizin) 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"
                       }
       }
       flush $gh
       catch {closer $gh}
}

proc noticeler {from keyword arg} {
       global botnick bot server girTas
       if {[string match "*Client connecting on port*" $arg] } {
               set nick [lindex $arg 9]
               set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
               set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
               set ident [lindex [split [lindex [split [lindex $arg 10] @] 0] (] 1]
               if {$bot(prxydurum) == "on"} {
                       utimer 4 [list putquick "NOTICE $nick :Lütfen bekleyin; bilgileriniz taraniyor.."]
                       utimer 4 [list putquick "NOTICE $nick :Bu işlem yaklaşik 7 saniye dürmektedir."]
                       utimer 5 [list putquick "x0 add $nick"]
                       if {[info exists ::proxyliste]} {
                               foreach prxy $::proxyliste {
                                       if {[string match -nocase $prxy $host]} {
                                               putquick "GZLINE *@$host $bot(bansure) Sunucumuza wingate/socks/tor/proxy kullanarak giris yapamazsiniz."
                                               putquick "PRIVMSG $bot(logchan) :\002***\002 PROXY Giriş : Nick:\002$nick\002 IP: \002$host\002 Ident: \002$ident\002 PORT:\002$port\002"
                                               return 0
                                       }
                               }
                       }
                       utimer 6 [list putquick "NOTICE $nick :$nick kontrol den başarılıbir şekilde gectiniz hoş sohbetler.."]
                       utimer 7 [list putquick "PRIVMSG OperServ RAW SVSJOIN $nick$bot(JChanKanallar)"]
               }
               putquick "PRIVMSG $bot(logchan) :\002***\002 Güvenli Baglanti: Nick:\002$nick\002 Ident: \002$ident\002 Host: \002$host\002 Port:\002$port\002"
               return 0
       }
}

putlog "#####################################"
putlog "#        PROXY.TCL Yüklendi          #"
putlog "#                                    #"
putlog "#        Coder by qeweSe             #"
putlog "#                                    #"
putlog "#####################################"

Cevap: Proxy.tcl

Kod:

utimer 7 [list putquick "PRIVMSG OperServ RAW SVSJOIN $nick$bot(JChanKanallar)"]

Nereye çekiyor bot kullanıcıları ?

Cevap: Proxy.tcl

en üste 2 kod eklemeyi unutmuşum

TCL nin başina

PHP- Kodu:

   set bot(prxydurum) "on"
set bot(JChanKanallar) "#sohbet,#oyun,#radyo"

Cevap: Proxy.tcl

Yaptım ama çalışmadı

Cevap: Proxy.tcl

aldiginiz hata nedir

Cevap: Proxy.tcl

cek.tcl kullan yoksa bana ulaş vereyim.

Cevap: Proxy.tcl

Bot sunucuya giriyor ama hiç bir tarama gercekleştirmiyor hata almıyorum

Cevap: Proxy.tcl

Alıntı:

AppendX Nickli Üyeden Alıntı (Mesaj 1041021040)

cek.tcl kullan yoksa bana ulaş vereyim.

Peki abi

Cevap: Proxy.tcl

Onla kanala çektik diyelim hadi de, proxy taraması da yapmıyo ki?

Cevap: Proxy.tcl

Bence Anlamsız bir şey :)

Cevap: Proxy.tcl

PHP- Kodu:

   proc noticeler {from keyword arg} {
       global botnick bot server girTas
       if {[string match "*Client connecting on port*" $arg] } {
               set nick [lindex $arg 9]
               set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
               set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
               set ident [lindex [split [lindex [split [lindex $arg 10] @] 0] (] 1]
               if {$bot(prxydurum) == "on"} {
                       utimer 4 [list putquick "NOTICE $nick :Lütfen bekleyin; bilgileriniz taraniyor.."]
                       utimer 4 [list putquick "NOTICE $nick :Bu işlem yaklaşik 7 saniye dürmektedir."]
                       if {[info exists ::proxyliste]} {
                               foreach prxy $::proxyliste {
                                       if {[string match -nocase $prxy $host]} {
                                               putquick "GZLINE *@$host $bot(bansure) Sunucumuza wingate/socks/tor/proxy kullanarak giris yapamazsiniz."
                                               putquick "PRIVMSG $bot(logchan) :\002***\002 PROXY Giriş : Nick:\002$nick\002 IP: \002$host\002 Ident: \002$ident\002 PORT:\002$port\002"
                                               return 0
                                       }
                               }
                       }
                       utimer 6 [list putquick "NOTICE $nick :$nick kontrol den başarılıbir şekilde gectiniz hoş sohbetler.."]
                       utimer 7 [list putquick "PRIVMSG OperServ RAW SVSJOIN $nick$bot(JChanKanallar)"]
                       putquick "PRIVMSG $bot(logchan) :\002***\002 Güvenli Baglanti: Nick:\002$nick\002 Ident: \002$ident\002 Host: \002$host\002 Port:\002$port\002"
               return 0
               }
       }
}

bu şekilde düzenleyin.. calişacaktir.

Cevap: Proxy.tcl

Kod:

global botnick bot server girTas

Global olarak belirttiğiniz girTas isimli numeric'e ait herhangi bir kod yok. Bu sebeplede botunuz çalışmayabilir.

Cevap: Proxy.tcl

girTas cagiriyor girtas a bagli bi kod olamadigindan calişir ama botu kullanan arkadaslar

PHP- Kodu:

   proc noticeler {from keyword arg} {

       global botnick bot server

       if {[string match "*Client connecting on port*" $arg] } {

               set nick [lindex $arg 9]

               set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]

               set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]

               set ident [lindex [split [lindex [split [lindex $arg 10] @] 0] (] 1]

               if {$bot(prxydurum) == "on"} {

                       utimer 4[list putquick "NOTICE $nick :Lütfen bekleyin; bilgileriniz taraniyor.."]

                       utimer 4[list putquick "NOTICE $nick :Bu işlem yaklaşik 7 saniye dürmektedir."]

                       if {[info exists ::proxyliste]} {

                               foreach prxy $::proxyliste {

                                       if {[string match -nocase $prxy $host]} {

                                               putquick "GZLINE *@$host $bot(bansure) Sunucumuza wingate/socks/tor/proxy kullanarak giris yapamazsiniz."

                                               putquick "PRIVMSG $bot(logchan) :\002***\002 PROXY Giriş : Nick:\002$nick\002 IP: \002$host\002 Ident: \002$ident\002 PORT:\002$port\002"

                                               return 0

                                       }

                               }

                       }

                       utimer 6[list putquick "NOTICE $nick :$nick kontrol den başarılıbir şekilde gectiniz hoş sohbetler.."]

                       utimer 7[list putquick "PRIVMSG OperServ RAW SVSJOIN $nick$bot(JChanKanallar)"]

                       putquick "PRIVMSG $bot(logchan) :\002***\002 Güvenli Baglanti: Nick:\002$nick\002 Ident: \002$ident\002 Host: \002$host\002 Port:\002$port\002"

                      return 0

               }

       }

}

şeklinde düzenleme yaparsa daha güzel calişir.

Cevap: Proxy.tcl

global server botnick bot server

demişsin.
Ama onları set ile belirtmemişsin.

proc noticeler demişsin ama bind de yok ortada.

Ayrıca yazım hataları var bu şekilde çalışmaz boşa uğraşmayın.
girTas olunca da çalışır olmassa daha iyi çalışır demen tamamen vahamet.
Editliyosun da bari iyi bişiler yap :) SaW 'ın proxy tcl sinin editlemesi sadece mesajlar değişik.

Sonuç fiyasko.

Cevap: Proxy.tcl

sorun cıkartma sorun cöz :)

ben bu kadarini yaptim sen daha iyisini yap

Cevap: Proxy.tcl

:))) Üzerinde çalışıyorum bunu stabil hale getirebilirsem paylaşıcam. Ama çok sorunlu :P
Şaka bi yana tek bi yerde hata var ama tcl bu bi yerde çıksa en dipten patlıyor. Bakcaz.

Cevap: Proxy.tcl

başarilarinin devamini dilerim :)