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

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

- - Eggdrop - Tor Bot TCL (https://www.ircforumlari.net/tcl-scriptler/525248-eggdrop-tor-bot-tcl.html)

Eggdrop - Tor Bot TCL

Kod:

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

##                                                          ## 

##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ## 

##      kendinize özel yapabilir yada asla değiştirmeden    ## 

##             mevcut hali ile kullanabilirsiniz            ## 

##                                                          ## 

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

set tor(sure) "360"

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

set tor(kanal) "#Log"

set tor(sebep) "Tor kullandığınız tespit edildiği için, sunucudan uzaklaştırıldınız."
 

if {![string match "*tor:guncelle*" [timers]]} { 

  timer $tor(sure) tor:guncelle 

} 
 

proc tor:guncelle {} { 

  global botnick tor

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

  close $cleans

  set writer [open $tor(klasor) "a"]

  catch {set connect [::http::geturl https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
3000]} error

  if {[string match -nocase "*couldn't open socket*" $error]} {

    putquick "PRIVMSG $tor(kanal) :Hata: Belirtilen siteye bağlanılamadı, lütfen daha sonra tekrar deneyiniz."

    ::http::cleanup $connect

    close $writer

  }

  if {[::http::status $connect] == "*timeout*"} {

    putquick "PRIVMSG $tor(kanal) :Hata: Belirtilen siteye bağlantı zaman aşımına uğradı, lütfen daha sonra tekrar deneyiniz."

    ::http::cleanup $connect

    close $writer

  }

  set files [::http::data $connect] 

  set list [split [subst -nocommands $files] "\n"]

  foreach ipadres $list {

    set bantype "ban user \{ mask *@$ipadres\; reason \"$tor(sebep)\"\; \}\;\n"

    puts $writer $bantype

  }

  close $writer

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

  set numara 0 

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

    incr numara

  } 

  close $countfile

  putquick "PRIVMSG IRC REHASH"

  putquick "PRIVMSG $tor(kanal) :› Koruma listesi güncelleniyor."

  putquick "PRIVMSG $tor(kanal) :› Eklenen IP: $numara"

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

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

  ::http::cleanup $connect

  timer $tor(sure) tor:guncelle

}
 

putlog "UnrealIRCD TOR TCL v1.0 - Written By CLubber"

* Eggdrop botunuz, proxy/tor sitesinden çektiği ip'leri tor.conf dosyasına ekleyerek sunucunuz için güncel proxy/tor.conf dosyası oluşturur.

* Tor süre ile belirtilen yer, botun ip adreslerini çekeceği süredir. 360 ile belirtilen: 6 saat.

* Tor kanal ile belirtilen yer, botun eklediği ip sayısını vereceği kanaldır.

* Tor klasör ile belirtilen kısımdaki "irclogin" kısmına telnet kullanıcı adınızı yazmanız gerekiyor, UnrealIRCD klasörünüzün adı farklı ise, Unreal3.2.8 olan kısmı kendinize göre değiştiriniz.

* Botun çalışması için öncelikle Unreal dizinine boş bir tor.conf atınız, daha sonra unrealircd.conf klasörüne;

Kod:

include "tor.conf";

Kodunu ekleyin ve sunucu üzerinde /REHASH komutunu uygulayın.

Kısacası bot sizin için güncel, günlük proxy/tor.conf oluşturur, bota herhangi bir komut uygulamanıza gerek yok, zaman aralığı (7200) belirtmeniz yeterli.

Kod Yazarı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]