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

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

- - Proxy Koruması (https://www.ircforumlari.net/tcl-scriptler/196851-proxy-korumasi.html)

Cevap: Proxy Koruması

[22:05] Soru bankanizda 1710 soru bulunmakta

ne alaka :)

sanırım yanlış confu çalıştırıyosun.

Cevap: Proxy Koruması

Başta proxy.txt , proxy2.txt dosyalarını dolduruyor fakat 1 süre sonra proxy2.txt dosyası boşalmış oluyor sorun neden olabilir sizce ?

Cevap: Proxy Koruması

<HypnotiC> .tcl proxy:check a b c d e
<ProxySheild> Tcl:

<HypnotiC> .tcl proxy:socks a b c d e
<ProxySheild> Tcl:

<HypnotiC> .set errorInfo
<ProxySheild> [16:37] #HypnotiC# set errorInfo
<ProxySheild> Currently: can't read "state(after)": no such element in array
<ProxySheild> Currently: while executing
<ProxySheild> Currently: "after cancel $state(after)"

verilen 3 komutu botun consol'una girdim. verdiği karşılıklar yanlızca bunlar oldu. Botun herhangi 1 kanalda durmasına gerek yok demişsiniz ben #opers kanalında tutuyorum görüntü olsun diye ondan kaynaklanacak 1 problemde olacağını sanmıyorum. Neden 1 süre sonra bu .txt dosyalarının içeriği boşalıyor anlamadım gitti. Yardım bekliyorum :(

bu arada birseyin farkına vardım konuyu editliyorum :

.tcl proxy:socks a b c d e
.tcl proxy:check a b c d e

Bota konsoldan yukarıdaki 2 komutu girdiğimizde 2 .txt dosyasınıda problemsiz dolduruyor. Sanırım tcl bunu oto yapamıyor sorun orada manuel olarak yaptığımızda dosyalar doluyor buna böyle 1 çözüm yaratamazmısınız arkadaşlar mesela :

mirc scriptingdeki timers komutu gibi 5 dk da bir TCL botun bu 2 komutu uygulamasını sağlayabilirmiyiz ?

Cevap: Proxy Koruması

ArkadaşLar ßot serveRe giRiyoR nick şifResini vs GiriyoR. ama Oper şifreSini giRmiyor.. opeR kıSmı şu şekiLde de = putquick "OPER Proxy 45df64fd65d" -next ßu kıSımda ßi yanLışLık vaRmı ?

Cevap: Proxy Koruması

Kod:

 

#

# Eggdrop Conf

# 

# YiLdizChat.NeT

#

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

loadmodule channels

loadmodule server

loadmodule ctcp

loadmodule irc

loadmodule notes

loadmodule console

loadmodule blowfish

set username "YiLdizChat"

set nick "Y-Koruma"

set altnick "Proxy"

set my-ip "Server IP"

set my-hostname "YiLdizChat.Net"

set realname "12 14,1 4 « St ßy: ReSt14,14 » 4!:"

set init-server { 

putserv "identify Şifre" 

putserv "oper Nicki Şifresi"

putserv "MODE YiLdizChat +D"

}

set servers {
 Ip Adres:6668

}

channel add #Ops

channel add #Admin {

need-op { putserv "MODE #Admin +v Y-Koruma " }

}

set net-type 5

set owner "NICK"

set userfile "Sohbet.user"

set chanfile "Komik.chan"

logfile jpk #opers "logs/proxy.log"

set shortnick "Korku"

set home "#Admin"

set mod-path "modules/"

set help-path "help/"

set text-path "text/"

listen 3334 all

logfile msbxco * "logs/admin.log"

set console "mkcobxs"

loadmodule uptime

source scripts/userinfo.tcl

source scripts/alltools.tcl

source scripts/action.fix.tcl 

source scripts/proxy.tcl

Kardeş ßu Confu dene birde kırmızı yerleri kendine göre editlersin.

Cevap: Proxy Koruması

Kardeş bendede proxy.txt dosyalarını oluşturmadı daha aynen proxy.tclden sadece ipi değiştiğim gibi attım fttpye eggdropda girdi ama bitürlü oluşturmadı operde yazılı botta root. Sizce neden oluşturmadı bir fikri olan varmı hmmm SaW kardeş senin verdiğin conf olmadı başka bir confla soktum eggdrop sürümüm eggdrop1.6.17 sanırım bundan kaynaklanıyor verdiğin conf proxy.txtn oluşmamasıda bundan kaynaklanabilirmi ?

