IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

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

- - Cycle v1.0 elinde Açık kaynak kodlu olan varmı ? (https://www.ircforumlari.net/tcl-scriptler/616997-cycle-v10-elinde-acik-kaynak-kodlu-olan-varmi.html)

Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

Bilindiği üzere Cycle v1.0 deki olustur.tcl nin kodları şifreli bu yüzden herhangi bir düzenleme yapılamıyor elinde şifresiz olan varmı yada yada ident ve ip adreslerini rastgele göstericek şekilde düzenlenmiş varmı ?

Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

"şifresini" açtım baktım "olustur..tcl"'ye,

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
burada oluşturuyor. hostları random oluştururken ident'i yukarıdaki şifrelenmemiş kısmında bulunan set ident ".." ayarından alıyor.
( böyle bir ayar olmasa, $ident sizin shell üzerindeki "kullanıcı adınızı" verir. oidentd kuruluysa ve eggdrop'ta buna istinaden .oidentd.conf oluşturacak bir kodunuz var ise yada oidentd. tcl'si yüklenmişse bunu oluşturmak için,ki bunlarda genellikle botun set username "..." ayarında girilmiş olan rumuz*'u kullanırlar ve oluşturulan oidentd.conf'ta botun set username'i görünür. bu durumda da set ident ayarı olmadan o olustur.tcl'de ,$ident bunu yani başka birşey ayarlanmamışsa botun username'ini verirdi.)

konuya gelirsek... koddaki :

Kod:

set ident "..."

ayarını / satırını:

Kod:

set identlerim {

"bla"

"blah"

"aham"

}
 

set ident [lindex $identlerim [expr { int(rand() * [llength $identlerim]) }]]

şeklinde değişin.set identlerim ayarı içinde ,örnekteki gibi "random" oluşturulacak identlerinizi "tırnaklar içine alarak" alt alta girip,çoğaltın.... voilà..

Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

Alıntı:

saywhat Nickli Üyeden Alıntı (Mesaj 1041498045)

konuya gelirsek... koddaki :

Kod:

set ident "..."

ayarını / satırını:

Kod:

set identlerim {

"bla"

"blah"

"aham"

}
 

set ident [lindex $identlerim [expr { int(rand() * [llength $identlerim]) }]]

şeklinde değişin.set identlerim ayarı içinde ,örnekteki gibi "random" oluşturulacak identlerinizi "tırnaklar içine alarak" alt alta girip,çoğaltın.... voilà..

saywhat yazdıgın kodu aynen ekledim ama kodda sorun var sanırım sadece ortadaki identi okuyor diğerlerini okumuyor aşağıdaki gibi

Sonbahar (+blah@<unknown>)
bekarbey56M (+blah@<unknown>)
phhammarcy (+blah@<unknown>)
serdar37 (+blah@<unknown>)

Son olarak ipadreslerini gerçek user gibi gösterebilirmiyiz

Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

şimdi aspawa , şöyle açıklamaya çalışayım ;

ben her kodu bota atıp denemiyorum genellikle böyle kod parçalarını tclsh üzerinde deniyorum. botta denemeye kalksam ,botun içi kod parçalarıyla bir sürü "çöp" denebilecek script parçaları/denemeleriyle dolup taşardı...

yukarıda yazdığımı da tclsh üzerinde denedim , ki resimlerde de göreceğin gibi, her kodu işlememde beklendiği/istendiği gibi gelişigüzel bir tanesini çıktı olarak verdi.bende alıp buraya yazdım ...haliyle ...->

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

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

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

şimdi sen deyince "yok olmadı" diye küçük bir deneme kodu yazıp bota attım.->

Kod:

set identlerim {

 "bla"

 "blah" 

 "aham" 

 "falan" 

 "filan" 

 "cart" 

 "curt" 

 "ahanda" 

 "amanin" 

 "oy-oy" 

 "yo-yo"

}
 

set i "1"
 

set ident [lindex $identlerim [expr { int(rand() * [llength $identlerim]) }]]
 

bind pub - "ident" ident:deneme
 

proc ident:deneme {nick uhost hand chan text} {

   puthelp "privmsg $chan :$::i -> $::ident"

   incr ::i

}

gibi...

sonuç :-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gerçektende söylediğiniz gibi tclsh'de çalışan şey botta çalışmadı.dediğiniz gibi hep aynısını atmakta ısrar etti. birkaç farklı yol denedim başka başka ama hep sonuç aynı oldu entresan bir şekilde...

ta ki ... ->

Kod:

set identlerim {

 "bla"

 "blah" 

 "aham" 

 "falan" 

 "filan" 

 "cart" 

 "curt" 

 "ahanda" 

 "amanin" 

 "oy-oy" 

 "yo-yo"

}
 

set i "1"
 

bind pub - "ident" ident:deneme
 

proc ident:deneme {nick uhost hand chan text} {

   puthelp "privmsg $chan :$::i -> [lindex $::identlerim [expr { int(rand() * [llength $::identlerim]) }]]"

   incr ::i

}

prosedür dışından alıp içeri atınca aynı gelişigüzel çıktı verdiren satırı :->

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bekleneni yaptı... bu gerçekten "beklenmedik" ilginç bir tavır ki "neden" eggdrop üzerinde böylesi "farklı" bir tutum sergiliyor bilemiyorum..anlamsız doğrusu...ama görünen durumu budur...

diğer bahsettiğiniz " gerçek user gibi gösterme" konusuna gelirsek, bu olustur.tcl'de sanırım açıkta olmayan, "şifrelenmiş" kısımlarında kalan bir ayarı var , "set abc ..." denmiş:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] resimdeki gibi harfleri,sayıları tek tek sıralamış alt alta, sonrada bunları sahte hostu gelişigüzel bir şekilde oluşturmak için prosedür içinde kullanmış.->

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ... yani yukarda ident için yaptığımıza benzer bir durumu prosedür içinde host kısmı oluşturmak için kullanılmış.

şimdi siz bunu değişmemizi (sanırım gerçek user gibi derken , çıplak IP adresleri görünsün,maskelenmiş gibi görünmesin * demek istiyorsunuz.. en azından ben öyle anladım.) istiyorsunuz ,ancak şöyle bir durum var ki.; kodu hazırlayan kişiyi ben tanımam,görüşmüşlüğümüz vs yoktur..
zaten bu forumdaki kimseyle bir "geçmişimiz" vs var denemez ya...

konu şu ki sizin bu yapılmasını istediğiniz değişiklikler,hep kodun "şifrelenmiş" örtülmüş kısımlarında kalmış,yukarda denediğimiz gibi prosedür dışından yapmaya çalıştığımız değişiklik ,eggdrop üzerinde beklenen sonucu vermiyor.
illa ki prosedür içinden yani gizlenmiş,dokunulmasını,görülmesini istemediği yerlerden halletmek gerekiyor...

benim başkasının gizlemeye çalıştığı şeyi onun bilgisi,izni olmadan burada yada başka yollarla açık etmem,açıp şifresiz haliyle herhangi bir yolla paylaşmam mümkün değil. etik de değil bana göre...

tüm bu nedenlerle size bu konuda yardım edemeyeceğim,kusura bakmayın.çünkü istediğiniz değişikleri ancak şifrelenmiş kısımlarını değiştirip modifiye ederek yapabilirim ki buda ,açık şekilde düzenlenmiş halini postalamam anlamına gelir.

şurada ,kodun altında-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iletişime geçebileceğiniz e-posta adresini vermiş. kendisiyle görüşün ,eğer gönlü olursa, kendisi ,sizin istediğiniz düzenlemeyi yapar verir.
yoksa benim bu durumda daha fazla yapabileceğim birşey yoktur...

Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

ilginiz için teşekkür ederim lakin verdiğiniz kod çalışmadı kanala herhangi bir bot girmiyor bu seferde

Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

Kod:

set identlerim { 

"bla"  

"blah"   

"aham"   

"falan"   

"filan"   

"cart"   

"curt"   

"ahanda"   

"amanin"   

"oy-oy"   

"yo-yo" 

}  
 

set ident [lindex $identlerim [rand [llength $identlerim]]]

Birde bu şekilde denermisiniz..

Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041500219)

Kod:

set identlerim { 

"bla"  

"blah"   

"aham"   

"falan"   

"filan"   

"cart"   

"curt"   

"ahanda"   

"amanin"   

"oy-oy"   

"yo-yo" 

}  
 

set ident [lindex $identlerim [rand [llength $identlerim]]]

Birde bu şekilde denermisiniz..

Malesef olmadı verdiğiniz kod

nişanlı (+yo-yo@<unknown>)
maksatmuhabbet (+yo-yo@<unknown>)
phhammarcy (+yo-yo@<unknown>)
ali (+yo-yo@<unknown>)

Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

prosedur icindemi kullanıyorsunuz bu kodları yoksa dışındanmı cekiyorsunuz

dışından çekiyorsanız eğer ;

Kod:

set ident [lindex $identlerim [rand [llength $identlerim]]]

kısmını prosedur dışından silelim ve prosedur içinde sadece ;

Kod:

os raw nick nick 1 1 [lindex $identlerim [rand [llength $identlerim]]] host services :fullname

olarak kullanalım.

eğer bu sekilde yapmak istemezseniz veilen kodların hepsini prosedur icine alınız ve $ident degiskeni ile çalıştırınız..

Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

Kod:

#### Botların identi ####

set identlerim { 

"bla"  

"blah"   

"aham"   

"falan"   

"filan"   

"cart"   

"curt"   

"ahanda"   

"amanin"   

"oy-oy"   

"yo-yo" 

}  
 

set ident [lindex $identlerim [rand [llength $identlerim]]]
 

#### Botların Oluşturulacağı Services ####

set services "services.domain.com"
 

#### Botların Fullname'i ####

set fullname "domainim"
 

#### Bota özelden !basla komudunu verecek olan nick ####

set admin "admin"
 

#### raw komudu için arada beklemesi gereken zaman ####

set gecikme_zamani "3"
 

#### Logları alacağı klasör ####

set logs "scripts/logs.txt"

tclenin düzenlene bilir kısmı bu

Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?

Bu işi CLubber çözer ama oda forumda pek aktif değil sanırım