易语言软件六种反调试方法

天启VIP6年

写成子程序是为了方便在应用时插到代码段中，真正使用时请务必插入（最好分段插入）到程序代码中，否则几乎形同虚设。

1. .版本 2
   
2. 
   
3. .子程序 第一法_内存分配反调试, 逻辑型
   
4. .参数 最小值, 整数型
   
5. .参数 最大值, 整数型
   
6. .局部变量 min, 整数型
   
7. .局部变量 max, 整数型
   
8. 
   
9. GetProcessWorkingSetSize (GetCurrentProcess (), min, max)
   
10. ' 输出调试文本 (min, max)
    
11. 返回 (min ≠ 最小值 或 max ≠ 最大值)
    
12. 
    
13. 
    
14. .子程序 第二法_子窗口反调试
    
15. 
    
16. EnumChildWindows (GetDesktopWindow (), 到整数 (&子窗口监控子程序), 0)
    
17. 
    
18. 
    
19. .子程序 第三法_时间差反调试, 逻辑型
    
20. .局部变量 ctt, FILETIME
    
21. .局部变量 ett, FILETIME
    
22. .局部变量 ktt, FILETIME
    
23. .局部变量 utt, FILETIME
    
24. .局部变量 stt, SystemTime
    
25. .局部变量 ntt, SystemTime
    
26. .局部变量 qtt, 双精度小数型
    
27. 
    
28. GetLocalTime (ntt)
    
29. GetProcessTimes (GetCurrentProcess (), ctt, ett, ktt, utt)
    
30. FileTimeToSystemTime (ctt, stt)
    
31. qtt ＝ 到数值 (ntt.wSecond) × 1000 ＋ ntt.wMilliseconds － 到数值 (stt.wSecond) × 1000 － stt.wMilliseconds
    
32. 返回 (qtt ＞ 300 或 qtt ＜ 0)
    
33. 
    
34. 
    
35. .子程序 第四法_启动信息反调试, 逻辑型
    
36. .局部变量 启动信息, STARTUPINFO
    
37. 
    
38. GetStartupInfo (启动信息)
    
39. 返回 (启动信息.dwX ≠ 0 或 启动信息.dwY ≠ 0 或 启动信息.dwXCountChars ≠ 0 或 启动信息.dwYCountChars ≠ 0 或 启动信息.dwFillAttribute ≠ 0 或 启动信息.dwXSize ≠ 0 或 启动信息.dwYSize ≠ 0)
    
40. 
    
41. 
    
42. .子程序 第五法_时间间隔反调试, 逻辑型
    
43. 
    
44. 返回 (GetTickCount () － GetTickCount () ≠ 0)
    
45. 
    
46. 
    
47. .子程序 第六法_检测调试器反调试, 逻辑型
    
48. 
    
49. .如果真 (是否为调试版 ())
    
50.     返回 (假)
    
51. .如果真结束
    
52. 返回 (IsDebuggerPresent ())
    
53. 
    
54. 
    
55. .子程序 子窗口监控子程序, 整数型
    
56. .参数 hwnd, 整数型
    
57. .参数 lParam, 整数型
    
58. .局部变量 X, 整数型
    
59. .局部变量 sSave, 文本型
    
60. 
    
61. sSave ＝ 取空白文本 (GetWindowTextLength (hwnd) ＋ 1)
    
62. GetWindowText (hwnd, sSave, 取文本长度 (sSave))
    
63. sSave ＝ 删首尾空 (取文本左边 (sSave, 取文本长度 (sSave) － 1))
    
64. .计次循环首 (取文本长度 (sSave) － 2, X)
    
65.     .如果真 (到小写 (取文本中间 (sSave, X, 3)) ＝ “cpu”)
    
66.         信息框 (“子窗口监控” ＋ #发现, 0, )
    
67.         返回 (1)
    
68.     .如果真结束
    
69. 
    
70. .计次循环尾 ()
    
71. .计次循环首 (取文本长度 (sSave) － 4, X)
    
72.     .如果真 (到小写 (取文本中间 (sSave, X, 5)) ＝ “smart”)
    
73.         信息框 (“子窗口监控” ＋ #发现, 0, )
    
74.         返回 (1)
    
75.     .如果真结束
    
76. 
    
77. .计次循环尾 ()
    
78. 返回 (1)
    
79. 
    

复制代码

skin598

66666