【2011年12月20日】动态编译 加快速度 ZMPI自学习反病毒 高级启发式 钓鱼启发式

zhangjianqwe

zhq445078388 发表于 2011-8-11 11:04
没错没错。。
就是那效果。。所以。。现在这个版本有自适应了
但是 点太少。。还是容易误报

1. .版本 2
   
2. .支持库 ogrelib
   
3. .支持库 iext2
   
4. .程序集 窗口程序集1
   
5. .程序集变量 a, 字节集
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. .子程序 _按钮1_被单击
   
9. .局部变量 i, 整数型
   
10. .局部变量 ARGB, 整数型
    
11. .局部变量 ii, 整数型
    
12. .局部变量 b, 整数型
    
13. .局部变量 iii, 整数型
    
14. .局部变量 取值, 整数型
    
15. .局部变量 cc, 文本型
    
16. .局部变量 x, 整数型
    
17. 通用对话框1.初始目录 ＝ 取运行目录 ()
    
18. .如果真 (通用对话框1.打开 () ＝ 假)
    
19.     返回 ()
    
20. .如果真结束
    
21. a ＝ 读入文件 (通用对话框1.文件名)
    
22. _启动窗口.标题 ＝ 通用对话框1.文件名
    
23. .计次循环首 (1024, i)
    
24.     .计次循环首 (128, ii)
    
25.         b ＝ b ＋ 1
    
26.         取值 ＝ a [b ＋ 28]
    
27. 
    
28.         cc ＝ “00000000” ＋ 十到二 (取值)
    
29.         cc ＝ 取文本右边 (cc, 8)
    
30.         ' 信息框 (cc, 0, )
    
31.         x ＝ 8
    
32.         .计次循环首 (8, iii)
    
33.             取值 ＝ 到整数 (取文本中间 (cc, x, 1)) × 255
    
34.             ARGB ＝ 合成颜色 (100, 取值, 取值, 取值)
    
35.             动画框1.画点 (8 × (ii － 1) ＋ iii, i, ARGB)
    
36.             x ＝ x － 1
    
37.         .计次循环尾 ()
    
38. 
    
39.     .计次循环尾 ()
    
40. .计次循环尾 ()
    
41. 
    
42. .子程序 _横向滚动条1_位置被改变
    
43. 动画框1.左边 ＝ 40 － 横向滚动条1.位置
    
44. .子程序 _纵向滚动条1_位置被改变
    
45. 动画框1.顶边 ＝ 48 － 纵向滚动条1.位置
    
46. 算法简单,就几句代码.
    
47. 2次循环

复制代码

分析编缉dhmap文件。作用于游戏怪物的地图层控制
算法有误。把你是看1成还多成
*。DHMAP文件附件有

zhangjianqwe

zhq445078388 发表于 2011-8-11 11:04
没错没错。。
就是那效果。。所以。。现在这个版本有自适应了
但是 点太少。。还是容易误报

Delphi版本

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, StdCtrls,ImagingTypes, Imaging,jpeg, ExtCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     Button1: TButton;
    
12.     Image1: TImage;
    
13.     OpenDialog1: TOpenDialog;
    
14.     Button2: TButton;
    
15.     Edit1: TEdit;
    
16.     ListBox1: TListBox;
    
17.     procedure Button1Click(Sender: TObject);
    
18.     procedure Button2Click(Sender: TObject);
    
19.     procedure ListBox1Click(Sender: TObject);
    
20.   private
    
21.     { Private declarations }
    
22.   public
    
23.     { Public declarations }
    
24.   end;
    
25. 
    
26. PdWordArray = ^TdWordArray;
    
27.   TdWordArray = array[0..16383] of dWORD;
    
28. 
    
29. var
    
30.   Form1: TForm1;
    
31. 
    
32. implementation
    
33. 
    
34. {$R *.dfm}
    
35. 
    
36. procedure TForm1.Button1Click(Sender: TObject);
    
37. var
    
38.   Img: TImageData;
    
39.   imgstream:TMemoryStream;
    
40.   b1:Byte;
    
41.   b2:Byte;
    
42.   x,y,xx,yy,i,yi:Integer;
    
43.   ig:TMemoryStream;
    
44. 
    
45.   jpg:tjpegimage;
    
46.   gs:array[0..256] of Integer;
    
47. 
    
48. begin
    
49. if not OpenDialog1.Execute  then  Exit;
    
50. 
    
51. InitImage(img);
    
52. NewImage(1024,1024,ifGray8,img);
    
53. imgstream:=TMemoryStream.Create ;
    
54. ig:=TMemoryStream.Create ;
    
55. imgstream.LoadFromFile(OpenDialog1.FileName);
    
56. imgstream.Position:=32;
    
57. imgstream.Read(gs[0],1028);
    
