[immortaL]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

###############   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 -- {<a href='(.*?)' title='.*? \| .*?'>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 "<span style=\"color: rgb\(255, 255," $html]] [expr [string last "<div class='post-footer'>" $html]]]
		foreach ip [split $ipno \n] {
		if { ![string match -nocase "*sock*" $ip] } {
		set line [lindex [string map {":" " " "<" ""} [string map {"Cleaned:" "" "Check Report:" "" "<pre class=\"alt2\" dir=\"ltr\" style=\"border: 1px inset ; margin: 0px; padding: 0px; overflow: auto; width: 500px; height: 300px; text-align: left;\"><span style=\"font-weight: bold;\">" "" "<div style='clear: both;'>" "" "<\/div>" "" "</span>" "" "<\/pre><br>" "" "<span style=\"color: rgb(255, 255, 255);\">" ""} $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 -- {<a href='(.*?)' title='.*? \| .*?'>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 name='more'><\/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 {":" " " "<pre class=\"alt2\" dir=\"ltr\" style=\"border: 2px inset ; margin: 0px; padding: 0px; overflow: auto; width: 500px; height: 300px; text-align: left;\"><span style=\"font-weight: bold;\"><span style=\"color: #66dd02;\">" "" "<\/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"