全局预编译API调用

萧阳天

1. .版本 2
   
2. 
   
3. .子程序 全局预编译API
   
4. .局部变量 theMachineCode, 字节集
   
5. .局部变量 theMachineCode2, 字节集
   
6. .局部变量 theCodeLength, 整数型
   
7. .局部变量 theSubPtr, 整数型
   
8. .局部变量 theTable, 整数型
   
9. .局部变量 theTableCallDevs, 整数型
   
10. .局部变量 theGbloalTable, 整数型
    
11. 
    
12. .如果真 (是否为调试版 ())
    
13.     返回 ()  ' 在调试环境下,不做预编译处理
    
14. .如果真结束
    
15. LoadLibraryA ＝ GetProcAddress (LoadLibrary (“kernel32.dll”), “LoadLibraryA”)
    
16. GetProcAddress ＝ GetProcAddress (LoadLibrary (“kernel32.dll”), “GetProcAddress”)
    
17. theMachineCode ＝ { 85, 139, 236, 131, 236, 4, 86, 87, 51, 201, 137, 77, 252, 139, 77, 252, 139, 117, 8, 139, 134, 100, 1, 0, 0, 139, 150, 80, 1, 0, 0, 139, 190, 140, 1, 0, 0, 139, 4, 136, 133, 192, 116, 33, 139, 20, 138, 80, 82, 255, 21 } ＋ 到字节集 (ibase_get_idata (LoadLibraryA)) ＋ { 80, 255, 21 } ＋ 到字节集 (ibase_get_idata (GetProcAddress)) ＋ { 133, 192, 116, 23, 139, 77, 252, 137, 4, 143, 255, 69, 252, 235, 192, 64, 131, 196, 4, 95, 94, 139, 229, 93, 194, 4, 0, 139, 77, 252, 139, 134, 100, 1, 0, 0, 139, 4, 136, 235, 231 }
    
18. theCodeLength ＝ 取字节集长度 (theMachineCode)
    
19. theSubPtr ＝ ibase_get_function (&CompileAPI, 真)
    
20. theTable ＝ ibase_get_function (&GetApiTable, 假) ＋ 22
    
21. theTableCallDevs ＝ ??? ()  ' <!!!>
    
22. theTable ＝ theTable ＋ theTableCallDevs ＋ 5
    
23. theTableCallDevs ＝ ??? ()  ' <!!!>
    
24. theTable ＝ theTableCallDevs
    
25. theGbloalTable ＝ ??? ()  ' <!!!>
    
26. theTableCallDevs ＝ ??? ()  ' <!!!>
    
27. theGbloalTable ＝ theGbloalTable ＋ theTableCallDevs ＋ 14
    
28. theGbloalTable ＝ ??? ()  ' <!!!>
    
29. .如果真 (VirtualProtect (theSubPtr, 取字节集长度 (theMachineCode), 64, 0))
    
30.     写到内存 (theMachineCode, theSubPtr, 取字节集长度 (theMachineCode))
    
31.     theMachineCode2 ＝ { 185 } ＋ 到字节集 (theGbloalTable) ＋ { 139, 137, 140, 1, 0, 0, 255, 36, 129, 204 }
    
32.     theSubPtr ＝ ibase_get_function (&JmpTable, 假)
    
33.     .如果真 (VirtualProtect (theSubPtr, 取字节集长度 (theMachineCode2), 64, 0))
    
34.         写到内存 (theMachineCode2, theSubPtr, 取字节集长度 (theMachineCode2))
    
35.     .如果真结束
    
36.     .如果真 (VirtualProtect (theTable, 4, 64, 0))
    
37.         写到内存 (theSubPtr, theTable, 4)
    
38.     .如果真结束
    
39. 
    
40. .如果真结束
    
41. 
    
42. theTable ＝ CompileAPI (theGbloalTable)
    
43. .如果真 (theTable ＞ 1)
    
44.     信息框 (“API: ” ＋ 指针到文本 (theTable) ＋ “ 预编译失败,请检查该函数是否存在!”, #错误图标, “错误:”, )
    

复制代码

黑猫よ__

萧阳天 发表于 2016-3-24 13:57
看不懂汇编，是不是跟 易中的DLL转向命令相似

预编译API的作用就相当于直接在代码中使用 CALL [GetModuleHandle].
而没有预编译的情况下：

CALL [中转]
CALL [API处理模块]
CALL [GetModuleHandle]

预编译的作用就是去除中转以及API处理模块(这部分已经提前做好了,所以可以去掉),以达到优化程序的目的

萧阳天

看不懂汇编，是不是跟 易中的DLL转向命令相似

aaa123456bbb

ヅ腾龙细雨ン

这个必须顶一下