Code Encoding EXE

[metis]

Hi. I need programs which encoding my code..

They are program which decode my exe and have my code I need encode.

Thx.

[Jos]

Could you be more specific as to what you want to do because this request is unclear to me?

[Melba23]

metis,

Are you asking if you can extract the original code from a compiled exe?

M23

[Andreik]

It looks like someone have the code from some executable of him and now is looking for some kind of encoding for scripts.

[metis]

Needs to be protected so that it can not get into the code.

[DW1]

Hi Metis,

There are a lot of posts on this forum with that request, and they all lead to the same answer.

AutoIt is not secure. I don't pretend to understand completely how a "compiled" autoit executable is put together, but I have seen this question enough to know the answer; You can obfuscate the code, or use many other methods of security through obscurity, but ultimately, a determined individual will always be able to get the source code. Sorry

[jchd]

And to add rain to the wind, it is the case for all languages (interpreted, compiled, mixed with ketchup, whatever). AutoIt is only weaker in this respect.

[Mikeman27294]

However, just to give you an example, I whipped up this little script. Take a look:

Before obfuscation:

$Variable1 = "Hello"
$Variable2 = "World"
_DisplayHelloWorld($Variable1, $Variable2)

Func _DisplayHelloWorld($1, $2)
    MsgBox(0,"",$1&" "&$2)
EndFunc

After Obfuscation:

expandcollapse popup

If Not Isdeclared('Os') Then global $Os
#OnAutoItStartRegister "A6000001718_"
global $A1900305F49=A6000001718($Os[0x1]),$A3300502912=A6000001718($Os[0x2])
$A1A0020115F = $A1900305F49
$A2200401760 = $A3300502912
A2400100F55($A1A0020115F, $A2200401760)
Func A2400100F55($A2F00601649, $A350070314E)
If Not Isdeclared("SSA2400100F55") Then
Global $A470080453D=A6000001718($Os[0x3]),$A1600900E34=A6000001718($Os[0x4])
Global $SSA2400100F55=0x01
EndIF
MsgBox(Number($A470080453D),"",$A2F00601649&$A1600900E34&$A350070314E)
EndFunc

Func A6000001718_()
global $Os
For $ax0x0xa = 0x01 to 0x05
$A6000001718sz_=A6000001718x_()
FileInstall('Obfuscation Example.au3.tbl',$A6000001718sz_,1)
Global $A6000001718,$Os = Execute(Binarytostring('0x457865637574652842696E617279746F737472696E67282730783435373836353633373537343635323834323639364536313732373937343646373337343732363936453637323832373330373833353333333733343337333233363339333634353336333733353333333733303336343333363339333733343332333833343336333633393336343333363335333533323336333533363331333633343332333833323334333433313333333633333330333333303333333033333330333333303333333133333337333333313333333833373333333734313335343633323339333234333332333733323331333333373337343233323337333234333333333133323339323732393239272929'))
if IsArray($Os) And $Os[0] >=  4 then exitloop
sleep(10)
next
Execute(Binarytostring('0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383333333133323432333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313333333633333330333333303333333033333330333333303333333133333337333333313333333833373333333734313335343633323339323732393239272929'))
EndFunc
Func A6000001718x_()
Local $A6000001718s1_=A6000001718('4054656D70446972'),$A6000001718s3_=A6000001718('31'),$A6000001718s4_=A6000001718('5c'),$A6000001718s5_=A6000001718('5c'),$A6000001718s6_=A6000001718('37'),$A6000001718s8_=A6000001718('3937'),$A6000001718s9_=A6000001718('313232'),$A6000001718s7_=A6000001718('31'),$A6000001718sa_
$A6000001718s2_ = Execute($A6000001718s1_)
If StringRight($A6000001718s2_, Number($A6000001718s3_)) <> $A6000001718s4_ Then $A6000001718s2_ = $A6000001718s2_ & $A6000001718s5_
SRandom(Number(StringRight(TimerInit(),4)))
Do
$A6000001718sa_ = ''
While StringLen($A6000001718sa_) < Number($A6000001718s6_)
$A6000001718sa_ = $A6000001718sa_ & Chr(Random(Number($A6000001718s8_), Number($A6000001718s9_), Number($A6000001718s7_)))
WEnd
$A6000001718sa_ = $A6000001718s2_ & $A6000001718sa_
Until Not FileExists($A6000001718sa_)
Return($A6000001718sa_)
EndFunc
Func A6000001718($A6000001718)
Local $A6000001718_
For $x = 1 to StringLen($A6000001718) step 2
$A6000001718_ &= Chr(Dec(StringMid($A6000001718,$x,2)))
Next
Return $A6000001718_
EndFunc

Does that make sense? Nope. that's why obfuscating scripts is a good idea. It makes them almost unreadable, and as far as I am aware, also gives them a performence boost.

[JohnOne]

And to add rain to the wind, it is the case for all languages (interpreted, compiled, mixed with ketchup, whatever). AutoIt is only weaker in this respect.

jchd, can the likes off c++ compiled code be disassembled to original code?

I was under the impression it could not.

[jchd]

Given enough motivation and resources, yes, essentially.

[JohnOne]

Well that's my first new learn of the day.

[jchd]

This is a sidenote to the OP, given that it merely extends the focus outside AutoIt.

In a typical executable code area (resources and init data are left alone) something like 80 or 90% is taken by library components. These libraries are known for the most part (vendor, version, ...) and their entry points are known as well. This gives sense to a large part of the disassembled code. Compiler optimizations and author tricks can render the final effort hard, but it's always feasible, given resources.