[Release] Exe To au3 -- not in the way u think

I make this fake fileInstall function to include any exefile or dll in an include file. With this and a good obfuscator u can protect your files from being unpacked by exe2aut since your files will be a binary variable.

Exe to au3.au3

Spoiler

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Include  EXE", 351, 190, 192, 124,-1,$WS_EX_ACCEPTFILES)
$Input1 = GUICtrlCreateInput("", 16, 40, 225, 21,$ES_READONLY)
GUICtrlSetState(-1,$GUI_DROPACCEPTED)
$Button1 = GUICtrlCreateButton("Choose Exe", 256, 40, 83, 25)
$Input2 = GUICtrlCreateInput("", 16, 88, 225, 21,$ES_READONLY)
$Button2 = GUICtrlCreateButton("Include Name", 256, 88, 83, 25)
$Button3 = GUICtrlCreateButton("Fake Compile", 88, 136, 163, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			FindExe()
		Case $Button2
			SaveAu3()
		Case $Button3
Convert()
	EndSwitch
WEnd

Func FindExe()
Local $selected = FileOpenDialog("Select any exe or dll file",@DesktopDir,"Executable/Library Files(*.exe;*.dll)")
If not FileExists($selected) Then
MsgBox(0,"Error","Nothing selected")
Else
	GUICtrlSetData($Input1,$selected)
EndIf
	EndFunc

Func SaveAu3()
Local $savename = FileSaveDialog("Save include as ",@DesktopDir,"AutoitFile(*.au3)",0,"exe.au3")
If @error = 1 Then
MsgBox(0,"Error","Nothing selected")
Else
	If Not StringInStr($savename,"au3") Then $savename = $savename & ".au3"
	GUICtrlSetData($Input2,$savename)
	EndIf
EndFunc

Func Convert()
	Local $exefile = GUICtrlRead($Input1)
	Local $outPutAu3 = GUICtrlRead($Input2)
	If StringLen($exefile) > 0 And FileExists($exefile) And  StringLen($outPutAu3) > 0  Then
$name = InputBox("VAR name","Enter var name for include file","myvar")
MakeVarFromExe($exefile,$outPutAu3,$name)
EndIf
	EndFunc


Func MakeVarFromExe($inputExe,$outPutAu3,$Varname)
$open = FileOpen($inputExe,0)
$read = FileRead($open)
Local $line = 0
$binarywrite = StringToBinary($read)
FileWrite("temp.au3",StringToBinary($binarywrite))
FileClose($open)
$open2=FileOpen("temp.au3")
While 1
$read2=FileRead($open2,1000)
If @error Then ExitLoop

If $line <> 0 Then
$format = StringFormat("$%s &=""%s"""  & @CRLF,$Varname,$read2)
Else
$format = StringFormat("global $%s =""%s"""  & @CRLF,$Varname,$read2)
$line = 1
EndIf
FileWrite($outPutAu3,$format)
WEnd
FileClose($open2)
FileDelete("temp.au3")
MsgBox(0,"Success","Done")
EndFunc

fileInstall.au3

Spoiler

For Example:
[Only registered and activated users can see links. Click Here To Register...]

We select for exe file winrar.exe
outPut file will be winrarTest.au3
var will be named wrar

So with this our fileInstall.au3 may look like this

Code:

#include "winrarTest.au3"


Func MakeExeFromAu3($var,$outPutExe)
$out=FileOpen($outPutExe,2)
Local $string = BinaryToString($var)
FileWrite($out,$string)
If not @error Then MsgBox(0,"","Done")
FileClose($out)
	EndFunc

MakeExeFromAu3($wrar,"output.exe")

VT: [Only registered and activated users can see links. Click Here To Register...]