Cevap: Proxy Koruması

proxy.txt ler oluşuyor bot tamam fakat proxy.txt ler 0kb yanı boş 3 farklı bot kurdum yanlış olma ihtimaline karşı herşeyi ile kontrol ettim fakat sorun botlarla alakalı deil Saw nu konu hakkında bi açıklama yaparsan sevinirim tşkler.

Cevap: Proxy Koruması

set havasite [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
set havasite "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="black">ßu siteleri değişip daha güncel proxy sitesi girmekte yarar olur mu ?

ßirde attiği nickler yada proxy ile girmeye calişanlari bir kanala yansitmasi icin TCL ye nasil bir eklenti gerekli ?

Cevap: Proxy Koruması

Yani bu botun attiği banlari bi kanala yansitamiyoruz öyle mi ?

Cevap: Proxy Koruması

Alıntı:

ExpLoSive Nickli Üyeden Alıntı (Mesaj 783005)

İkinci sorun için ufak birşey yapabildim sanırım.

proxykorumasında sunucudan uzaklaştırken verdiği mesaja göre minik bir eklenti yapılabilir.

Kod:

bind raw * notice eknotice

proc eknotice {from keyword arg} {

 if { [string match "*Client exiting*Proxy Girişi Tesbit Edilmiştir*" $arg] } {  

   set proxynick [lindex $arg 6]

   set proxyip [lindex $arg 7]

putquick "PRIVMSG #Ban : 4 Merhaba 5 Proxy Koruması $proxyip ip adresinden giriş yapan $proxynick Kullanıcısında Proxy ip Tespit Etmiş ve Sunucudan Uzaklaştırmıştır."

}

}

Bunlar ne anlama geliyor?

Proxy koruması proxy girişi algılayıp gzline ile uzaklaştırınca Proxy Girişi Tesbit Edilmiştir. Şeklinde bir mesaj ekliyor. "Client exiting" ve "Proxy Girişi Tesbit Edilmiştir" bir arada gördüğünde yani bir anlamda Kullanıcı bot tarafından atıldığında Kullanıcı adını ve ip adresini #Ban isimli kanalda belirt anlamına geliyor. Botun Gireceği kanallar arasına #Ban kanalını eklemeyi unutmayın ya da #Ban kanalını zaten mevcut olan bir kanalla değiştirebilirsiniz. Unreal sürümünü Türkçeleştirenler raw mesajını kendileri düzenlerlerse çalıştırabilirler.
Farklı Türlü bir uygulaması da mevcut Fakat bu şekilde kolay oldu :)

Cevap: Proxy Koruması

merhaba, daha önceleri bu bot çok iyi çalışıyordu ama son zamanlarda hiç proxyleri atmaz oldu gibi birşey. ya sitelerde problem var yada başka birşey. tcl deki siteleri nasıl güncelleyebiliriz? yani nasıl daha fazla site ekleyebiliriz?

Cevap: Proxy Koruması

Artık Bot Güncellemiyor Proxy Listesini Eskiden Güzel Şekilde Atıyordu Ama Artık Listelere bakıyorum Proxy txt nin İkisinede Boş Bu 5 6 Gündür

Cevap: Proxy Koruması

Kontrol edip bakalım. Bu tarz sitelere bağlı çalışan scriptlerde, sitelerde değişiklik olduğu takdirde böyle olumsuzluklar çıkabiliyor.
Kontrol edeyim, değişmesi gereken yerler varsa günceller öyle veririz..

Cevap: Proxy Koruması

Tor listesinin çekildiği web sayfasında problem var Nebileyimben. Onu baska 1 adresten çektirebilirSen çok makbule geçecektir.

Saygılarımla.

Cevap: Proxy Koruması

şuan ben kullanıyorum bende herhangi bir sorun yok ;eek

Cevap: Proxy Koruması

Alıntı:

EHost-Gökhan Nickli Üyeden Alıntı (Mesaj 800838)

Tor listesinin çekildiği web sayfasında problem var Nebileyimben. Onu baska 1 adresten çektirebilirSen çok makbule geçecektir.