58. 
    
59. //ShowMessage(IntToStr(i));
    
60.   yi:=StrToInt(Edit1.Text);
    
61. for i := 0 to 255 do
    
62. begin
    
63. 
    
64.   imgstream.Position:=1060+gs[i]*8192;
    
65.   if gs[i]<>-1 then
    
66.   begin
    
67. 
    
68.      for y := 0 to 63 do
    
69.      begin
    
70.        yy:=(i div 16)*64 +y;
    
71.          for x := 0 to 63 do
    
72.          begin
    
73.           xx:=(i-(i div 16) *16)*64 +x;
    
74.           //xx:= xxx*64 + x;
    
75.            imgstream.Read(b1,1);imgstream.Read(b2,1);
    
76.            b1:=(b2 shr yi) and yi;
    
77.           //PdWordArray(@PdWordArray(Img.Bits)[(1023-yy) * 1024])[xx] :=b1*100;
    
78.          PByteArray(@PByteArray(Img.Bits)[yy * 1024])[xx] :=b1*255;
    
79.          // imgstream.Read(b1,1);
    
80. 
    
81.          end;
    
82. 
    
83. 
    
84.      end;
    
85. 
    
86. 
    
87. 
    
88.   end;
    
89. 
    
90. 
    
91. 
    
92. 
    
93.   end;
    
94. 
    
95. 
    
96. 
    
97. 
    
98. 
    
99.   SaveImageToFile('dhmap.jpg',img);
    
100.   jpg:= tjpegimage.Create ;
     
101.   ig.SetSize(0);
     
102.   SaveImageToStream('jpg',ig,img);
     
103.   ig.Position:=0;
     
104.   jpg.LoadFromStream(ig);
     
105.   Image1.Picture.Assign(jpg);
     
106.   jpg.Free;
     
107.   FreeImage(img);
     
108.   ig.Free;
     
109.   imgstream.Free;
     
110. end;
     
111. 
     
112. procedure TForm1.Button2Click(Sender: TObject);
     
113. var
     
114.   Img: TImageData;
     
115.   imgstream:TMemoryStream;
     
116.   b1,b2:Byte;
     
117.   x,y,xx,yy,i:Integer;
     
118.   ig:TMemoryStream;
     
119. 
     
120.   jpg:tjpegimage;
     
121.   gs:array[0..256] of Integer;
     
122. 
     
123. begin
     
124. if not OpenDialog1.Execute  then  Exit;
     
125. 
     
126. InitImage(img);
     
127. NewImage(1024,1024,ifGray8,img);
     
128. imgstream:=TMemoryStream.Create ;
     
129. ig:=TMemoryStream.Create ;
     
130. imgstream.LoadFromFile(OpenDialog1.FileName);
     
131. imgstream.Position:=32;
     
132. imgstream.Read(gs[0],1028);
     
133. 
     
134. //ShowMessage(IntToStr(i));
     
135. 
     
136. for i := 0 to 255 do
     
137. begin
     
138. 
     
139.   imgstream.Position:=1060+gs[i]*8192;
     
140.   if gs[i]<>-1 then
     
141.   begin
     
142. 
     
143.      for y := 0 to 63 do
     
144.      begin
     
145.        yy:=(i div 16)*64 +y;
     
146.          for x := 0 to 63 do
     
147.          begin
     
148.           xx:=(i-(i div 16) *16)*64 +x;
     
149.           //xx:= xxx*64 + x;
     
150.            imgstream.Read(b1,1); imgstream.Read(b2,1);
     
151.           PByteArray(@PByteArray(Img.Bits)[(1023-yy) * 1024])[xx] :=b1;
     
152. 
     
153.           //PByteArray(@PByteArray(Img.Bits)[yy * 1024])[xx] :=b2*10;
     
154.          // imgstream.Read(b1,1);
     
155. 
     
156.          end;
     
157. 
     
158. 
     
159.      end;
     
160. 
     
161. 
     
162. 
     
163.   end;
     
164. 
     
165. 
     
166. 
     
167. 
     
168.   end;
     
169. 
     
170. 
     
171. 
     
172. 
     
173. 
     
174.   SaveImageToFile('dhmap.jpg',img);
     
175.   jpg:= tjpegimage.Create ;
     
176.   ig.SetSize(0);
     
177.   SaveImageToStream('jpg',ig,img);
     
178.   ig.Position:=0;
     
179.   jpg.LoadFromStream(ig);
     
180.   Image1.Picture.Assign(jpg);
     
181.   jpg.Free;
     
182.   FreeImage(img);
     
183.   ig.Free;
     
184.   imgstream.Free;
     
185. end;
     
186. 
     
187. procedure TForm1.ListBox1Click(Sender: TObject);
     
188. var
     
