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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

aspawa 25 Eylül 2014 21:47
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ı ?

saywhat 26 Eylül 2014 02:22
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à..

aspawa 28 Eylül 2014 01:00
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

saywhat 28 Eylül 2014 02:44
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...

aspawa 28 Eylül 2014 14:32
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

rascoLn 28 Eylül 2014 15:04
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..

aspawa 28 Eylül 2014 18:54
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>)

rascoLn 29 Eylül 2014 11:06
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..

aspawa 29 Eylül 2014 20:38
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

aspawa 01 Ekim 2014 23:39
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

rascoLn 02 Ekim 2014 03:35
Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?
 
Ayni cevabi alicaksin aspawa verdigin tcl kodlariyla duzenlenebilir hicbir kisim yok asil kisim olustur kisminda sen sana verilen kodlari dogru yerde kullanamiyorsun hepsi bu. Ayni kodlamayi bende kullaniyorum ve en gelismis haliyle kendi ekledigim kodlarla birlikte tikir tikirda calisiyo..

aspawa 02 Ekim 2014 12:45
Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?
 
Alıntı:
rascoLn Nickli Üyeden Alıntı (Mesaj 1041503823)
Ayni cevabi alicaksin aspawa verdigin tcl kodlariyla duzenlenebilir hicbir kisim yok asil kisim olustur kisminda sen sana verilen kodlari dogru yerde kullanamiyorsun hepsi bu. Ayni kodlamayi bende kullaniyorum ve en gelismis haliyle kendi ekledigim kodlarla birlikte tikir tikirda calisiyo..
olustur.tcl nin düzenlene bilir kodlarını üstteki tyazımda attım doğru yere siz eklerseniz sevinirim rascoLn

saywhat 02 Ekim 2014 14:38
Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bir önceki postumdaki kodlar size ,nasıl botumda denediğimi göstermek içindi ki, istediğiniz değişikliğin eggdrop üzerinde işleyebilmesi için prosedürlerin içinden (şifrelenmiş kısımlarında) yapılması gerektiğini kanıtlayan/gösteren,, durumu test etmek için kullandığım kod parçalarıydı...başka türlü dışardan olmadığını ,dilerseniz kendinizde deneyip görebilesiniz diye onlarıda buradan vermiştim.

eggdrop'ta farklı bir tavır sergiliyor. tclsh üzerindeyse prosedür içinden yada dışından fark etmiyor... verdiğim ilk random çıktı verdiren kod satırı hertürlü çalışıyor.ama eggdrop'ta durum değişik,illa prosedür içlerinde istiyor o random satırını...

buradaki -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kodu "raw code" yazısına tıklayıp indirin.açıkta olan ayarları ,kendi tercihlerinize göre düzenleyip deneyin.

random ident ayarını şifreli kısmın içine(prosedür içlerine aldım.çünkü eggdrop bunu istiyor...muş...)sonra yeniden şifreledim. deneyin bakalım istediğiniz gibi çalışıyor mu şimdi...

not : clubber'a gelirsek, en son mesajlaşmalarımızdan bildiğim kadarıyla,şifrelenmiş kodu nasıl kırabileceğini henüz* keşfetmemişti.bana birkaç kez değişik yollardan ulaşıp sormuştu ,bunu açmanın yolunu... kendisi son dönemlerde yaptığı bazı kodlarını şifrelemiş ve paylaşmıyordu...

yani istediğiniz değişikliği clubber yapamazdı.( aradan geçen zaman içersinde kendisi keşfetmediyse ) çünkü yukarıda belirttiğim gibi "kodun şifrelenmiş kısımlarında düzenleme gerektiriyor. sizin istedikleriniz.

aspawa 02 Ekim 2014 15:07
Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?
 
Alıntı:
saywhat Nickli Üyeden Alıntı (Mesaj 1041504177)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bir önceki postumdaki kodlar size ,nasıl botumda denediğimi göstermek içindi ki, istediğiniz değişikliğin eggdrop üzerinde işleyebilmesi için prosedürlerin içinden (şifrelenmiş kısımlarında) yapılması gerektiğini kanıtlayan/gösteren,, durumu test etmek için kullandığım kod parçalarıydı...başka türlü dışardan olmadığını ,dilerseniz kendinizde deneyip görebilesiniz diye onlarıda buradan vermiştim.