Saygılarımla.

Evet farkındayım. Tekrar düzelebilir diye hemen değiştirmek taraftarı değilim.

GemLik : Evet bot bu haliyle de zaten çalışıyor ve zaten bir çok proxy girişini tesbit ediyor ama arkadaşların dediği doğru, verileri çektiği sitelerden birinde şuan sorun var, eksik liste yapıyor yani.

Cevap: Proxy Koruması

Selam tşkler paylaşımın için fakat Torproxy sitesi kapali fakat tor programı hala çalişiyor uzun süre oldu saldirilar yeniden başladı nasıl çözebiliriz.?

Cevap: Proxy Koruması

Nebileyimben bu sitenin düzeleceği yok sanırım :) Başka 1 yerden çeksek iyi olacak müşterilerime çok harika çözüm sağlıyor bu bot millet yine basladı tor girişleri açık giriyorlar bilmemne. Zaten laf anlatamıyorum :) ne kadar problemi söylesemde adam anlamadığı için üzerime gelip duruyor :D

Cevap: Proxy Koruması

Önceden çok güzel işliyordu. Geçenlerde gördüm proxy ile saldırı yapılıyordu şaşırdım girdim listelere baktım

proxy2.txt 0 bytes olarak görünüyordu

Burada konsolda uygulanabilir komutlarıda uygulamama rağmen proxy2.txt dosyası hep 0 bytes görünüyor. Tor proxy listeside sanırım hiç güncellenmiyor.

[17:43:56] <aLi> .tcl proxy:check a b c d e
[17:43:56] <GvLk> Tcl:
[17:44:06] <aLi> .tcl proxy:socks a b c d e
[17:44:08] <GvLk> Tcl:
[17:44:22] <ALi> .set errorInfo
[17:44:22] <GvLk> [17:39] #aLi# set errorInfo
[17:44:23] <GvLk> Currently: can't read "state(after)": no such element in array
[17:44:23] <GvLk> Currently: while executing
[17:44:23] <GvLk> Currently: "after cancel $state(after)"

Umarım en kısa sürede çözülür :)

Cevap: Proxy Koruması

Pekala başka bir site ekleyeyim. Ama çok sağlam çok güncel bir site olması lazım.
En az 2-3bin adet tor+proxy adresi listelemesi lazım. Bir de bugünden yarına değişebilecek bir site olmasın, bloglar olmasın.
Site önerilerinizi alayım, içinden birini scriptimize uyarlar değiştiririz.

Cevap: Proxy Koruması

Alıntı:

Nebiliymben Nickli Üyeden Alıntı (Mesaj 806952)

Üstadım google amca'da dolaşırken şuraya rastladım. Ama geçmişini bilmiyorum ne kadar sağlamdır pek bilgim yok. Belki bir göz atmak istersin diye düşünüyorum.

" [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "
" [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "

Cevap: Proxy Koruması