189.   Img: TImageData;
     
190.   imgstream:TMemoryStream;
     
191.   b1:Word;
     
192.   b2:Byte;
     
193.   x,y,xx,yy,i,yi:Integer;
     
194.   ig:TMemoryStream;
     
195. 
     
196.   jpg:tjpegimage;
     
197.   gs:array[0..256] of Integer;
     
198. 
     
199. begin
     
200. if  OpenDialog1.FileName=''  then  Exit;
     
201. 
     
202. InitImage(img);
     
203. NewImage(1024,1024,ifGray8,img);
     
204. imgstream:=TMemoryStream.Create ;
     
205. ig:=TMemoryStream.Create ;
     
206. imgstream.LoadFromFile(OpenDialog1.FileName);
     
207. imgstream.Position:=32;
     
208. imgstream.Read(gs[0],1028);
     
209. 
     
210. //ShowMessage(IntToStr(i));
     
211.   yi:=StrToInt(Edit1.Text);
     
212. for i := 0 to 255 do
     
213. begin
     
214. 
     
215.   imgstream.Position:=1060+gs[i]*8192;
     
216.   if gs[i]<>-1 then
     
217.   begin
     
218. 
     
219.      for y := 0 to 63 do
     
220.      begin
     
221.        yy:=(i div 16)*64 +y;
     
222.          for x := 0 to 63 do
     
223.          begin
     
224.           xx:=(i-(i div 16) *16)*64 +x;
     
225.           //xx:= xxx*64 + x;
     
226.            imgstream.Read(b1,2);//imgstream.Read(b2,1);
     
227.            b1:=(b1 shr ListBox1.ItemIndex) and yi;
     
228.           //PdWordArray(@PdWordArray(Img.Bits)[(1023-yy) * 1024])[xx] :=b1*100;
     
229.          PByteArray(@PByteArray(Img.Bits)[yy * 1024])[xx] :=b1*255;
     
230.          // imgstream.Read(b1,1);
     
231. 
     
232.          end;
     
233. 
     
234. 
     
235.      end;
     
236. 
     
237. 
     
238. 
     
239.   end;
     
240. 
     
241. 
     
242. 
     
243. 
     
244.   end;
     
245. 
     
246. 
     
247. 
     
248. 
     
249. 
     
250.   SaveImageToFile('dhmap.jpg',img);
     
251.   jpg:= tjpegimage.Create ;
     
252.   ig.SetSize(0);
     
253.   SaveImageToStream('jpg',ig,img);
     
254.   ig.Position:=0;
     
255.   jpg.LoadFromStream(ig);
     
256.   Image1.Picture.Assign(jpg);
     
257.   jpg.Free;
     
258.   FreeImage(img);
     
259.   ig.Free;
     
260.   imgstream.Free;
     
261. end;
     
262. 
     
263. end.
     

复制代码

liuhaotian0520

我来观望一下，代码大概看得懂但是我还是菜鸟，不敢试

zhangjianqwe

liuhaotian0520 发表于 2011-8-11 11:29
我来观望一下，代码大概看得懂但是我还是菜鸟，不敢试

。。。。。哦我的代码跟那引擎没有关系的。我想找他帮忙一起看看怎么看DHMAP文件分析一下到底怎么看那辅助地图范围的文件这个是用于地图服务端版本上代码。看不懂看E版。E不懂看Delphi版本，我本身精通。E，Delphi。VC++和c++

liuhaotian0520

zhangjianqwe 发表于 2011-8-11 11:34
。。。。。哦我的代码跟那引擎没有关系的。我想找他帮忙一起看看怎么看DHMAP文件分析一下到底怎么看那辅 ...

我就懂DELPHI C++

zhangjianqwe

liuhaotian0520 发表于 2011-8-11 11:52
我就懂DELPHI C++

好的。喜欢C++的来帮帮看看。我别东西。。。http://bbs.kafan.cn/thread-1047294-1-2.html

sht0602

zdolo大侠指点指点楼主哈。
支持下楼主。

zhq445078388

zhangjianqwe 发表于 2011-8-11 11:34
。。。。。哦我的代码跟那引擎没有关系的。我想找他帮忙一起看看怎么看DHMAP文件分析一下到底怎么看那辅 ...

我不会写那些的。。
看起来是游戏的界面点控啊
不弄那个

zhangjianqwe

zhq445078388 发表于 2011-8-11 13:19
我不会写那些的。。
看起来是游戏的界面点控啊
不弄那个

哦。知道了。没事你也玩玩呀，挺好玩的

zhq445078388

zhangjianqwe 发表于 2011-8-11 13:25
哦。知道了。没事你也玩玩呀，挺好玩的

我对那个不感兴趣
倒是对你会的反汇编很感兴趣
教教我被