Failfest 2k14

Func LuaDoString($theCode = "")
    If $theCode == "" Then Return -1

    Local $CodeCave


    ;Create the codecave?
    $CodeCave = StringLen(StringToBinary($theCode, 4)) + 1; 4 parameter is utf-8

    ;This one im worried about...
    $CodeCave &= $theCode

    ;Yes. This is how its done in autoit...
    Local $Asm = AsmInit()
    AsmReset($Asm)

    AsmAdd($Asm, "mov eax, " + StringToBinary($CodeCave, 4))
    AsmAdd($Asm, "push 0")
    AsmAdd($Asm, "push eax")

    AsmAdd($Asm, "push eax")
    AsmAdd($Asm, "mov eax, " + ($aWoWModuleBaseAdress + 0x4FD12));Lua_Dostring

    AsmAdd($Asm, "call eax")
    AsmAdd($Asm, "add esp, 0xC")
    AsmAdd($Asm, "retn")

    ;yes, its excatly what you see!
    $asmRet = $Asm

    ;$aWoWMemoryHWND[1] is the handle of _MemoryOpen(wow[i])
    ;$Asm[2] is the size of our opcode
    $mVirtualMem = _MemVirtualAllocEx($aWoWMemoryHWND[1], 0, $asmRet[2], $MEM_COMMIT, $PAGE_EXECUTE_READWRITE)

    ;Write the stub into wow memory?
    _MemoryWrite($aWoWModuleBaseAdress + $mVirtualMem, $aWoWMemoryHWND, AsmGetBinary($Asm)), "byte[" & $Asm[2] & "]")

    ;Free the memory allocated earlier
    _MemVirtualFreeEx($aWowTitleHWND[1], $mVirtualMem, $Asm[2], $MEM_RELEASE)
EndFunc   ;==>LuaDoString


LuaDoString("MoveForwardStart();")