Encrypt

[Sir_Fz]

The code you want to be obfuscated should be between #OBF and #/OBF. See user's example.

[lsn]

ok, i tryied to do the exact code of user

Code: Select all

proc demobf args { 
#OBF 
   return "Hello world" 
#/OBF 
}

and i get exacly the same error

Code: Select all

[17:49:01 lsn@*** ~]$ tclsh8.4 tcl x.tcl z.tcl
0 parts obfuscated.
[17:49:17 lsn@*** ~]$ cat z.tcl
proc demobf args {
#OBF
   return "Hello world"
#/OBF
}

Sugestions ?

[Sir_Fz]

Just tried it on my shell and it worked perfectly. Saved the code to obf.tcl and the code that I wanted to obfuscate to obfex.tcl:

Code: Select all

Fz@core:~$ tclsh8.4 obf.tcl obfex.tcl obfex2.tcl
1 part obfuscated.
Fz@core:~$ cat obfex2.tcl
proc demobf args {
\u75\u70\x6c\x65\u76\u65\u6c \60 [\x73\164\x72\151\x6e\x67 \155\141\160 {{ } o d n w l r H l w H u o e e d u t n {"} t r {"} { }} {"""touHtd"nroww "l twen}]
}

[]Kami[]

Don't use notepad or any similar editor use pico or nano.

I had problems when i was using notepad

[KrzychuG]

Actually you can use any editor which can save files in UNIX format (for example MED or Editplus for Windows).

[lsn]

Seems like i finally done it. thanks

[iamdeath]

...

I am getting this error:

I saved your code in encrypt.tcl
l.tcl contains:

Code: Select all

proc demobf args {
#OBF
   return "Hello world"
#/OBF
}

Code: Select all

[cricket@bell(~/eggdrop)] $ tclsh8.0 encrypt.tcl l.tcl l1.tcl
wrong # args: should be "string first string1 string2"

Can you please explain more how it works, I did'nt get you I am sorry.

[metroid]

Update your TCL version, 8.0 is old.

[iamdeath]

Okay tclsh8.4 upgraded this time it does'nt encrypt, creates output.tcl but does'nt encrypts that.

Code: Select all

[cricket@bell(~/eggdrop)] $ tclsh8.4 encrypt.tcl l.tcl l2.tcl
0 parts obfuscated.

Where l.tcl is:

Code: Select all

proc demobf args {
#OBF
   return "Hello world"
#/OBF
}

and l2.tcl is:

Code: Select all

proc demobf args {
#OBF
   return "Hello world"
#/OBF
}

Ok, I also tried 2nd shell but same thing:

[

Code: Select all

mad@pluto (~/eggy)]$ tclsh8.4 obs.tcl  test.tcl test1.tcl
0 parts obfuscated.
[mad@pluto (~/eggy)]$ cat test.tcl
proc demobf args {
#OBF
   return "Hello world"
#/OBF
}
[mad@pluto (~/eggy)]$ cat test1.tcl
proc demobf args {
#OBF
   return "Hello world"
#/OBF
}
[mad@pluto (~/eggy)]$

Can you please suggest more.

Thanks

[user]

Code: Select all

proc OBF {infile {outfile {}} {A "#OBF\n"} {B "\n#/OBF\n"}} {

- notice the \n's - if you have \r\n or just \r in your file, these patterns won't match.

Save the script you want to obfuscate (there's no encryption involved) using UNIX line breaks (aka LF, aka \n)
...or change the default argument values of A and B in the OBF proc to match your messed up world
...or find something better to do - this script is pretty useless IMO.

[Serban]

superb!

only one question: let's say i obfuscated a script and i want to deobfuscate it so i can edit it. how?

[user]

let's say i obfuscated a script and i want to deobfuscate it so i can edit it. how?

Learn Tcl, then read the first couple of words in the obfuscated code, think for a second and you'll know

[rosc2112]

Or be lazy and keep 1 unencrypted copy for editting, then run it through the encryption to make a new copy.

[Riddler]

Or be lazy and keep 1 unencrypted copy for editting, then run it through the encryption to make a new copy.

Don`t matter at long as the script works very good :D thank you user for the method you have a beer from me

[while]

...

srry to reopen an old topic. one question: the script work very well if the #OBC is inside the proc, but if I put it before the proc smth:smth {....} it doesen't crypt the proc. Is there a way to make it work like that? thanks