IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:

###############   K O M U T L A R  B L M   ############# 

##                                                          ## 

##     Botumuzun sunucu rindeki n komutlar   ## 

##      kendinize l yapabilir yada asla detirmeden    ## 

##             mevcut hali ile kullanabilirsiniz            ## 

##                                                          ## 

############################################################## 
 

set tor(sure) "60"

set tor(klasor) "/home/irclogin/Unreal3.2/tor.conf"

set tor(kanal) "#Log"

set tor(sebep) "Tor kullandiginiz tespit edildigi icin, sunucudan uzaklastirildiniz."
 

utimer 10[list tor:guncelle]
 

proc tor:guncelle {} {

  global botnick tor

  set cleans [open $tor(klasor) "w"] 

  close $cleans

  

  set x 0

  set proxy1 0

  set proxy2 0

  set proxy3 0

  

  set sayfa1 [::http::geturl https://www.socks24.org/ -timeout 5000]

        set htm [::http::data $sayfa1]

        ::http::cleanup $sayfa1
 

                foreach htmm [split $htm \n] {

                if { [string match -nocase "*Read more »<\/a>*" $htmm] } {

                regexp -- {Read more »<\/a>(.*)$} $htmm -> link htmm

if {$x == 4} {break}

    set sayfa [::http::geturl $link -timeout 5000]

        set html [::http::data $sayfa]

        ::http::cleanup $sayfa

                set ipno [string range $html [expr [string first "" $html]]]

                foreach ip [split $ipno \n] {

                if { ![string match -nocase "*sock*" $ip] } {

                set line [lindex [string map {":" " " "<" ""} [string map {"Cleaned:" "" "Check Report:" "" "

" "" "" "" "<\/div>" "" "" "" "<\/pre>" "" "" ""} $ip]] 0]

                if {![string match "" $line]} {

                set gh [open $tor(klasor) a]

                puts $gh "ban user \{ mask *@$line\; reason \"$tor(sebep)\"\; \}\;"

                close $gh

                }

                }

                incr proxy1

                }

                }

                incr x

                }
 

        set sayfa2 [::http::geturl https://irc-proxies24.blogspot.com.tr/ -timeout 5000]

        set htm1 [::http::data $sayfa2]

        ::http::cleanup $sayfa2

set x 0

                foreach htmm1 [split $htm1 \n] {

                if { [string match -nocase "*Read more »<\/a>*" $htmm1] } {

                regexp -- {Read more »<\/a>(.*)$} $htmm1 -> link1 htmm1

if {$x == 4} {break}

    set sayfa3 [::http::geturl $link1 -timeout 5000]

        set html1 [::http::data $sayfa3]

        ::http::cleanup $sayfa3

                set ipno1 [string range $html1 [expr [string first "<\/a>" $html1]] [expr [string last "<\/span><\/span><\/pre>" $html1]]]

                foreach ip1 [split $ipno1 \n] {

                if { ![string match -nocase "*sock*" $ip1] } {

                set line1 [lindex [string map {":" " " "" "" "<\/span><\/span><\/pre>" "" } $ip1] 0]

                if {![string match "" $line1]} {

                set gh1 [open $tor(klasor) a]

                puts $gh1 "ban user \{ mask *@$line1\; reason \"$tor(sebep)\"\; \}\;"

                close $gh1

                }

                }

                incr proxy2

                }

                }

                incr x

                }

                catch { exec wget "https://www.dan.me.uk/torlist/" } torlist

                if {![string match "*Forbidden*" $torlist]} {

                set dosyaoku [open "index.html" r]

                set verial [split [read $dosyaoku] \n]

                close $dosyaoku

                foreach yazdir $verial {

                if {![string match "" $yazdir]} {

                set yol [open $tor(klasor) a]

                puts $yol "ban user \{ mask *@$yazdir\; reason \"$tor(sebep)\"\; \}\;"

                close $yol

                incr proxy3

                }

                }

                } else {

                set proxy3 0

                }

                exec rm -rf "index.html"

                

  set countfile [open $tor(klasor) "r"] 

  set numara 0 

  while {[gets $countfile line] >= 0} { 

    incr numara

  } 

  close $countfile

  putquick "REHASH"

  putquick "PRIVMSG $tor(kanal) :Koruma listesi gelleniyor."

  putquick "PRIVMSG $tor(kanal) :Siteler :"

  putquick "PRIVMSG $tor(kanal) :Sock24 :\[\0034 $proxy1 \003\] IP"

  putquick "PRIVMSG $tor(kanal) :Irc-proxies24 :\[\0034 $proxy2 \003\] IP"

  putquick "PRIVMSG $tor(kanal) :Dan.me.uk :\[\0034 $proxy3 \003\] IP"

  putquick "PRIVMSG $tor(kanal) :Conf'a Eklenen IP:\[\0034 [expr $proxy1 + $proxy2 + $proxy3] \003\] IP"

  if { [file size $tor(klasor)] < 1048576 } {

  putquick "PRIVMSG $tor(kanal) :Tor.Conf Dosya Boyutu:\00312 [file size $tor(klasor)] \003kbyte"

  } else {

  putquick "PRIVMSG $tor(kanal) :Tor.Conf Dosya Boyutu:\00312 [file size $tor(klasor)] \003mbyte"

  }

  putquick "PRIVMSG $tor(kanal) :Ban Tipi: GZLINE"

  putquick "PRIVMSG $tor(kanal) :Eklenen Klas $tor(klasor)"

  timer $tor(sure)[list tor:guncelle]

}
 

putlog "UnrealIRCD TOR TCL v2.0 - By rascoLn"