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

scriptin bazı kısımlarını paylaşırken şifremişler...
şifrelenmemiş kısımlarında sizin çalışmadığını söylediğiniz işlevleri bulunmuyor.
bi scripti hem paylaşıp hem şifreleme gereği duyduklarına göre ,bazı kişilerin "gereksiz" işlerle uğraşmalarından olsa gerek...
script yazarının adını silip kendi adını yazmak vs gibi...

ancak : Tcl bilen biri için şifreyi açmak son derece kolay bir iş . örnek :

Kod:

\145\u76\141\154 [\x73\164\u72\u69\u6e\147 \x6d\x61\x70 {e o a _ v n 0 . _ m {"} - 2 \} \] \] { } = \{ \\ n l ! \{ o k ) {[} \} + x {

} {    } i i ) t y l {    } g ( r x + h {$} g b w - v \\ f ( e k u {

} t f d 1 {$} m s c c y 2 = {"} d r s b w a h 1 {[} ! @ { } . 0 u p p @} m(\n@d(wnvw_(@=\{y_km\n(d\tm(d-0\ncn@h0.@gd(n(wm(i@st@skcwn\t=xm(\n@c\ncu\"-(dm\tev@=_km\n(d\tm(d-0\ncn@h0.@gd(n(wm(i@st@skcwn\t@rskcwn\trp+e\n_w\tn0ce_=xudec@_km\n(d\t@!@v\tco@k+em\n@+wvf@c+wv@wd\$@2@!x\$neswn@\n\$c+wv@\n\$c+wvy@se\nv\tco@v\tcon\tm\nx\t\\@!)\tmeu@1v\tco@1\n\$c+wvy\]2@!d(\nkdv@.2x\t\\@!1v\tco@\ \ @1se\nv\tco2@!d(\nkdv@.2xxl\t\\@!1c+wv@\ \ @1\n\$c+wv2@!xlm(\n@v\tcon\tm\n\\\tn(@)eu(v@1v\tcon\tm\n@d\]xlm(\n@vn\tm\n@)mun\t\n@)mksm\n@\"vece__wvfm@)d(wf@1v\tcon\tm\n\\\tn(\]\]@=\{v=\]xlm(\n@a\\\tn(@)eu(v@1v\tcon\tm\n@b\]@@@xll\\ed(wc+@\t@1vn\tm\n@!x@@@@l@@l\t\\@!)d(\$(ru@!g0\}i2@1\t@\n_u@(on(\]2@!xlll\t\\@!1(on(@\[\ @1v\tco2@!@uk\nm@1a\\\tn(@=1(on(=@2x@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ll2x@@@ll2xlcnem(@1a\\\tn(xlcnem(@1v\tcon\tm\n\\\tn(xl2xxl\t\\@!1c+wv@\ \ @1\n\$c+wvy2@!xlm(\n@v\tcon\tm\n\\\tn(@)eu(v@1v\tcon\tm\n@d\]xlm(\n@vn\tm\n@)mun\t\n@)mksm\n@\"vece__wvfm@)d(wf@1v\tcon\tm\n\\\tn(\]\]@=\{v=\]@@xll\\ed(wc+@\t@1vn\tm\n@!xllck\\ck\\@1\t@1\n\$c+wv@1\n\$c+wvyxlld(\nkdv@.xl@@@l2xlcnem(@1v\tcon\tm\n\\\tn(xl2xx2]

scriptteki şifreli kısımlardan biri bu yukardaki açıldığında:

Kod:

set realname "\2musteriserv.tcl 1.0 (release) by bucali"

set ctcp-version "musteriserv.tcl 1.0 (release) by bucali 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

proc musteri { nick uhost hand chan arg } {

global tgchan tgchan2 botnick nicklist

if {[isop $nick $tgchan2]} {return 0}

if {$nick == $botnick} {return 0}
 

    if {$chan == $tgchan} {

    set nicklistfile [open $nicklist r]

    set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]

    set _file [open $nicklist w]   

        foreach i $nlist {

              if {[regexp {(.+)} $i tmp ekle]} {

            if {$ekle != $nick} { puts $_file "$ekle" }

              }

           }

    close $_file

    close $nicklistfile

    }
 

    if {$chan == $tgchan2} {

    set nicklistfile [open $nicklist r]

    set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]  

        foreach i $nlist {

        cufcuf $i $tgchan $tgchan2

        return 0

           }

    close $nicklistfile

    }
 

}

bunu açmak birkaç saniyeme mal oldu...
sorun şu ki bu tarz "şifreleme" işlemi sırasında kod yapısı kolayca bozulabiliyor. scripti açan kişi/ler Tcl desteği ve bu şifrelenmiş kodu desteklemeyecek editörlerle açar/düzenleme yapmaya kalkarlarsa hele bozulması gayet olasıdır...

topik ile ilgili burada eggdrop/Tcl bölümünde ben hatırlıyorum birilerine topik kodu yazıp paylaştığımı arama yapın forumda bulursunuz. script içine ekleyip o işide halledersiniz.