Nebileyimben ? :( suna 1 çözüm ne olur ya

Cevap: Proxy Koruması

Yeni bir tor sitesi ekledim, ne kadar etkili olduğunu test etmeye fırsatım olmadı. Yeni dosyayı aşağıdan indirebilirsiniz.

Cevap: Proxy Koruması

Selam;
proxy2 yine boş sanırım eklediginiz siteden ipleri çekmiyor

Cevap: Proxy Koruması

Alıntı:

vural Nickli Üyeden Alıntı (Mesaj 815934)

Selam;
proxy2 yine boş sanırım eklediginiz siteden ipleri çekmiyor

Şu anda bende kullanıyorum. Herhangi bir problem vermiyor. Proxy2.txt ip adresleriyle dolu.

Bota consoldan bağlanıp

.tcl proxy:check1 a b c d e

komutunu uygulayın. Eğer proxy2.txt doluyor ise Bot kendisine belirtilen zaman aralıklarında tarama yaptığı için sizin baktığınız zamanda henüz tarama yapılmamış demektir.

Cevap: Proxy Koruması

Problem yok. Çalışıyor teşekkürler Nebileyimben

Cevap: Proxy Koruması

Yanarsam Böyle güzel paylaşım Yapanların Aramızdan ayrılmasına Yanarım.....

Cevap: Proxy Koruması

Evet Kendi isteği ile üyeliğini sildirdiğini biliyorum. Karşılık beklemeden bir çok projeye imza atmış bir arkadaşımız. Kendisine şahsım adına teşekkür ederim. Eggdrop yazılımlarında bir kısım yol almış isem yaptığı kodlamaların yardımların çok hakkı vardır.

Cevap: Proxy Koruması

Nebiliymben : ( üzüldüm gerçekten. Bu kişiye farklı yollardan ulaşamazmıyız ? 1 mail msn yada ne bileyim bulunduğu 1 sunucuyu bilen verebilecek olan varmı ?

Cevap: Proxy Koruması

Alıntı:

EHost-Gökhan Nickli Üyeden Alıntı (Mesaj 857721)

Nebiliymben : ( üzüldüm gerçekten. Bu kişiye farklı yollardan ulaşamazmıyız ? 1 mail msn yada ne bileyim bulunduğu 1 sunucuyu bilen verebilecek olan varmı ?

Yaptığı projelerde verdiği bir msn adresi var mynet uzantılı nebiliymben olarak aratırsan bulursun :)

Cevap: Proxy Koruması

Botun proxy.txt ya da proxy2.txt dosyalarının boş kaldığından şikayet edenler için çözüm:

catch {set sayfa [::http::geturl $havasite -timeout 5000]} error

satırlarındaki timeout sürelerini artırmaktır. 5000 olan timeout süresini 20000 ya da 30000 yapmayı deneyiniz, bu kadar yükseltmenin sorununuzu çözmesi lazım, hala devam ederse biraz daha yükseltebilirsiniz.

Cevap: Proxy Koruması

tesekkurler gzL payLasım

Cevap: Proxy Koruması

Bot Sürekli Kalmıyor 1 / 2 gün duruyor sonra düşüyor... Bunun Çözümü Yokmu ?

Cevap: Proxy Koruması

Acaba RSS'si olmayan bir vbulletin forumdan ve bir proxy sitesinden her gün yeni başlık açılarak eklenen proxy konularındaki ipleri eggdrop ile nasıl aldırabiliriz?

Cevap: Proxy Koruması

guzel hos korumada ekli sitlerin cogu kapali
saw hocam 3 site eklemisiniz biz bunu 10 siteye cikjara bilirmiyiz ve solye ibsi daha sormak istiyorum
gun.com icinde progy listesi yok ama gun.com/proxy5.html
yada degisiyor bu sekildemi sitelerin eklenmesi gerekiyor vs iste
birde kurulum tamam mirc tor ile giriyorum proxy2.txt ayin ip bar ama ban atmiyor neden acaba ? unreal eklememiz gereken birseymi var ?

Cevap: Proxy Koruması

Cr Serverlardada Işlermi ßu verdiğiniz kod ; yani gzline ßölümünü kLine ve/ya zline yapsak Eklesek ; Çalışırmı ?

Cevap: Proxy Koruması

Kod:

##

## proxy.tcl

## proxy girişleri için benzersiz koruma.

##

## Yapımcı: Saw

##
 

# Sunucu IP adresini belirtiniz.

set sunucuip "94.242.238.31"
 

#bind time - "30 * * * *"  proxy:check

#bind time - "00 * * * *"  proxy:check
 

bind time - "30 * * * *"  proxy:check1

bind time - "00 * * * *"  proxy:check1

bind time - "01 * * * *"  proxy:socks

package require http

proc proxy:check {nick uhost hand chan text} {

        set havasite "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set sayfa ""

        catch {set sayfa [::http::geturl $havasite -timeout 5000]} error

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

                putquick "PRIVMSG #Opers :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."

                ::http::cleanup $sayfa

                return

        }

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

                putquick "PRIVMSG #Opers :Hata: Bağlantı zaman aşımına uğradı.."

                ::http::cleanup $sayfa

                return

        }

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

        ::http::cleanup $sayfa

        set bugun [strftime %Y-%m-%d]

        set gh [open proxy2.txt w]

        foreach y [split $html \n] {

                if {[regexp {<td>[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}</td>} $y]} {

                        regexp -- {<td>(.*?)</td>} $y - ip

                        puts $gh $ip

                }

        }

        close $gh

}
 

