Let's help each other out
https://www.autohotkey.com/boards/
Simply put, yes. The overhead of the dllcall outweighs any possible benefits for your example. Often, when you can replace a script loop with a compiled loop, then you can get speed benefits.or a function needs to be complex enough for MCode to be faster than regular AHK code?
:Code: Select all
MCode(mcode)
{
static e := {1:4, 2:1}, c := (A_PtrSize=8) ? "x64" : "x86"
if (!regexmatch(mcode, "^([0-9]+),(" c ":|.*?," c ":)([^,]+)", m))
return
if (!DllCall("crypt32\CryptStringToBinary", "str", m3, "uint", 0, "uint", e[m1], "ptr", 0, "uint*", s, "ptr", 0, "ptr", 0))
return
p := DllCall("GlobalAlloc", "uint", 0, "ptr", s, "ptr")
if (c="x64")
DllCall("VirtualProtect", "ptr", p, "ptr", s, "uint", 0x40, "uint*", op)
if (DllCall("crypt32\CryptStringToBinary", "str", m3, "uint", 0, "uint", e[m1], "ptr", p, "uint*", s, "ptr", 0, "ptr", 0))
return p
DllCall("GlobalFree", "ptr", p)
}
The function is known to work. However, I can't recall seeing any documentation suggesting the PAGE_EXECUTE_READWRITE flag is only for 64 bit, I've always set it for both 32 and 64 bit.are we sure VirtualProtect is only needed on AHKx64? and not 32?
i have a suspicion that VirtualProtect is necessary for 32bit as well, but i havent been able to confirm with my enduser yet
yeah and its only breaking up the Bentschi b64 mcode with linefeeds, its not breaking up the laszlo style hex
Code: Select all
Base64enc( ByRef OutData, ByRef InData, InDataLen ) { ; by SKAN
DllCall("Crypt32.dll\CryptBinaryToString" (A_IsUnicode?"W":"A")
,UInt,&InData,UInt,InDataLen,UInt,0x40000001,UInt,0,UIntP,TChars,"CDECL Int")
VarSetCapacity(OutData,Req:=TChars*(A_IsUnicode?2:1))
DllCall("Crypt32.dll\CryptBinaryToString" (A_IsUnicode?"W":"A")
,UInt,&InData,UInt,InDataLen,UInt,0x40000001,Str,OutData,UIntP,Req,"CDECL Int")
msgbox %OutData%
Return TChars
}
CRYPT_STRING_NOCRLF
0x40000000
Do not append any new line characters to the encoded string. The default behavior is to use a carriage return/line feed (CR/LF) pair (0x0D/0x0A) to represent a new line.
Windows Server 2003 and Windows XP: This value is not supported.
Code: Select all
vText := RTrim(vText, " `r`n")
vText := StrReplace(vText, "`r`n")
vText := StrReplace(vText, " ")
;vText .= "`r`n" ;add this line, if a trailing CRLF is wanted
Code: Select all
JEE_HexGet(vAddr, vSize, vCase:="U")
{
local
static vIsVistaPlus := (DllCall("kernel32\GetVersion", "UInt") & 0xFF) >= 6
vCase := "U"
;CRYPT_STRING_NOCRLF := 0x40000000 (not supported by Windows XP)
;CRYPT_STRING_HEXRAW := 0xC ;to return raw hex but with a trailing enter (not supported by Windows XP)
;CRYPT_STRING_HEX := 0x4 ;to return space/CRLF-separated text
vFlags := vIsVistaPlus ? 0x4000000C : 0x4
vChars := 0
DllCall("crypt32\CryptBinaryToString", "Ptr",vAddr, "UInt",vSize, "UInt",vFlags, "Ptr",0, "UInt*",vChars)
VarSetCapacity(vHex, vChars*2, 0)
DllCall("crypt32\CryptBinaryToString", "Ptr",vAddr, "UInt",vSize, "UInt",vFlags, "Str",vHex, "UInt*",vChars)
if !vIsVistaPlus
{
vHex := StrReplace(vHex, "`r`n")
vHex := StrReplace(vHex, " ")
}
return (vCase = "L") ? vHex : Format("{:U}", vHex)
}
JEE_Base64Get(vAddr, oParams*) ;vAddr, vSize
{
local
static vIsVistaPlus := (DllCall("kernel32\GetVersion", "UInt") & 0xFF) >= 6
if (oParams.Length() = 2)
vSize := oParams.1
if !JEE_StrIsType(oParams.1, "number")
vSize := 0
else if (oParams.1 = 0)
return
else if oParams.HasKey(1)
vSize := oParams.1
else
vSize := 0
if !JEE_StrIsType(vSize, "number")
vSize := 0
;CRYPT_STRING_NOCRLF := 0x40000000
;CRYPT_STRING_BASE64 := 0x1
vChars := 0
vFlags := vIsVistaPlus ? 0x40000001 : 0x1
DllCall("crypt32\CryptBinaryToString", "Ptr",vAddr, "UInt",vSize, "UInt",vFlags, "Ptr",0, "UInt*",vChars)
VarSetCapacity(vBase64, vChars*2, 0)
DllCall("crypt32\CryptBinaryToString", "Ptr",vAddr, "UInt",vSize, "UInt",vFlags, "Str",vBase64, "UInt*",vChars)
return vIsVistaPlus ? vBase64 : StrReplace(vBase64, "`r`n")
}
StringToBinary isn't used for Hex output in this script, its only used for b64. The Hex is parsed directly from the compiler output.