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

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 "#####################################"