PureAutoIt machine code compiler small executable

[ghost911]

@JiBe Thanks for the functions I will add them in the source code

 

any help from the community will be welcome to add functions that will go faster

Edited March 19, 2019 by ghost911

[ghost911]

Here is a new version of the code I thank you

[AZJIO]

$x = BitShift(14, 2)
$y = BitShift(14, -2)
$z = BitShift(1, -31)
MsgBox(0, '', $x & @LF & $y & @LF & $z)

Define x.l, y.l, z.l
x = (14 >> 2)
y = (14 << 2)
z = (1 << 31)
MessageRequester("", Str(x) + #LF$ + Str(y) + #LF$ + Str(z))

$x = BitOR(3, 15, 32) ; x = 47
MsgBox(0, '', $x)

x = (3 | 15 | 32)
MessageRequester("", Str(x))

$x = BitAND(2, 3, 6) ; x = 2
MsgBox(0, '', $x)

x = (2 & 3 & 6) ; x = 2
MessageRequester("", Str(x))

$x = BitNOT(5)
MsgBox(0, '', $x)

x = ~5 ; x = -6
MessageRequester("", Str(x))

$x = BitXOR(2, 3, 6) ; x = 7
MsgBox(0, '', $x)

x = (2 ! 3 ! 6) ; x = 7
MessageRequester("", Str(x))

Example bit flag

Local $fgBit = 0

Func _SetFg($fgBit, $z)
    Return BitOR($fgBit, BitShift(1, -$z))
EndFunc

Func _GetFg($fgBit, $z)
    Return BitAND($fgBit, BitShift(1, -$z))
EndFunc

$fg = 31
$fgBit = _SetFg($fgBit, $fg)
$sText = StringFormat("%031s", StringReplace(StringFormat("%-" & $fg+1 & "s", "1"), ' ', '0')) 
$True =  (_GetFg($fgBit, $fg) = True)
MsgBox(0, '', $True & @CRLF & $sText)

Define fgBit.b = 0

Procedure SetFg(fgBit.b, z)
    ProcedureReturn fgBit | (1<<z)
EndProcedure

Procedure GetFg(fgBit.b, z)
    ProcedureReturn Bool(fgBit & (1<<z))
EndProcedure

fg = 7
fgBit = SetFg(fgBit, fg)
Debug RSet(Bin(1<<fg, #PB_Long), 8, "0")
True =  GetFg(fgBit, fg)
Debug True

 

Edited March 20, 2019 by AZJIO

[ghost911]

@AZJIO should further simplify the code even more so that everyone understands even a beginner I thank you for your help 

people like simplicity and then it's time saving when you program

I will study this from my side to optimize the code to have more clarity and faster execution speed

[ghost911]

I add a simple window example (GUI) for beginners with PureAutoit to have a hybrid code and compile the file in executable

[JiBe]

FileExists()

Procedure.q FileExists(Filename$)
  Result.q = FileSize(Filename$)
  If Result.q = -1
    Result.q = 0
  Else
    Result.q = 1
   EndIf
  ProcedureReturn Result.q 
EndProcedure

[JiBe]

FileDelete()

Procedure.q FileDelete(Filename$)
  Result.q = DeleteFile(filename$,#PB_FileSystem_Force)
  If Result.q <> 0
    Result.q = 1
  EndIf
  ProcedureReturn Result.q 
EndProcedure
 

[ghost911]

@JiBe thanks for your help but delete and FileExists functions are already present

[ghost911]

IncludeFile "AutoitCoding.PB"
Procedure.q FileExists2(Filename$)
  Result.q = FileSize(Filename$)
  If Result.q = -1
    Result.q = 0
  Else
    Result.q = 1
   EndIf
  ProcedureReturn Result.q 
EndProcedure



TempsDepart.q = ElapsedMilliseconds()

If  FileExists ("upx.exe")
 ; MsgBox(0,"Autoit","the file exist")
Else
 ; MsgBox(0,"Autoit","the file does not exist")
EndIf
TempsEcoule.q = ElapsedMilliseconds()-TempsDepart
Debug TempsEcoule

TempsDepart2.q = ElapsedMilliseconds()
If  FileExists2("upx.exe")
  ;MsgBox(0,"Autoit","the file exist")
Else
  ;MsgBox(0,"Autoit","the file does not exist")
EndIf
TempsEcoule2.q = ElapsedMilliseconds()-TempsDepart2
Debug TempsEcoule2

 

The execution speed is the same

[ghost911]

is a new version of the code I thank you

it would be necessary to program in autolt a code converter au3 to pb for convert the small difference with PureAutoit

people could secure their source code by compiling it

 

Edited March 22, 2019 by ghost911

[Jos]

@ghost911,

You started a nice little project which is growing rapidly I see. When AutoIt3 started it was around the 80 Kb if I remember well and it started to grow as many internal function were added.  You will find that there are several commands that aren't really simply to implement but just see that as a challenge. 

Just a few comments I would like to make:

1. skip adding the compiled autoit3 exe to your 7z as people around here can compile the au3 file themselfs
2. Also no need to include UPX.exe as that is also already available to everybody here, so you keep your repository nice and small.
3. I see you are using the word Fonction all over the place but it is really spelled Function.

Curious about how this is going to turn out when it gets more functions available. 

Jos 

Edited March 22, 2019 by Jos

[ghost911]

Hello welcome @Jos  the main goal of the project is to offer people the ability to compile their source code with a real compiler and secure their project why not release a code converter after

[Jos]

I fully understand the purpose of this project and am just curious how far it will get to be able to compile AutoIt3 code without any adaption and all the safeguards build in like is done in AutoIt3. Not trivial, but as stated, a nice challenge.  

[ghost911]

@Jos that's why I ask the community for help to many we are stronger

[AZJIO]

If flag = 1
    MessageRequester(Title,Text,#MB_OKCANCEL)
ElseIf flag = 2 
    MessageRequester(Title,Text,#MB_ABORTRETRYIGNORE )
ElseIf flag = 3 
    MessageRequester(Title,Text,#MB_YESNOCANCEL)
ElseIf flag = 3
; ...........................
ElseIf flag = 262144
    MessageRequester(Title,Text,#MB_TOPMOST)
ElseIf flag = 2097152
    MessageRequester(Title,Text,#MB_SERVICE_NOTIFICATION) 
    
; Isn't it easier?
MessageRequester(Title,Text,flag)

Where flag 4?

Can do so:

Macro StringLen(String)
    (Str(Len(String)))
EndMacro

Procedure.s StringLen1 (String$)
    ProcedureReturn Str(Len(String$))
EndProcedure

String$ = "Hello"
Debug StringLen1(String$)
Debug StringLen(String$)

I do not understand why you convert to a string? A function that will use this will probably require the numeric type of the variable.

Do you know what the Enumeration is for?

Enumeration
    #FV_FileVersion      = $0001 
    #FV_FileDescription  = $0002 
    #FV_LegalCopyright   = $0004 
EndEnumeration

 

Edited March 22, 2019 by AZJIO

[ghost911]

@AZJIO you are a good observer I have not seen the forgotten thank you 

I will correct the code for the message box

because strings are compatible with msgbox and more functionality

 

[AZJIO]

1 minute ago, ghost911 said:

because strings are compatible with msgbox and more functionality

Usually they are needed for other cases. MsgBox is likely to be the exception of their rules

[ghost911]

10 hours ago, AZJIO said:

Usually they are needed for other cases. MsgBox is likely to be the exception of their rules

then we should imagine a 2 in 1 system that returns 1 string or 1 number with a flag for example with a default mode in autoit it's a string

[AZJIO]

4 hours ago, ghost911 said:

default mode in autoit it's a string

Not. AutoIt3 converts type. If the function requires a number, and the variable is a string, AutoIt3 converts using conversion rules. It all depends on the source and destination. Look at function VarGetType.

[jchd]

Indeed, AutoIt uses a variant of duck typing.