今天小编就为大家分享一篇关于易语言源码被腾讯TP破坏后修复的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧
正文
易语言源码被腾讯TP破坏后修复的代码
DLL命令表
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
.版本 2.DLL命令 CopyTo_系统信息段, , , "RtlMoveMemory" .参数 Dest, 系统信息段 .参数 Src, 字节集 .参数 Length.DLL命令 CopyTo_SectionInfo, , , "RtlMoveMemory" .参数 Dest, _SectionInfo .参数 Src, 字节集 .参数 Length.DLL命令 CopyFrom_SectionInfo, , , "RtlMoveMemory" .参数 Dest, 字节集 .参数 Src, _SectionInfo .参数 Length.DLL命令 CopyFrom_SectionHeader, , , "RtlMoveMemory" .参数 Dest, 字节集 .参数 Src, _SectionHeader .参数 Length.DLL命令 Sizeof_, 整数型, , "GlobalSize" .参数 p, 系统信息段.DLL命令 strcpy_bytes, , , "lstrcpyA" .参数 dest, 字节型, 数组 .参数 src, 文本型.DLL命令 LoadLibraryA, 整数型, "kernel32.dll", "LoadLibraryA" .参数 FilePath, 文本型.DLL命令 GetProcAddress, 整数型, "kernel32.dll", "GetProcAddress" .参数 hLib .参数 Name, 文本型.DLL命令 GetModuleHandleA, 整数型, "kernel32.dll", "LoadLibraryA" .参数 FilePath, 文本型.DLL命令 DragAcceptFiles_, , "shell32.dll", "DragAcceptFiles", , 登记窗口是否接受托动文件的内容 .参数 hwnd, 整数型 .参数 fAccept, 整数型.DLL命令 SetWindowLong_, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息 指定数据的前一个值 .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄 .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明 .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;.DLL命令 SetProp_, 整数型, "user32", "SetPropA", , 增加或修改属性列项 .参数 hwnd, 整数型 .参数 lpString, 文本型 .参数 hData, 整数型.DLL命令 GetProp_, 整数型, "user32", "GetPropA", , 从窗口属性表列中返回数据句柄 .参数 hwnd, 整数型 .参数 lpString, 文本型.DLL命令 CallWindowProc_, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数 .参数 lpPrevWndFunc, 整数型 .参数 hwnd, 整数型 .参数 msg, 整数型 .参数 wParam, 整数型 .参数 lParam, 整数型.DLL命令 DragQueryFile_, 整数型, "shell32.dll", "DragQueryFileA", , 返回托动的文件名 .参数 HDROP, 整数型 .参数 UINT, 整数型 .参数 lpStr, 文本型, 传址 .参数 ch, 整数型.DLL命令 DragFinish_, , "shell32.dll", "DragFinish", , 释放分配用于托动文件的内容 .参数 hDrop, 整数型.DLL命令 RemoveProp_, 整数型, "user32", "RemovePropA", , 删除属性列入口 .参数 hwnd, 整数型 .参数 lpString, 文本型 |
常量数据表
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
.版本 2.常量 GWL_WNDPROC, "-4".常量 WM_DROPFILES, "563".常量 __输出块数据, "假".常量 __输出属性值, "假".常量 __输出Section列表, "假".常量 __检查效验值, "假".常量 文件类型_源代码, "1", 公开.常量 文件类型_模块, "3", 公开.常量 编译类型_Windows窗口程序, "0", 公开.常量 编译类型_Windows控制台程序, "1", 公开.常量 编译类型_Windows动态链接库, "2", 公开.常量 编译类型_Windows易语言模块, "1000", 公开.常量 编译类型_Linux控制台程序, "10000", 公开.常量 编译类型_Linux易语言模块, "11000", 公开.常量 系统信息段, "“系统信息段”".常量 用户信息段, "“用户信息段”".常量 程序资源段, "“程序资源段”".常量 程序段, "“程序段”".常量 初始模块段, "“初始模块段”".常量 可丢失程序段, "“可丢失程序段”".常量 编辑信息段1_Maby, "“编辑信息段1”".常量 编辑信息段2, "“编辑信息段2”".常量 辅助信息段1, "“辅助信息段1”".常量 辅助信息段2, "“辅助信息段2”".常量 易模块记录段, "“易模块记录段”".常量 sizeof_系统信息段, "60".常量 sizeof_SectionHeader, "8".常量 sizeof_SectionInfo, "92".常量 sizeof_DWORD, "4".常量 Magic_加密源码, "1162630231", , "WTLE".常量 Magic_文件标志1, "1415007811", , "CNWT".常量 Magic_文件标志2, "1196576837", , "EPRG".常量 Magic_Section, "353465113", , 19 73 11 15.常量 no_key_ec_node, "117469977", , 07 00 73 19.常量 xF0000000, "4026531840", , 0xF0000000.常量 x00FFFFFF, "16777215", , 0x00FFFFFF.常量 程序段_变量_属性_静态, "1", 公开.常量 程序段_变量_属性_参考, "2", 公开.常量 程序段_变量_属性_传址, "2", 公开.常量 程序段_变量_属性_可空, "4", 公开.常量 程序段_变量_属性_数组, "8", 公开.常量 程序段_变量_属性_公开, "256", 公开.常量 程序段_函数_属性_公开, "8", 公开.常量 程序段_数据类型_属性_公开, "1", 公开.常量 程序段_DLL_属性_公开, "2", 公开.常量 资源段_常量_页面_常量, "1".常量 资源段_常量_页面_图片, "2".常量 资源段_常量_页面_声音, "3".常量 资源段_常量_类型_空白, "22".常量 资源段_常量_类型_数值, "23".常量 资源段_常量_类型_逻辑, "24".常量 资源段_常量_类型_日期, "25".常量 资源段_常量_类型_文本, "26".常量 资源段_常量_属性_未检查, "1", 公开.常量 资源段_常量_属性_公开, "2", 公开.常量 资源段_常量_属性_长文本常量, "16", 公开.常量 数据类型_空白型, "0", 公开, 0x00000000.常量 数据类型_字节型, "-2147483391", 公开, 0x80000101.常量 数据类型_短整数, "-2147483135", 公开, 0x80000201.常量 数据类型_整数型, "-2147482879", 公开, 0x80000301.常量 数据类型_长整数型, "-2147482623", 公开, 0x80000401.常量 数据类型_小数型, "-2147482367", 公开, 0x80000501.常量 数据类型_双精度小数, "-2147482111", 公开, 0x80000601.常量 数据类型_逻辑型, "-2147483646", 公开, 0x80000002.常量 数据类型_日期时间型, "-2147483645", 公开, 0x80000003.常量 数据类型_文本型, "-2147483644", 公开, 0x80000004.常量 数据类型_字节集, "-2147483643", 公开, 0x80000005.常量 数据类型_子程序指针, "-2147483642", 公开, 0x80000006.常量 op4_1, "1".常量 op4_23, "23".常量 op4_24, "24".常量 op4_25, "25".常量 op4_26, "26".常量 op4_27, "27".常量 op4_28, "28".常量 op4_29, "29".常量 op4_30, "30".常量 op4_31, "31".常量 op4_32, "32".常量 op4_33, "33".常量 op4_34, "34".常量 op4_35, "35".常量 op1_33, "33".常量 op1_54, "54".常量 op1_55, "55".常量 op1_56, "56".常量 op1_57, "57".常量 op1_58, "58".常量 op1_59, "59" |
自定义数据类型表
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
.版本 2.数据类型 ProSet .成员 读取代码, 逻辑型 .成员 读取资源, 逻辑型.数据类型 系统信息段, 公开 .成员 编译版本1, 短整数型 .成员 编译版本2, 短整数型 .成员 Unknow_1 .成员 Unknow_2 .成员 未知类型 .成员 文件类型 .成员 Unknow_3 .成员 编译类型 .成员 Unknow_9, , , "8".数据类型 用户信息段, 公开 .成员 程序名称, 文本型 .成员 程序备注, 文本型 .成员 作者, 文本型 .成员 邮政编码, 文本型 .成员 联系地址, 文本型 .成员 电话, 文本型 .成员 传真, 文本型 .成员 电子信箱, 文本型 .成员 主页, 文本型 .成员 其他, 文本型 .成员 版本号1 .成员 版本号2.数据类型 资源段, 公开 .成员 窗体, 资源段_窗体, , "1" .成员 常量, 资源段_常量, , "1" .成员 reserve.数据类型 资源段_窗体, 公开 .成员 段头, 块段头 .成员 未知1 .成员 未知2 .成员 左边, 整数型 .成员 名称, 文本型 .成员 备注, 文本型 .成员 元素, 资源段_窗体_元素, , "1".数据类型 资源段_窗体_元素, 公开 .成员 保留.数据类型 资源段_常量, 公开 .成员 标志符 .成员 Offset .成员 dwLength .成员 属性, 短整数型 .成员 名称, 文本型 .成员 备注, 文本型 .成员 数据, 变体型 .成员 是否为长文本, 逻辑型 .成员 结果, 文本型.数据类型 程序段, 公开 .成员 头信息, 程序段_头信息 .成员 代码页, 程序段_代码页, , "1" .成员 函数组, 程序段_函数, , "1" .成员 全局变量, 程序段_变量, , "1" .成员 数据类型, 程序段_数据类型, , "1" .成员 Dll, 程序段_Dll, , "1".数据类型 程序段_数据类型, 公开 .成员 段头, 块段头 .成员 属性 .成员 名称, 文本型 .成员 备注, 文本型 .成员 成员组, 程序段_变量, , "1".数据类型 程序段_Dll, 公开 .成员 段头, 块段头 .成员 属性 .成员 返回类型, 整数型 .成员 名称, 文本型 .成员 备注, 文本型 .成员 文件名, 文本型 .成员 命令名, 文本型 .成员 参数组, 程序段_变量, , "1".数据类型 程序段_头信息, 公开 .成员 VerFlag1 .成员 Unk1 .成员 Unk2_1, 字节集 .成员 Unk2_2, 字节集 .成员 Unk2_3, 字节集 .成员 支持库信息, 文本型, , "1" .成员 Flag1 .成员 Flag2 .成员 Unk3_Op, 字节集 .成员 调试命令行, 文本型 .成员 ICO图标, 字节集.数据类型 块段头, 公开 .成员 dwID .成员 dwUnk.数据类型 程序段_代码页, 公开 .成员 段头, 块段头 .成员 Unk1 .成员 基类 .成员 名称, 文本型 .成员 备注, 文本型 .成员 函数组标志, 整数型, , "1" .成员 页面变量, 程序段_变量, , "1".数据类型 程序段_函数, 公开 .成员 段头, 块段头 .成员 类型 .成员 属性 .成员 返回类型 .成员 名称, 文本型 .成员 备注, 文本型 .成员 变量, 程序段_变量, , "1" .成员 参数, 程序段_变量, , "1" .成员 数据1, 字节集 .成员 数据2, 字节集 .成员 数据3, 字节集 .成员 数据4, 字节集 .成员 数据5, 字节集 .成员 代码, 字节集.数据类型 程序段_代码行 .成员 dwFuncId .成员 类型, , , , -4=？？；-3=DLL指令；-2=用户子程序；-1=空；>=0时，则为支持库索引列表 .成员 未验证代码, 文本型 .成员 备注, 文本型.数据类型 程序段_变量, 公开 .成员 标志符, 整数型 .成员 Offset .成员 dwLength .成员 数据类型 .成员 属性, 短整数型 .成员 数组维数, 字节型 .成员 数组下标值, , , "1" .成员 名称, 文本型 .成员 备注, 文本型.数据类型 初始模块段, 公开 .成员 保留.数据类型 可丢失程序段, 公开 .成员 保留.数据类型 编辑信息段1, 公开 .成员 保留.数据类型 编辑信息段2, 公开 .成员 保留.数据类型 辅助信息段1, 公开 .成员 保留.数据类型 辅助信息段2, 公开 .成员 保留.数据类型 易模块记录段, 公开 .成员 保留.数据类型 _FileHeader .成员 Magic1, 整数型 .成员 Magic2, 整数型.数据类型 _SectionHeader .成员 Magic, 整数型 .成员 Info_CheckSum, 整数型.数据类型 _SectionInfo .成员 Key, 字节型, , "4" .成员 Name, 字节型, , "30" .成员 reserve_fill_1, 短整数型 .成员 Index, 整数型 .成员 Flag1, 整数型, , , 1=ec info .成员 Data_CheckSum, 整数型 .成员 DataLength, 整数型 .成员 reserve_item, 整数型, , "10".数据类型 分析选项, 公开 .成员 禁读_主要页面, 逻辑型 .成员 禁读_程序代码, 逻辑型 .成员 禁读_资源数据, 逻辑型 |
修复分析的代码
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
|
.版本 2.程序集 修复分析.程序集变量 g_LastError, 文本型.子程序 分析_取最后错误文本, 文本型返回 (g_LastError).子程序 分析_设置错误文本.参数 text, 文本型g_LastError ＝ text.子程序 Error.参数 text, 文本型输出调试文本 (“[Error]” ＋ text)分析_设置错误文本 (text).如果 (是否为调试版 ()) 输出调试文本 (“[Error]” ＋ text).否则 信息框 (text, #错误图标, “LD提示：”, ).如果结束.子程序 RepairLog.参数 text, 文本型输出调试文本 (text).子程序 分析_易文件, 逻辑型.参数 文件路径, 文本型.参数 文件密码, 文本型, 可空.参数 __修复文件, 逻辑型, 可空.参数 分析选项, 分析选项, 可空.参数 系统信息段, 系统信息段, 可空.参数 用户信息段, 用户信息段, 可空.参数 程序资源段, 资源段, 可空.参数 程序段, 程序段, 可空.参数 初始模块段, 初始模块段, 可空.参数 可丢失程序段, 可丢失程序段, 可空.参数 编辑信息段1, 编辑信息段1, 可空.参数 编辑信息段2, 编辑信息段2, 可空.参数 辅助信息段1, 辅助信息段1, 可空.参数 辅助信息段2, 辅助信息段2, 可空.参数 易模块记录段, 易模块记录段, 可空.局部变量 file, 读取.局部变量 Block_Data, 字节集.局部变量 Block_Name, 文本型.局部变量 FileHead, _FileHeader.局部变量 是否有密码, 逻辑型是否有密码 ＝ file.is_have_password (文件路径).如果真 (file.Open (文件路径, __修复文件, 文件密码) ＝ 假) Error (“打开文件失败”) 返回 (假).如果真结束FileHead ＝ file.Read_FileHeader ().如果真 (FileHead.Magic1 ≠ #Magic_文件标志1) .如果 (是否有密码 ＝ 假) Error (“头标志1错误”) .否则 Error (“密码错误或头标志1错误”) .如果结束 file.Close () 返回 (假).如果真结束.如果真 (FileHead.Magic2 ≠ #Magic_文件标志2) .如果 (是否有密码 ＝ 假) Error (“头标志2错误”) .否则 Error (“密码错误或头标志2错误”) .如果结束 file.Close () 返回 (假).如果真结束Block_Data ＝ { }.判断循环首 (真) .如果真 (__修复文件) Repair_NodeInfo (file, 取字节集长度 (Block_Data)) .如果真结束 .如果真 (file.Read_Section (Block_Name, Block_Data) ＝ 假) 跳出循环 () .如果真结束 .如果真 (#__输出Section列表) 输出调试文本 (Block_Name) .如果真结束 .判断开始 (Block_Name ＝ “”) 跳出循环 () .判断 (Block_Name ＝ #系统信息段) .如果真 (是否为空 (系统信息段) ＝ 假) 系统信息段 ＝ 分析_系统信息段 (Block_Data) .如果真结束 .判断 (Block_Name ＝ #用户信息段) .如果真 (是否为空 (用户信息段) ＝ 假) 用户信息段 ＝ 分析_用户信息段 (Block_Data) .如果真结束 .判断 (Block_Name ＝ #程序资源段) .如果真 (是否为空 (程序资源段) ＝ 假) 程序资源段 ＝ 分析_资源段 (Block_Data, 分析选项) .如果真结束 .判断 (Block_Name ＝ #程序段) .如果真 (是否为空 (程序段) ＝ 假) 程序段 ＝ 分析_程序段 (Block_Data, 分析选项) .如果真结束 .判断 (Block_Name ＝ #初始模块段) .如果真 (是否为空 (系统信息段) ＝ 假) 初始模块段 ＝ 分析_初始模块段 (Block_Data) .如果真结束 .判断 (Block_Name ＝ #可丢失程序段) .如果真 (是否为空 (可丢失程序段) ＝ 假) 可丢失程序段 ＝ 分析_可丢失程序段 (Block_Data) .如果真结束 .判断 (Block_Name ＝ #编辑信息段1_Maby) .如果真 (是否为空 (编辑信息段1) ＝ 假) 编辑信息段1 ＝ 分析_编辑信息段1 (Block_Data) .如果真结束 .判断 (Block_Name ＝ #编辑信息段2) .如果真 (是否为空 (编辑信息段2) ＝ 假) 编辑信息段2 ＝ 分析_编辑信息段2 (Block_Data) .如果真结束 .判断 (Block_Name ＝ #辅助信息段1) .如果真 (是否为空 (辅助信息段1) ＝ 假) 辅助信息段1 ＝ 分析_辅助信息段1 (Block_Data) .如果真结束 .判断 (Block_Name ＝ #辅助信息段2) .如果真 (是否为空 (辅助信息段2) ＝ 假) 辅助信息段2 ＝ 分析_辅助信息段2 (Block_Data) .如果真结束 .判断 (Block_Name ＝ #易模块记录段) .如果真 (是否为空 (易模块记录段) ＝ 假) 易模块记录段 ＝ 分析_易模块记录段 (Block_Data) .如果真结束 .默认 Error (“未知段[” ＋ Block_Name ＋ “]”) .判断结束 .如果真 (#__输出块数据) 创建目录 (取运行目录 () ＋ “\” ＋ Block_Name) .如果真 (Block_Data ≠ { }) 写到文件 (取运行目录 () ＋ “\” ＋ Block_Name ＋ “\” ＋ 辅_取文件名称 (文件路径) ＋ “.txt”, Block_Data) .如果真结束 .如果真结束.判断循环尾 ()file.Close ()返回 (真).子程序 分析_易模块记录段, 易模块记录段.参数 数据, 字节集.局部变量 Info, 易模块记录段返回 (Info).子程序 分析_辅助信息段1, 辅助信息段1.参数 数据, 字节集.局部变量 Info, 辅助信息段1返回 (Info).子程序 分析_辅助信息段2, 辅助信息段2.参数 数据, 字节集.局部变量 Info, 辅助信息段2返回 (Info).子程序 分析_编辑信息段1, 编辑信息段1.参数 数据, 字节集.局部变量 Info, 编辑信息段1返回 (Info).子程序 分析_编辑信息段2, 编辑信息段2.参数 数据, 字节集.局部变量 Info, 编辑信息段2返回 (Info).子程序 分析_可丢失程序段, 可丢失程序段.参数 数据, 字节集.局部变量 Info, 可丢失程序段返回 (Info).子程序 分析_初始模块段, 初始模块段.参数 数据, 字节集.局部变量 Info, 初始模块段返回 (Info).子程序 分析_系统信息段, 系统信息段.参数 数据, 字节集.局部变量 Info, 系统信息段CopyTo_系统信息段 (Info, 数据, #sizeof_系统信息段).如果真 (是否为调试版 ()) .如果真 (Info.Unknow_1 ≠ 1 或 Info.Unknow_2 ≠ 1 或 Info.Unknow_3 ≠ 0 或 到字节集 (Info.Unknow_9) ≠ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }) .如果真结束.如果真结束返回 (Info).子程序 分析_用户信息段, 用户信息段.参数 数据, 字节集.局部变量 Info, 用户信息段.局部变量 offsetoffset ＝ 1Info.程序名称 ＝ 取数据_数据文本 (数据, offset)Info.程序备注 ＝ 取数据_数据文本 (数据, offset)Info.作者 ＝ 取数据_数据文本 (数据, offset)Info.邮政编码 ＝ 取数据_数据文本 (数据, offset)Info.联系地址 ＝ 取数据_数据文本 (数据, offset)Info.电话 ＝ 取数据_数据文本 (数据, offset)Info.传真 ＝ 取数据_数据文本 (数据, offset)Info.电子信箱 ＝ 取数据_数据文本 (数据, offset)Info.主页 ＝ 取数据_数据文本 (数据, offset)Info.其他 ＝ 取数据_数据文本 (数据, offset)Info.版本号1 ＝ 取数据_整数 (数据, offset)Info.版本号2 ＝ 取数据_整数 (数据, offset)返回 (Info).子程序 Repair_NodeInfo, 逻辑型.参数 file, 读取.参数 LastSize.局部变量 Header, _SectionHeader.局部变量 Info, _SectionInfo.局部变量 extern, 字节集.局部变量 bak.局部变量 length.局部变量 checksum.局部变量 Repair, 逻辑型.如果真 (file.IsEof ()) 返回 (假).如果真结束bak ＝ file.GetPos ()Header ＝ file.Read_SectionHeader ().如果真 (Header.Magic ≠ #Magic_Section) length ＝ 0 － #sizeof_SectionHeader － #sizeof_SectionInfo .判断循环首 (file.IsEof () ＝ 假) file.MoveTo (#文件首, bak ＋ length) Header.Magic ＝ file.ReadInt () .如果真 (Header.Magic ＝ #Magic_Section) 跳出循环 () .如果真结束 length ＝ length ＋ 1 .判断循环尾 () .如果真 (Header.Magic ≠ #Magic_Section) file.MoveTo (#文件首, bak) 返回 (假) .如果真结束 .如果 (length ≥ 0) file.MoveTo (#文件首, bak) extern ＝ file.ReadData (length) Info.DataLength ＝ length Info.Data_CheckSum ＝ GetCheckValue (extern) Info.Key [1] ＝ 204 Info.Key [2] ＝ 204 Info.Key [3] ＝ 204 Info.Key [4] ＝ 204 strcpy_bytes (Info.Name, “待修复”) Decode_Str (Info.Name, Info.Key) Header.Info_CheckSum ＝ GetSectionInfoCheckSum (Info) file.MoveTo (#文件首, bak) file.InsertSection (Header, Info) file.MoveTo (#文件首, bak) Header ＝ file.Read_SectionHeader () .否则 .如果结束.如果真结束Info ＝ file.Read_SectionInfo ()extern ＝ file.ReadData (Info.DataLength)checksum ＝ GetCheckValue (extern).如果真 (Info.Data_CheckSum ≠ checksum) Info.Data_CheckSum ＝ checksum Repair ＝ 真.如果真结束checksum ＝ GetSectionInfoCheckSum (Info).如果真 (Header.Info_CheckSum ≠ checksum) Header.Info_CheckSum ＝ checksum Repair ＝ 真.如果真结束.如果真 (Repair ＝ 真) file.MoveTo (#文件首, bak) file.Write_SectionHeader (Header) file.Write_SectionInfo (Info) Decode_Str (Info.Name, Info.Key) RepairLog (“[” ＋ 到文本 (Info.Name) ＋ “]损坏”).如果真结束file.MoveTo (#文件首, bak)返回 (真).子程序 Repair_Write.参数 hFile.参数 CheckAddr_Head.参数 CheckAddr_Data.参数 HeadAddr.参数 HeadSize.参数 DataAddr.参数 DataSize.局部变量 bak.局部变量 bin, 字节集bak ＝ 取读写位置 (hFile)移动读写位置 (hFile, , DataAddr)bin ＝ 读入字节集 (hFile, DataSize)移动读写位置 (hFile, , CheckAddr_Data).如果真 (写出数据 (hFile, GetCheckValue (bin)) ＝ 假) Error (“修正失败[数据]”).如果真结束移动读写位置 (hFile, , HeadAddr)bin ＝ 读入字节集 (hFile, HeadSize)移动读写位置 (hFile, , CheckAddr_Head).如果真 (写出数据 (hFile, GetCheckValue (bin)) ＝ 假) Error (“修正失败[头]”).如果真结束移动读写位置 (hFile, , bak).子程序 GetCheckValue, 整数型.参数 data, 字节集.局部变量 data_len.局部变量 key, 字节集.局部变量 key_len.局部变量 i.局部变量 ret_keykey_len ＝ 4key ＝ 取空白字节集 (key_len)data_len ＝ 取字节集长度 (data)i ＝ 0.判断循环首 (i ＜ data_len) key [i ％ key_len ＋ 1] ＝ 位异或 (key [i ％ key_len ＋ 1], data [i ＋ 1]) i ＝ i ＋ 1.判断循环尾 ()ret_key ＝ 取字节集数据 (key, #整数型, )返回 (ret_key).子程序 Decode_Str.参数 data, 字节型, 数组.参数 key, 字节型, 数组.局部变量 key_i.局部变量 key_len.局部变量 i, 整数型key_len ＝ 取数组成员数 (key)key_i ＝ 1.计次循环首 (取数组成员数 (data), i) data [i] ＝ 位异或 (data [i], key [key_i ％ key_len ＋ 1]) key_i ＝ key_i ＋ 1.计次循环尾 () |
数据
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
.版本 2.程序集 数据.子程序 GET_HIGHT_TYPE, 整数型.参数 DWORD返回 (右移 (位与 (DWORD, #xF0000000), 8 ＋ 8 ＋ 8 ＋ 4)).子程序 GET_LINK_TYPE, 整数型.参数 DWORD, 整数型返回 (位与 (DWORD, #x00FFFFFF)).子程序 取数据_字节, 短整数型.参数 数据, 字节集.参数 offset, , 参考返回 (取字节集数据 (数据, #字节型, offset)).子程序 取数据_短整数, 短整数型.参数 数据, 字节集.参数 offset, , 参考返回 (取字节集数据 (数据, #短整数型, offset)).子程序 取数据_整数, 整数型.参数 数据, 字节集.参数 offset, , 参考返回 (取字节集数据 (数据, #整数型, offset)).子程序 取数据_逻辑, 逻辑型.参数 数据, 字节集.参数 offset, , 参考返回 (取字节集数据 (数据, #逻辑型, offset)).子程序 取数据_双精度小数, 双精度小数型.参数 数据, 字节集.参数 offset, , 参考返回 (取字节集数据 (数据, #双精度小数型, offset)).子程序 取数据_日期时间, 日期时间型.参数 数据, 字节集.参数 offset, , 参考返回 (取字节集数据 (数据, #日期时间型, offset)).子程序 取数据_文本数组.参数 数据, 字节集.参数 offset, , 参考.参数 ret_arg, 文本型, 数组.局部变量 wCount, 短整数型.局部变量 iwCount ＝ 取数据_短整数 (数据, offset)重定义数组 (ret_arg, 假, wCount).计次循环首 (wCount, i) ret_arg [i] ＝ 取数据_数据文本 (数据, offset).计次循环尾 ().子程序 取数据_数据文本, 文本型.参数 数据, 字节集.参数 offset, , 参考返回 (到文本 (取数据_动态数据 (数据, offset))).子程序 取数据_标准文本, 文本型.参数 数据, 字节集.参数 offset, , 参考返回 (取字节集数据 (数据, #文本型, offset)).子程序 取数据_动态数据, 字节集.参数 数据, 字节集.参数 offset, , 参考.局部变量 lenlen ＝ 取数据_整数 (数据, offset)返回 (取数据_指定数据 (数据, offset, len)).子程序 取数据_指定数据, 字节集.参数 数据, 字节集.参数 offset, , 参考.参数 length.局部变量 data, 字节集.如果真 (length ＜ 0) Error (“Read Data Error”) 返回 ({ }).如果真结束.如果真 (length ＝ 0) 返回 ({ }).如果真结束data ＝ 取字节集中间 (数据, offset, length)offset ＝ offset ＋ length返回 (data).子程序 取数据_跳过动态数据, 字节集.参数 数据, 字节集.参数 offset, , 参考.局部变量 lenlen ＝ 取数据_整数 (数据, offset)offset ＝ offset ＋ len返回 ({ }).子程序 数据转换, 文本型.参数 数据, 字节集.参数 offset, , 参考.局部变量 i, 整数型i ＝ 取字节集数据 (数据, #整数型, offset)返回 (到文本 (readBytes (i, 数据, offset))).子程序 readBytes, 字节集.参数 length, 整数型.参数 data, 字节集.参数 offset, , 参考.局部变量 d, 字节集d ＝ 取字节集中间 (data, offset, length)offset ＝ offset ＋ length返回 (d) |
分析程序段
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
|
.版本 2.程序集 分析程序段.子程序 分析_程序段, 程序段.参数 数据, 字节集.参数 分析选项, 分析选项.局部变量 offset.局部变量 Info, 程序段.局部变量 Count.局部变量 i, 整数型.局部变量 段组, 块段头, , "0"offset ＝ 1分析_程序段_基本信息 (数据, offset, Info.头信息).如果真 (分析选项.禁读_主要页面 ＝ 假) Count ＝ 分析_块_段头 (数据, offset, 段组) 重定义数组 (Info.代码页, 假, Count) .计次循环首 (Count, i) Info.代码页 [i].段头 ＝ 段组 [i] 分析_程序段_程序集 (数据, offset, Info.代码页 [i]) .计次循环尾 () Count ＝ 分析_块_段头 (数据, offset, 段组) 重定义数组 (Info.函数组, 假, Count) .计次循环首 (Count, i) Info.函数组 [i].段头 ＝ 段组 [i] 分析_程序段_函数 (数据, offset, Info.函数组 [i], Info, 分析选项) .计次循环尾 () 分析_程序段_变量_数据 (Info.全局变量, 取数据_整数 (数据, offset), 取数据_动态数据 (数据, offset)) Count ＝ 分析_块_段头 (数据, offset, 段组) 重定义数组 (Info.数据类型, 假, Count) .计次循环首 (Count, i) Info.数据类型 [i].段头 ＝ 段组 [i] 分析_程序段_数据类型 (数据, offset, Info.数据类型 [i]) .计次循环尾 () Count ＝ 分析_块_段头 (数据, offset, 段组) 重定义数组 (Info.Dll, 假, Count) .计次循环首 (Count, i) Info.Dll [i].段头 ＝ 段组 [i] 分析_程序段_Dll (数据, offset, Info.Dll [i]) .计次循环尾 ().如果真结束返回 (Info).子程序 分析_程序段_数据类型.参数 数据, 字节集.参数 offset, , 参考.参数 Info, 程序段_数据类型.局部变量 CountInfo.属性 ＝ 取数据_整数 (数据, offset)Info.名称 ＝ 取数据_数据文本 (数据, offset)Info.备注 ＝ 取数据_数据文本 (数据, offset)分析_程序段_变量_数据 (Info.成员组, 取数据_整数 (数据, offset), 取数据_动态数据 (数据, offset)).子程序 分析_程序段_Dll.参数 数据, 字节集.参数 offset, , 参考.参数 Info, 程序段_Dll.局部变量 CountInfo.属性 ＝ 取数据_整数 (数据, offset)Info.返回类型 ＝ 取数据_整数 (数据, offset)Info.名称 ＝ 取数据_数据文本 (数据, offset)Info.备注 ＝ 取数据_数据文本 (数据, offset)Info.文件名 ＝ 取数据_数据文本 (数据, offset)Info.命令名 ＝ 取数据_数据文本 (数据, offset)分析_程序段_变量_数据 (Info.参数组, 取数据_整数 (数据, offset), 取数据_动态数据 (数据, offset)).子程序 分析_块_段头, 整数型.参数 数据, 字节集.参数 offset, , 参考.参数 List, 块段头, 数组.局部变量 Length.局部变量 Count.局部变量 i, 整数型Length ＝ 取数据_整数 (数据, offset)Count ＝ Length ÷ 8重定义数组 (List, 假, Count)i ＝ offset.计次循环首 (Count, i) List [i].dwID ＝ 取数据_整数 (数据, offset).计次循环尾 ().计次循环首 (Count, i) List [i].dwUnk ＝ 取数据_整数 (数据, offset).计次循环尾 ()返回 (Count).子程序 分析_程序段_函数.参数 数据, 字节集.参数 offset, , 参考.参数 Info, 程序段_函数.参数 global, 程序段.参数 分析选项, 分析选项.局部变量 count, 整数型Info.类型 ＝ 取数据_整数 (数据, offset)Info.属性 ＝ 取数据_整数 (数据, offset)Info.返回类型 ＝ 取数据_整数 (数据, offset)Info.名称 ＝ 取数据_数据文本 (数据, offset)Info.备注 ＝ 取数据_数据文本 (数据, offset)分析_程序段_变量_数据 (Info.变量, 取数据_整数 (数据, offset), 取数据_动态数据 (数据, offset))分析_程序段_变量_数据 (Info.参数, 取数据_整数 (数据, offset), 取数据_动态数据 (数据, offset)).如果 (分析选项.禁读_程序代码) Info.数据1 ＝ 取数据_跳过动态数据 (数据, offset) Info.数据2 ＝ 取数据_跳过动态数据 (数据, offset) Info.数据3 ＝ 取数据_跳过动态数据 (数据, offset) Info.数据4 ＝ 取数据_跳过动态数据 (数据, offset) Info.数据5 ＝ 取数据_跳过动态数据 (数据, offset) Info.代码 ＝ 取数据_跳过动态数据 (数据, offset).否则 Info.数据1 ＝ 取数据_动态数据 (数据, offset) Info.数据2 ＝ 取数据_动态数据 (数据, offset) Info.数据3 ＝ 取数据_动态数据 (数据, offset) Info.数据4 ＝ 取数据_动态数据 (数据, offset) Info.数据5 ＝ 取数据_动态数据 (数据, offset) Info.代码 ＝ 取数据_动态数据 (数据, offset) 输出调试文本 (选择 (Info.名称 ＝ “”, “sub_” ＋ 取十六进制文本 (Info.段头.dwID), Info.名称)) 分析_程序段_代码 (Info.代码, global).如果结束.子程序 分析_程序段_代码.参数 数据, 字节集.参数 Info, 程序段.局部变量 offsetoffset ＝ 1.判断循环首 (offset ≤ 取字节集长度 (数据) 且 offset ≠ -1) .如果真 (IsUnkType (取数据_字节 (数据, offset)) ＝ 假) 到循环尾 () .如果真结束 .如果真 (位与 (取数据_字节 (数据, offset ＋ 6), 40) ＝ 32) 到循环尾 () .如果真结束 分析_程序段_行 (数据, offset, Info) offset ＝ offset ＋ GetFEndLen3 (数据, offset).判断循环尾 ().子程序 分析_程序段_行.参数 数据, 字节集.参数 offset.参数 Info, 程序段.局部变量 line, 程序段_代码行.局部变量 tmpline.dwFuncId ＝ 取数据_整数 (数据, offset)line.类型 ＝ 取数据_短整数 (数据, offset)tmp ＝ 取数据_短整数 (数据, offset)line.未验证代码 ＝ 取数据_数据文本 (数据, offset)line.备注 ＝ 取数据_数据文本 (数据, offset).判断开始 (line.类型 ≥ 0) 输出调试文本 (取支持库信指令 (Info.头信息, line.类型, line.dwFuncId), line.未验证代码, line.类型, tmp).判断 (line.类型 ＝ -2) 输出调试文本 (取用户定义指令 (Info.函数组, line.dwFuncId), line.未验证代码, line.类型, tmp).默认 输出调试文本 (取十六进制文本 (line.dwFuncId), line.未验证代码, line.类型, tmp).判断结束tmp ＝ 取数据_字节 (数据, offset).子程序 GetFHdrType1, 整数型.参数 type, 字节型.判断开始 (type ≥ 106 且 type ≤ 117) 返回 (4).判断 (type ≥ 80 且 type ≤ 85) 返回 (5).判断 (type ≥ 54 且 type ≤ 59) 返回 (2).判断 (type ≥ 22 且 type ≤ 35) 返回 (1).判断 (type ＝ 1) 返回 (3).默认 返回 (0).判断结束.子程序 GetFEndLen1, 整数型.参数 数据, 字节集.参数 offset.局部变量 tmp.局部变量 bak_offsetbak_offset ＝ offsettmp ＝ 取数据_字节 (数据, offset).如果真 (tmp ＝ #op1_54) 返回 (1).如果真结束tmp ＝ 取数据_整数 (数据, offset).判断循环首 (真) tmp ＝ 取数据_字节 (数据, offset) .判断开始 (tmp ＝ #op1_56) offset ＝ offset － 1 ＋ GetFEndLen1 (数据, offset) .判断 (tmp ＝ #op1_57) tmp ＝ 取数据_整数 (数据, offset) tmp ＝ 取数据_整数 (数据, offset) .判断 (tmp ＝ #op1_58) ' 到循环尾 () .判断 (tmp ＝ #op1_59) tmp ＝ 取数据_整数 (数据, offset) .判断 (tmp ＝ #op1_33) offset ＝ offset ＋ GetFEndLen3 (数据, offset) .判断 (tmp ＝ #op1_55) 跳出循环 () .默认 输出调试文本 (“unknow type cmd1:” ＋ 到文本 (tmp)) 跳出循环 () .判断结束.判断循环尾 ().如果真 (offset ＝ -1) 暂停 () 返回 (0).如果真结束返回 (offset － bak_offset).子程序 GetFEndLen4, 整数型.参数 数据, 字节集.参数 offset.局部变量 tmp.局部变量 bak_offset.局部变量 tmp_str, 文本型bak_offset ＝ offsettmp ＝ 取数据_字节 (数据, offset).判断开始 (tmp ＝ 0).判断 (tmp ＝ #op4_1) ' //.判断 (tmp ＝ #op4_24) tmp ＝ 取数据_短整数 (数据, offset).判断 (tmp ＝ #op4_26) tmp_str ＝ 取数据_数据文本 (数据, offset).判断 (tmp ＝ #op4_28) tmp ＝ 取数据_整数 (数据, offset).判断 (tmp ＝ #op4_27 或 tmp ＝ #op4_30) tmp ＝ 取数据_整数 (数据, offset).判断 (tmp ＝ #op4_35) tmp ＝ 取数据_整数 (数据, offset) tmp ＝ 取数据_整数 (数据, offset).判断 (tmp ＝ #op4_23 或 tmp ＝ #op4_25) tmp ＝ 取数据_整数 (数据, offset) tmp ＝ 取数据_整数 (数据, offset).判断 (tmp ＝ #op4_29) offset ＝ offset ＋ GetFEndLen1 (数据, offset).判断 (tmp ＝ #op4_33 或 tmp ＝ #op4_34) offset ＝ offset ＋ GetFEndLen3 (数据, offset).判断 (tmp ＝ #op4_31) .判断循环首 (取数据_字节 (数据, offset) ≠ #op4_32 且 offset ≠ -1) offset ＝ offset ＋ GetFEndLen4 (数据, offset) .判断循环尾 ().判断 (tmp ＝ 22).默认 输出调试文本 (“unknow type cmd4:” ＋ 到文本 (tmp)).判断结束.如果真 (offset ＝ -1) 返回 (1).如果真结束返回 (offset － bak_offset).子程序 GetFEndLen3, 整数型.参数 数据, 字节集.参数 offset.局部变量 bak_offset.局部变量 tmp_str, 文本型bak_offset ＝ offsetoffset ＝ offset ＋ 8tmp_str ＝ 取数据_数据文本 (数据, offset)检查 (offset ≠ -1)tmp_str ＝ 取数据_数据文本 (数据, offset)检查 (offset ≠ -1)offset ＝ offset ＋ GetFEndLen1 (数据, offset)检查 (offset ≠ -1)offset ＝ offset ＋ GetFEndLen4_loop (数据, offset)返回 (offset － bak_offset).子程序 GetFEndLen4_loop, 整数型.参数 数据, 字节集.参数 offset.局部变量 bak_offsetbak_offset ＝ offset.判断循环首 (取数据_字节 (数据, offset ＋ 1 － 1) ≠ #op4_1) offset ＝ offset ＋ GetFEndLen4 (数据, offset).判断循环尾 ()offset ＝ offset ＋ 1返回 (offset － bak_offset).子程序 IsUnkType, 逻辑型.参数 type, 字节型.判断开始 (type ＝ 33) 返回 (真).判断 (GetFHdrType1 (type) ＝ 4 且 type ≠ 114 且 type ≠ 115 且 type ≠ 116 且 type ≠ 109 且 type ≠ 111 且 type ≠ 117) 返回 (真).默认 返回 (假).判断结束.子程序 分析_程序段_程序集.参数 数据, 字节集.参数 offset, , 参考.参数 Info, 程序段_代码页.局部变量 Bin, 字节集.局部变量 i, 整数型.局部变量 length.局部变量 countInfo.Unk1 ＝ 取数据_整数 (数据, offset)Info.基类 ＝ 取数据_整数 (数据, offset)Info.名称 ＝ 取数据_数据文本 (数据, offset)Info.备注 ＝ 取数据_数据文本 (数据, offset)length ＝ 取数据_整数 (数据, offset)count ＝ length ÷ 4重定义数组 (Info.函数组标志, 假, count).计次循环首 (count, i) Info.函数组标志 [i] ＝ 取数据_整数 (数据, offset).计次循环尾 ()分析_程序段_变量_数据 (Info.页面变量, 取数据_整数 (数据, offset), 取数据_动态数据 (数据, offset)).子程序 分析_程序段_变量_数据.参数 list, 程序段_变量, 数组.参数 count.参数 数据, 字节集.局部变量 offset.局部变量 i.局部变量 i2.局部变量 text, 文本型重定义数组 (list, 假, count).如果真 (count ＝ 0) 返回 ().如果真结束offset ＝ 1.计次循环首 (count, i) list [i].标志符 ＝ 取数据_整数 (数据, offset).计次循环尾 ().计次循环首 (count, i) list [i].Offset ＝ 取数据_整数 (数据, offset).计次循环尾 ().计次循环首 (count, i) list [i].Offset ＝ list [i].Offset ＋ offset.计次循环尾 ().计次循环首 (取数组成员数 (list), i) offset ＝ list [i].Offset list [i].dwLength ＝ 取数据_整数 (数据, offset) list [i].数据类型 ＝ 取数据_整数 (数据, offset) list [i].属性 ＝ 取数据_短整数 (数据, offset) list [i].数组维数 ＝ 取数据_字节 (数据, offset) 重定义数组 (list [i].数组下标值, 假, list [i].数组维数) .计次循环首 (list [i].数组维数, i2) list [i].数组下标值 [i2] ＝ 取数据_整数 (数据, offset) .计次循环尾 () list [i].名称 ＝ 取数据_标准文本 (数据, offset) list [i].备注 ＝ 取数据_标准文本 (数据, offset).计次循环尾 ().子程序 分析_程序段_基本信息.参数 数据, 字节集.参数 offset, , 参考.参数 Info, 程序段_头信息Info.VerFlag1 ＝ 取数据_整数 (数据, offset)Info.Unk1 ＝ 取数据_整数 (数据, offset)Info.Unk2_1 ＝ 取数据_动态数据 (数据, offset)Info.Unk2_2 ＝ 取数据_动态数据 (数据, offset)Info.Unk2_3 ＝ 取数据_动态数据 (数据, offset)取数据_文本数组 (数据, offset, Info.支持库信息)Info.Flag1 ＝ 取数据_整数 (数据, offset)Info.Flag2 ＝ 取数据_整数 (数据, offset).如果真 (位与 (Info.Flag1, 1) ≠ 0) Info.Unk3_Op ＝ 取数据_指定数据 (数据, offset, 16).如果真结束Info.ICO图标 ＝ 取数据_动态数据 (数据, offset)Info.调试命令行 ＝ 取数据_数据文本 (数据, offset) |
分析资源段
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
.版本 2.程序集 分析资源段.子程序 分析_资源段, 资源段.参数 数据, 字节集.参数 分析选项, 分析选项.局部变量 Info, 资源段.局部变量 offset.局部变量 i.局部变量 Count.局部变量 段组, 块段头, , "0"offset ＝ 1Count ＝ 分析_块_段头 (数据, offset, 段组)重定义数组 (Info.窗体, 假, Count).计次循环首 (Count, i) Info.窗体 [i].段头 ＝ 段组 [i] 分析_资源段_窗体 (数据, offset, Info.窗体 [i]).计次循环尾 ()分析_资源段_常量 (Info.常量, 取数据_整数 (数据, offset), 取数据_动态数据 (数据, offset), 分析选项)Info.reserve ＝ 取数据_整数 (数据, offset)返回 (Info).子程序 分析_资源段_窗体.参数 数据, 字节集.参数 offset, 整数型, 参考.参数 info, 资源段_窗体.局部变量 countinfo.未知1 ＝ 取数据_整数 (数据, offset)info.未知2 ＝ 取数据_整数 (数据, offset)info.名称 ＝ 取数据_数据文本 (数据, offset)info.备注 ＝ 取数据_数据文本 (数据, offset)分析_资源段_窗体_元素 (info.元素, 取数据_整数 (数据, offset), 取数据_动态数据 (数据, offset)).子程序 分析_资源段_窗体_元素.参数 list, 资源段_窗体_元素, 数组.参数 count.参数 数据, 字节集重定义数组 (list, 假, count).如果真 (count ＝ 0) 返回 ().如果真结束.子程序 分析_资源段_常量.参数 list, 资源段_常量, 数组.参数 count.参数 数据, 字节集.参数 分析选项, 分析选项.局部变量 offset.局部变量 i.局部变量 类型重定义数组 (list, 假, count).如果真 (count ＝ 0) 返回 ().如果真结束offset ＝ 1.计次循环首 (count, i) list [i].标志符 ＝ 取数据_整数 (数据, offset).计次循环尾 ().计次循环首 (count, i) list [i].Offset ＝ 取数据_整数 (数据, offset).计次循环尾 ().计次循环首 (count, i) list [i].Offset ＝ list [i].Offset ＋ offset.计次循环尾 ().计次循环首 (取数组成员数 (list), i) offset ＝ list [i].Offset list [i].dwLength ＝ 取数据_整数 (数据, offset) list [i].属性 ＝ 取数据_短整数 (数据, offset) list [i].名称 ＝ 取数据_标准文本 (数据, offset) list [i].备注 ＝ 取数据_标准文本 (数据, offset) 类型 ＝ GET_HIGHT_TYPE (list [i].标志符) .判断开始 (类型 ＝ #资源段_常量_页面_常量) 类型 ＝ 取数据_字节 (数据, offset) .判断开始 (类型 ＝ #资源段_常量_类型_空白) .判断 (类型 ＝ #资源段_常量_类型_数值) list [i].数据.赋值 (取数据_双精度小数 (数据, offset), ) .判断 (类型 ＝ #资源段_常量_类型_逻辑) list [i].数据.赋值 (取数据_逻辑 (数据, offset), ) .判断 (类型 ＝ #资源段_常量_类型_日期) list [i].数据.赋值 (取数据_日期时间 (数据, offset), ) .判断 (类型 ＝ #资源段_常量_类型_文本) list [i].数据.赋值 (数据转换 (数据, offset), ) list [i].是否为长文本 ＝ 位与 (取数据_短整数 (数据, offset), #资源段_常量_属性_长文本常量) ≠ 0 .默认 Error (“未知常量类型[” ＋ 到文本 (类型) ＋ “]”) .判断结束 list [i].结果 ＝ “文本” .判断 (类型 ＝ #资源段_常量_页面_图片) .如果 (分析选项.禁读_资源数据) list [i].数据.赋值 (取数据_跳过动态数据 (数据, offset), ) .否则 list [i].数据.赋值 (取数据_动态数据 (数据, offset), ) .如果结束 list [i].结果 ＝ “图片” .判断 (类型 ＝ #资源段_常量_页面_声音) .如果 (分析选项.禁读_资源数据) list [i].数据.赋值 (取数据_跳过动态数据 (数据, offset), ) .否则 list [i].数据.赋值 (取数据_动态数据 (数据, offset), ) .如果结束 list [i].结果 ＝ “声音” .默认 Error (“未知常量页面[” ＋ 到文本 (类型) ＋ “]”) .判断结束 .如果真 (#__输出属性值) .如果真 (list [i].属性 ≠ 0) 输出调试文本 (list [i].名称 ＋ “.属性=” ＋ 到文本 (list [i].属性)) .如果真结束 .如果真结束.计次循环尾 () |
读取
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
.版本 2.程序集 读取.程序集变量 m_hFile.子程序 is_have_password, 逻辑型, 公开.参数 path, 文本型.局部变量 result, 逻辑型.局部变量 FileHead, _FileHeader.局部变量 hFilehFile ＝ 打开文件 (path, #读入, ).如果真 (hFile ≤ 0) 返回 (假).如果真结束FileHead ＝ raw_Read_FileHeader (hFile)result ＝ FileHead.Magic1 ＝ #Magic_加密源码关闭文件 (hFile)返回 (result).子程序 raw_Open, 整数型.参数 path, 文本型.参数 Write, 逻辑型, 可空.参数 password, 文本型.局部变量 type.局部变量 hFile.局部变量 是否有密码, 逻辑型.如果 (Write) type ＝ #改读.否则 type ＝ #读入.如果结束.如果 (is_have_password (path)) hFile ＝ 打开加密文件 (path, type, , password, 8) 移动读写位置 (hFile, #现行位置, 8 ＋ 32).否则 hFile ＝ 打开文件 (path, type, ).如果结束返回 (hFile).子程序 Open, 逻辑型, 公开.参数 path, 文本型.参数 Write, 逻辑型, 可空.参数 password, 文本型m_hFile ＝ raw_Open (path, Write, password)返回 (m_hFile ＞ 0).子程序 Close, , 公开关闭文件 (m_hFile)m_hFile ＝ 0.子程序 IsEof, 逻辑型, 公开返回 (是否在文件尾 (m_hFile, )).子程序 GetPos, 整数型, 公开返回 (取读写位置 (m_hFile)).子程序 MoveTo, , 公开.参数 Type.参数 Pos移动读写位置 (m_hFile, Type, Pos).子程序 ReadInt, 整数型, 公开.局部变量 v读入数据 (m_hFile, v)返回 (v).子程序 ReadData, 字节集, 公开.参数 length返回 (读入字节集 (m_hFile, length)).子程序 Read_FileHeader, _FileHeader, 公开返回 (raw_Read_FileHeader (m_hFile)).子程序 Read_SectionHeader, _SectionHeader, 公开返回 (raw_Read_SectionHeader (m_hFile)).子程序 Read_SectionInfo, _SectionInfo, 公开返回 (raw_Read_SectionInfo (m_hFile)).子程序 Read_Section, 逻辑型, 公开.参数 Block_Name, 文本型, 参考.参数 Block_Data, 字节集, 参考.局部变量 Bin, 字节集.局部变量 header, _SectionHeader.局部变量 Info, _SectionInfo.如果真 (IsEof ()) 返回 (假).如果真结束header ＝ Read_SectionHeader ().如果真 (header.Magic ≠ #Magic_Section) Error (“SectionHeader标志错误”) 返回 (假).如果真结束Info ＝ Read_SectionInfo ().如果真 (header.Info_CheckSum ≠ GetSectionInfoCheckSum (Info)) .如果真 (#__检查效验值) Error (“SectionInfo效验值错误”) 返回 (假) .如果真结束.如果真结束.如果 (到字节集 (Info.Key) ≠ { 25, 115, 0, 7 }) Decode_Str (Info.Name, Info.Key).否则.如果结束Block_Name ＝ 到文本 (Info.Name)Block_Data ＝ ReadData (Info.DataLength).如果真 (Info.Data_CheckSum ≠ GetCheckValue (Block_Data)) .如果真 (#__检查效验值) Error (“SectionInfo效验值错误”) 返回 (假) .如果真结束.如果真结束返回 (真).子程序 Write_SectionHeader, , 公开.参数 Header, _SectionHeaderraw_Write_SectionHeader (m_hFile, Header).子程序 Write_SectionInfo, , 公开.参数 info, _SectionInforaw_Write_SectionInfo (m_hFile, info).子程序 InsertSection, , 公开.参数 header, _SectionHeader.参数 info, _SectionInfo.局部变量 bin, 字节集bin ＝ 取空白字节集 (#sizeof_SectionHeader)CopyFrom_SectionHeader (bin, header, #sizeof_SectionHeader)插入字节集 (m_hFile, bin)bin ＝ 取空白字节集 (#sizeof_SectionInfo)CopyFrom_SectionInfo (bin, info, #sizeof_SectionInfo)插入字节集 (m_hFile, bin) |
RAW
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
.版本 2.程序集 raw.子程序 raw_Read_FileHeader, _FileHeader.参数 hFile.局部变量 FileHead, _FileHeader读入数据 (hFile, FileHead.Magic1)读入数据 (hFile, FileHead.Magic2)返回 (FileHead).子程序 raw_Read_SectionHeader, _SectionHeader.参数 hFile.局部变量 header, _SectionHeader读入数据 (hFile, header.Magic)读入数据 (hFile, header.Info_CheckSum)返回 (header).子程序 raw_Write_SectionHeader.参数 hFile.参数 NodeCheck, _SectionHeader写出数据 (hFile, NodeCheck.Magic)写出数据 (hFile, NodeCheck.Info_CheckSum).子程序 raw_Read_SectionInfo, _SectionInfo.参数 hFile.局部变量 Info, _SectionInfo.局部变量 Bin, 字节集.局部变量 bak, 整数型Bin ＝ 读入字节集 (hFile, #sizeof_SectionInfo)CopyTo_SectionInfo (Info, Bin, #sizeof_SectionInfo)返回 (Info).子程序 raw_Write_SectionInfo.参数 hFile.参数 SectionInfo, _SectionInfo.局部变量 bin, 字节集bin ＝ 取空白字节集 (#sizeof_SectionInfo)CopyFrom_SectionInfo (bin, SectionInfo, #sizeof_SectionInfo)写出字节集 (hFile, bin).子程序 GetSectionInfoCheckSum, 整数型.参数 Info, _SectionInfo.局部变量 bin, 字节集bin ＝ 取空白字节集 (#sizeof_SectionInfo)CopyFrom_SectionInfo (bin, Info, #sizeof_SectionInfo)返回 (GetCheckValue (bin)) |
辅助
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
.版本 2.程序集 辅助.子程序 辅_取文件名称, 文本型.参数 txt, 文本型.局部变量 addr.局部变量 nextaddr ＝ 倒找文本 (txt, “\”, , 假)next ＝ 寻找文本 (txt, “/”, , 假).如果真 (next ≠ -1) addr ＝ next.如果真结束.如果真 (addr ≠ -1) 返回 (文本替换 (txt, 1, addr, )).如果真结束返回 (txt).子程序 CALL, 整数型.参数 dest.参数 arg1, , 可空.参数 arg2, , 可空.参数 arg3, , 可空.参数 arg4, , 可空.参数 arg5, , 可空返回 (_RawCall (dest, arg1, arg2, arg3, arg4, arg5)).子程序 _RawCall, 整数型.参数 dest.参数 arg1.参数 arg2.参数 arg3.参数 arg4.参数 arg5置入代码 ({ 201, 88, 135, 4, 36, 255, 224 })返回 (0).子程序 read_offset_memory, 整数型.参数 ptr.参数 offset置入代码 ({ 139, 69, 8, 139, 77, 12, 139, 4, 8, 201, 194, 8, 0 })返回 (0).子程序 辅_取支持库信指令, 文本型.参数 hLib.参数 fid.局部变量 addr.局部变量 count, 整数型.局部变量 ptr.局部变量 last_paddr, , 静态.局部变量 last_lib, , 静态.如果 (last_lib ≠ hLib) addr ＝ GetProcAddress (hLib, “GetNewInf”) .如果真 (addr ＝ 0) 返回 (“”) .如果真结束 addr ＝ CALL (addr) .如果真 (addr ＝ 0) 返回 (“”) .如果真结束 last_lib ＝ hLib last_paddr ＝ addr.否则 addr ＝ last_paddr.如果结束count ＝ read_offset_memory (addr, 100).如果真 (fid ＞ count) 返回 (“”).如果真结束ptr ＝ read_offset_memory (addr, 104)ptr ＝ read_offset_memory (ptr, 36 × fid ＋ 0)返回 (指针到文本 (ptr)).子程序 取支持库信指令, 文本型.参数 basic, 程序段_头信息.参数 index.参数 fid.局部变量 hLib.局部变量 str_list, 文本型, , "0"index ＝ index ＋ 1.如果真 (index ≤ 0 或 index ＞ 取数组成员数 (basic.支持库信息)) 返回 (“”).如果真结束str_list ＝ 分割文本 (basic.支持库信息 [index], 字符 (#回车键), )hLib ＝ GetModuleHandleA (str_list [1]).如果真 (hLib ＝ 0) hLib ＝ GetModuleHandleA (str_list [1] ＋ “.fne”) .如果真 (hLib ＝ 0) hLib ＝ LoadLibraryA (str_list [1] ＋ “.fne”) .如果真 (hLib ＝ 0) hLib ＝ LoadLibraryA (取文本注册项 (#现行用户, “Software\FlySky\E\Install\Path”, ) ＋ str_list [1] ＋ “.fne”) .如果真结束 .如果真结束.如果真结束.如果真 (hLib ＝ 0) 返回 (“”).如果真结束返回 (辅_取支持库信指令 (hLib, fid)).子程序 取用户定义指令, 文本型.参数 list, 程序段_函数, 数组.参数 id.局部变量 i, 整数型.计次循环首 (取数组成员数 (list), i) .如果真 (list [i].段头.dwID ＝ id) .如果 (list [i].名称 ≠ “”) 返回 (list [i].名称) .否则 返回 (“sub_” ＋ 取十六进制文本 (id)) .如果结束 .如果真结束.计次循环尾 ()返回 (“unk_” ＋ 取十六进制文本 (id)) |
其它
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
.版本 2.支持库 spec.程序集 其他.子程序 拖放文件.参数 hwnd, 整数型.参数 接收参数指针, 整数型DragAcceptFiles_ (hwnd, 1)SetProp_ (hwnd, “OriginalWndProc”, SetWindowLong_ (hwnd, #GWL_WNDPROC, 到整数 (&WndProc)))SetProp_ (hwnd, “lpFunction”, 接收参数指针).子程序 接收参数.参数 数量, 整数型.参数 文件名组, 文本型, , 以"|"分割.局部变量 i, 整数型.局部变量 tmp, 文本型, , "0"tmp ＝ 分割文本 (文件名组, “|”, )_启动窗口.地址编辑框.内容 ＝ tmp [1].子程序 WndProc, 整数型.参数 hwnd, 整数型.参数 msg, 整数型.参数 wParam, 整数型.参数 lParam, 整数型.判断开始 (msg ＝ #WM_DROPFILES) Query (wParam, GetProp_ (hwnd, “lpFunction”)) 返回 (0).默认.判断结束返回 (CallWindowProc_ (GetProp_ (hwnd, “OriginalWndProc”), hwnd, msg, wParam, lParam)).子程序 Query.参数 hDrop, 整数型.参数 接收参数的子程序指针, 整数型.局部变量 n, 整数型.局部变量 i, 整数型.局部变量 length, 整数型.局部变量 tmp, 文本型.局部变量 fileNames, 文本型n ＝ DragQueryFile_ (hDrop, 4294967295, 字符 (0), 0).计次循环首 (n, i) length ＝ DragQueryFile_ (hDrop, i － 1, 字符 (0), 0) tmp ＝ 取空白文本 (length) DragQueryFile_ (hDrop, i － 1, tmp, length ＋ 1) .判断开始 (i ≠ 1) fileNames ＝ fileNames ＋ “|” ＋ tmp .默认 fileNames ＝ tmp .判断结束.计次循环尾 ()调用子程序_ (接收参数的子程序指针, 真, , n, 取变量数据地址_文本型 (fileNames))DragFinish_ (hDrop).子程序 调用子程序_, 逻辑型.参数 子程序指针或子程序地址.参数 是否为C调用, 逻辑型, 可空.参数 返回值, , 参考 可空.参数 参数1, , 可空.参数 参数2, , 可空.参数 参数3, , 可空.参数 参数4, , 可空.参数 参数5, , 可空.参数 参数6, , 可空.参数 参数7, , 可空.参数 参数8, , 可空.参数 参数9, , 可空.参数 参数10, , 可空.参数 参数11, , 可空.参数 参数12, , 可空.参数 参数13, , 可空.参数 参数14, , 可空.参数 参数15, , 可空置入代码 ({ 86, 81, 51, 201, 81, 177, 15, 139, 245, 129, 198, 152, 0, 0, 0, 131, 238, 8, 139, 198, 139, 0, 133, 192, 116, 8, 139, 70, 252, 80, 131, 69, 244, 4, 226, 235, 255, 85, 8, 139, 77, 20, 137, 1, 51, 192, 57, 69, 12, 116, 3, 3, 101, 244, 89, 89, 94 })返回 (真).子程序 取变量数据地址_文本型, 整数型.参数 变量, 文本型, 参考置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })返回 (0) |
修复被破坏文件启动窗口的代码
|
1
2
3
4
5
6
7
8
9
10
11
|
.版本 2.程序集 窗口程序集_启动窗口.子程序 __启动窗口_创建完毕拖放文件 (地址编辑框.取窗口句柄 (), 到整数 (&接收参数)).子程序 _选择文件按钮_被单击通用对话框1.打开 ()地址编辑框.内容 ＝ 通用对话框1.文件名.子程序 _修复按钮_被单击.如果真 (分析_易文件 (地址编辑框.内容, 密码编辑框.内容, 真)) 信息框 (“已修复完成！”, 0, “提示：”, ).如果真结束 |
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对米米素材网的支持。如果你想了解更多相关内容请查看下面相关链接
发表评论