proc proxy:check1 {nick uhost hand chan text} {

        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]} {

                putquick "PRIVMSG #Opers :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."

                ::http::cleanup $sayfa

                return

        }

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

                putquick "PRIVMSG #Opers :Hata: Bağlantı zaman aşımına uğradı.."

                ::http::cleanup $sayfa

                return

        }

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

        ::http::cleanup $sayfa

        set gh [open proxy2.txt 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

                }

        }

        close $gh

}
 

proc proxy:socks {nick uhost hand chan text} {

        set havasite "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set sayfa ""

        catch {set sayfa [::http::geturl $havasite -timeout 5000]} error

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

                putquick "PRIVMSG #Opers :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."

                ::http::cleanup $sayfa

                return

        }

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

                putquick "PRIVMSG #Opers :Hata: Bağlantı zaman aşımına uğradı.."

                ::http::cleanup $sayfa

                return

        }

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

        ::http::cleanup $sayfa

        set acikmi 0

        set gh [open proxy.txt w]

        foreach y [split $html \n] {

                if {[string match -nocase "*dir=\"ltr\">" $y]} { set acikmi 1 }

                if {[string match -nocase "</pre>" $y]} { set acikmi 0 }

                if {$acikmi == 1 && [regexp {[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\:[0-9]{2,5}} $y]} {

                        puts $gh [lindex [split $y :] 0]

                }

        }

        close $gh

}
 
 

set portlar "1080,1081,3380,3381,16104,41188,20769,47712"
 
 
 

bind raw * notice clsnotice

proc clsnotice {from keyword arg} {

 global portlar sunucuip

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

  if {[lindex $arg 6] == "on"} {set sa 10}

  if {[lindex $arg 6] == "at"} {set sa 9}

  if {[lindex [join [split [split [lindex $arg $sa] @] )]] 1] == "$sunucuip"} {return 0}

  set ip [lindex [join [split [split [lindex $arg $sa] @] )]] 1]

  if {![regexp {[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}} $ip]} {

     set ip [dnslookup $ip dienes]

  }

  if {$ip == "un"} { putlog "Host çözülemedi.." ; return 0 }

  set ::pr($ip) 0

  pr:sbak $ip

  if {$::pr($ip) == 0} {

  foreach {x} [split $portlar \x2c] {

   if {![catch {socket -async $ip $x} s]} {

        fileevent $s writable[list check:sock $s $ip]

   }

  }

 }

  if {$::pr($ip) == 0} { pr:bak $ip }

 }

}
 

proc check:sock {s ip} {

        if {[string equal {} [fconfigure $s -error]]} {

                putquick "gzline *@$ip :Proxy Girişi Tesbit Edilmiştir! \002Giremedigin Yer Senin Degildir..!\002"

                set ::pr($ip) 1

        }

        close $s

}
 

proc pr:bak {ip} {

   set t [open proxy2.txt r]

   set fg [unixtime]

   while {1} {

    set line [gets $t]

    if {[eof $t]} {

        close $t

        break

    }

    if {$ip == $line} {

        putquick "gzline *@$ip :Proxy Girişi Tesbit Edilmiştir! \002Giremedigin Yer Senin Degildir..!\002"

        close $t

        break

   }

  }

}
 

proc pr:sbak {ip} {

   set t [open proxy.txt r]

   set fg [unixtime]

   while {1} {

    set line [gets $t]

    if {[eof $t]} {

        close $t

        break

    }

    if {$ip == $line} {

        putquick "gzline *@$ip :Proxy Girişi Tesbit Edilmiştir! \002Giremedigin Yer Senin Degildir..!\002"

        set ::pr($ip) 1

        close $t

        break

   }

  }

}
 
 

proc dienes {ip host status} { 

   if {!$status} {return un }

   return $ip

}
 

putlog "proxy.tcl by Saw"

Bu proxy.tcl bende böle gözukuyor . oper şifre giricek yer göremiyorum yardımcı olacak var mı ? bunu çalıstırmak için ne yapmamız lazım komutları bilen var mı ?

Cevap: Proxy Koruması

Bu tcl. bunu eggdrop/scripts icine aticaksin. eggrop klasorundede conf un olucak orda botun ip sifre vs. belirliyceksin. ornek conflar var duzenleyebilirsin. en alttada tcl tanitma var source ile baslayan orayada ekleme yapip ./eggdrop -m bot.conf diye sokucaksin mobil girdigim icin detayli anlatamadim.