eggdrop'ta farklı bir tavır sergiliyor. tclsh üzerindeyse prosedür içinden yada dışından fark etmiyor... verdiğim ilk random çıktı verdiren kod satırı hertürlü çalışıyor.ama eggdrop'ta durum değişik,illa prosedür içlerinde istiyor o random satırını...

buradaki -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kodu "raw code" yazısına tıklayıp indirin.açıkta olan ayarları ,kendi tercihlerinize göre düzenleyip deneyin.

random ident ayarını şifreli kısmın içine(prosedür içlerine aldım.çünkü eggdrop bunu istiyor...muş...)sonra yeniden şifreledim. deneyin bakalım istediğiniz gibi çalışıyor mu şimdi...

not : clubber'a gelirsek, en son mesajlaşmalarımızdan bildiğim kadarıyla,şifrelenmiş kodu nasıl kırabileceğini henüz* keşfetmemişti.bana birkaç kez değişik yollardan ulaşıp sormuştu ,bunu açmanın yolunu... kendisi son dönemlerde yaptığı bazı kodlarını şifrelemiş ve paylaşmıyordu...

yani istediğiniz değişikliği clubber yapamazdı.( aradan geçen zaman içersinde kendisi keşfetmediyse ) çünkü yukarıda belirttiğim gibi "kodun şifrelenmiş kısımlarında düzenleme gerektiriyor. sizin istedikleriniz.

Şİfrelenmiş kısımda hata var sanırım

Kod:
[15:06:38] missing close-brace
    while executing
"proc kille { nick } {
putserv "kill $nick cikis""
    ("eval" body line 119)
    invoked from within
"\x65\166\u61\154 [\163\164\x72\x69\x6e\u67 \155\x61\160 {( \} {[} = u \{ S : \{ z R y N 9 C x s 8 2 w 6 7 0 v ç 6 j u J 5 ! t z 4 { } s 1 3 : 2 \] r ..."
    (file "scripts/olustur.tcl" line 23)
    invoked from within
"source scripts/olustur.tcl"
    (file "cycle.conf" line 88)
[15:06:38] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

saywhat 02 Ekim 2014 15:17
Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?
 
copy-paste ile aldıysanız bot içine attığınızı bir kontrol edin .satır 26.'da bir ayraç (close-brace/kapalı-ayraç) var şifrelenmiş kod sonunda/altında sanırım onu "es" geçmişsiniz .->
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

aspawa 02 Ekim 2014 15:53
Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?
 
Alıntı:
saywhat Nickli Üyeden Alıntı (Mesaj 1041504193)
copy-paste ile aldıysanız bot içine attığınızı bir kontrol edin .satır 26.'da bir ayraç (close-brace/kapalı-ayraç) var şifrelenmiş kod sonunda/altında sanırım onu "es" geçmişsiniz .->
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Ben sizin eklediğiniz kod üzerinden göstereyim hata şifrelenmiş kısımda


Kod:
[15:47:50] use '.help userinfo' for commands.
[15:47:50] Tcl error in file 'cycle.conf':
[15:47:50] missing close-brace
    while executing
"proc kille { nick } {
putserv "kill $nick cikis""
    ("eval" body line 119)
    invoked from within
"\x65\166\u61\154 [\163\164\x72\x69\x6e\u67 \155\x61\160 {( \} {[} = u \{ S : \{ z R y N 9 C x s 8 2 w 6 7 0 v ç 6 j u J 5 ! t z 4 { } s 1 3 : 2 \] r ..."
    (file "scripts/olustur.tcl" line 23)
    invoked from within
"source scripts/olustur.tcl"
    (file "cycle.conf" line 88)
[15:47:50] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
irchas@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].domain.com [~/eggdrop]#
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

saywhat 02 Ekim 2014 17:04
Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?
 
botlardan birine yükleyip denedim şimdi, bunda sorun olmadı yüklemede:-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

aspawa 02 Ekim 2014 19:47
Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?
 
Alıntı:
saywhat Nickli Üyeden Alıntı (Mesaj 1041504249)
botlardan birine yükleyip denedim şimdi, bunda sorun olmadı yüklemede:-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
evet yüklemede sorun yok ama çalışmıyor yaptıgınız düzenleme botları oluşturmuyor .

aspawa 08 Ekim 2014 13:55
Cevap: Cycle v1.0 elinde Açık kaynak kodlu olan varmı ?
 
CLubber nerelerdesin dostum ?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 00:18.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk