第一个delphi程序,请指点

learnlife

这个是MD5加密算法，要熟悉算法的才能看懂吧

caterpilla

不发源码怎么看啊？要我们用OD来调？/:017 /:017

liangwj888

应该加注释的
要规范啊!!
利于菜鸟偶学习~~/:001

xingke

我跟了一下汇编，也综合考虑了一下。修改了一下程序　　供你参考

具体为什么会引起这个问题，个人认为是动态数组定义哪里造成的

修改代码如下：

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, StdCtrls, jpeg, ExtCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     Edit1: TEdit;
    
12.     Edit2: TEdit;
    
13.     Button1: TButton;
    
14.     Image1: TImage;
    
15.     Label1: TLabel;
    
16.     Label2: TLabel;
    
17.     procedure Button1Click(Sender: TObject);
    
18. 
    
19.   private
    
20.     { Private declarations }
    
21.   public
    
22.     { Public declarations }
    
23.   end;
    
24. 
    
25. type LongWordArray =array of LongWord;
    
26. type PArrayByte =array of Byte;
    
27. 
    
28. var
    
29.   Form1: TForm1;
    
30. 
    
31. implementation
    
32. 
    
33. {$R *.dfm}
    
34. 
    
35. 
    
36. function md5_f ( x, y, z : LongWord ) : LongWord ;
    
37. begin
    
38.   Result := ( ( x and y) or ( ( not x) and z ) );
    
39. end;
    
40. 
    
41. 
    
42. function md5_g ( x, y, z : LongWord ) : LongWord ;
    
43. begin
    
44.   Result := ( ( x and z) or ( ( not z) and y ) );
    
45. end;
    
46. 
    
47. 
    
48. function md5_h ( x, y, z : LongWord ) : LongWord ;
    
49. begin
    
50.   Result := (  x xor y xor z );
    
51. end;
    
52. 
    
53. 
    
54. function md5_i ( x, y, z : LongWord ) : LongWord ;
    
55. begin
    
56.   Result := (  y xor (x or (not z)));
    
57. end;
    
58. 
    
59. 
    
60. function md5_RotateLeft ( x, s: LongWord ) : LongWord ;
    
61. begin
    
62.   Result := ( (x shl s) or (x shr (32- s)));
    
63. end;
    
64. 
    
65. 
    
66. procedure md5_ff ( var a:LongWord ;b,c,d,mj,s,ti :LongWord );
    
67. begin
    
68.   a:=a+ md5_f(b,c,d)+mj+ti;
    
69.   a:=md5_RotateLeft(a,s);
    
70.   a:=a+b;
    
71. end;
    
72. 
    
73. 
    
74. procedure md5_gg ( var a:LongWord ;b,c,d,mj,s,ti :LongWord );
    
75. begin
    
76.   a:=a+ md5_g(b,c,d)+mj+ti;
    
77.   a:=md5_RotateLeft(a,s);
    
78.   a:=a+b;
    
79. end;
    
80. 
    
81. 
    
82. procedure md5_hh ( var a:LongWord ;b,c,d,mj,s,ti :LongWord );
    
83. begin
    
84.   a:=a+ md5_h(b,c,d)+mj+ti;
    
85.   a:=md5_RotateLeft(a,s);
    
86.   a:=a+b;
    
87. end;
    
88. 
    
89. 
    
90. procedure md5_ii ( var a:LongWord ;b,c,d,mj,s,ti :LongWord );
    
91. begin
    
92.   a:=a+ md5_i(b,c,d)+mj+ti;
    
93.   a:=md5_RotateLeft(a,s);
    
94.   a:=a+b;
    
95. end;
    
96. 
    
97. 
    
98. procedure md5_MakeOneTurn ( var a,b,c,d:LongWord ; messageGroup:LongWordArray);
    
99. begin
    
100.         md5_ff(a, b, c, d, messageGroup[ 0],  7, $d76aa478);
     
101.         md5_ff(d, a, b, c, messageGroup[ 1], 12, $e8c7b756);
     
102.         md5_ff(c, d, a, b, messageGroup[ 2], 17, $242070db);
     
103.         md5_ff(b, c, d, a, messageGroup[ 3], 22, $c1bdceee);
     
104.         md5_ff(a, b, c, d, messageGroup[ 4],  7, $f57c0faf);
     
105.         md5_ff(d, a, b, c, messageGroup[ 5], 12, $4787c62a);
     
106.         md5_ff(c, d, a, b, messageGroup[ 6], 17, $a8304613);
     
107.         md5_ff(b, c, d, a, messageGroup[ 7], 22, $fd469501);
     
108.         md5_ff(a, b, c, d, messageGroup[ 8],  7, $698098d8);
     
109.         md5_ff(d, a, b, c, messageGroup[ 9], 12, $8b44f7af);
     
110.         md5_ff(c, d, a, b, messageGroup[10], 17, $ffff5bb1);
     
111.         md5_ff(b, c, d, a, messageGroup[11], 22, $895cd7be);
     
112.         md5_ff(a, b, c, d, messageGroup[12],  7, $6b901122);
     
113.         md5_ff(d, a, b, c, messageGroup[13], 12, $fd987193);
     
114.         md5_ff(c, d, a, b, messageGroup[14], 17, $a679438e);
     
115.         md5_ff(b, c, d, a, messageGroup[15], 22, $49b40821);
     
116. 
     
117.         md5_gg(a, b, c, d, messageGroup[ 1],  5, $f61e2562);
     
118.         md5_gg(d, a, b, c, messageGroup[ 6],  9, $c040b340);
     
119.         md5_gg(c, d, a, b, messageGroup[11], 14, $265e5a51);
     
120.         md5_gg(b, c, d, a, messageGroup[ 0], 20, $e9b6c7aa);
     
121.         md5_gg(a, b, c, d, messageGroup[ 5],  5, $d62f105d);
     
122.         md5_gg(d, a, b, c, messageGroup[10],  9, $02441453);
     
123.         md5_gg(c, d, a, b, messageGroup[15], 14, $d8a1e681);
     
124.         md5_gg(b, c, d, a, messageGroup[ 4], 20, $e7d3fbc8);
     
125.         md5_gg(a, b, c, d, messageGroup[ 9],  5, $21e1cde6);
     
126.         md5_gg(d, a, b, c, messageGroup[14],  9, $c33707d6);
     
127.         md5_gg(c, d, a, b, messageGroup[ 3], 14, $f4d50d87);
     
128.         md5_gg(b, c, d, a, messageGroup[ 8], 20, $455a14ed);
     
129.         md5_gg(a, b, c, d, messageGroup[13],  5, $a9e3e905);
     
130.         md5_gg(d, a, b, c, messageGroup[ 2],  9, $fcefa3f8);
     
131.         md5_gg(c, d, a, b, messageGroup[ 7], 14, $676f02d9);
     
132.         md5_gg(b, c, d, a, messageGroup[12], 20, $8d2a4c8a);
     
133.         
     
134.         md5_hh(a, b, c, d, messageGroup[ 5],  4, $fffa3942);
     
135.         md5_hh(d, a, b, c, messageGroup[ 8], 11, $8771f681);
     
136.         md5_hh(c, d, a, b, messageGroup[11], 16, $6d9d6122);
     
137.         md5_hh(b, c, d, a, messageGroup[14], 23, $fde5380c);
     
138.         md5_hh(a, b, c, d, messageGroup[ 1],  4, $a4beea44);
     
139.         md5_hh(d, a, b, c, messageGroup[ 4], 11, $4bdecfa9);
     
140.         md5_hh(c, d, a, b, messageGroup[ 7], 16, $f6bb4b60);
     
141.         md5_hh(b, c, d, a, messageGroup[10], 23, $bebfbc70);
     
142.         md5_hh(a, b, c, d, messageGroup[13],  4, $289b7ec6);
     
143.         md5_hh(d, a, b, c, messageGroup[ 0], 11, $eaa127fa);
     
144.         md5_hh(c, d, a, b, messageGroup[ 3], 16, $d4ef3085);
     
145.         md5_hh(b, c, d, a, messageGroup[ 6], 23, $04881d05);
     
146.         md5_hh(a, b, c, d, messageGroup[ 9],  4, $d9d4d039);
     
147.         md5_hh(d, a, b, c, messageGroup[12], 11, $e6db99e5);
     
148.         md5_hh(c, d, a, b, messageGroup[15], 16, $1fa27cf8);
     
149.         md5_hh(b, c, d, a, messageGroup[ 2], 23, $c4ac5665);
     
150.         
     
151.         md5_ii(a, b, c, d, messageGroup[ 0],  6, $f4292244);
     
152.         md5_ii(d, a, b, c, messageGroup[ 7], 10, $432aff97);
     
153.         md5_ii(c, d, a, b, messageGroup[14], 15, $ab9423a7);
     
154.         md5_ii(b, c, d, a, messageGroup[ 5], 21, $fc93a039);
     
155.         md5_ii(a, b, c, d, messageGroup[12],  6, $655b59c3);
     
156.         md5_ii(d, a, b, c, messageGroup[ 3], 10, $8f0ccc92);
     
157.         md5_ii(c, d, a, b, messageGroup[10], 15, $ffeff47d);
     
158.         md5_ii(b, c, d, a, messageGroup[ 1], 21, $85845dd1);
     
159.         md5_ii(a, b, c, d, messageGroup[ 8],  6, $6fa87e4f);
     
160.         md5_ii(d, a, b, c, messageGroup[15], 10, $fe2ce6e0);
     
161.         md5_ii(c, d, a, b, messageGroup[ 6], 15, $a3014314);
     
162.         md5_ii(b, c, d, a, messageGroup[13], 21, $4e0811a1);
     
163.         md5_ii(a, b, c, d, messageGroup[ 4],  6, $f7537e82);
     
164.         md5_ii(d, a, b, c, messageGroup[11], 10, $bd3af235);
     
165.         md5_ii(c, d, a, b, messageGroup[ 2], 15, $2ad7d2bb);
     
166.         md5_ii(b, c, d, a, messageGroup[ 9], 21, $eb86d391);
     
167. 
     
168. end;
     
169. 
     
170. 
     
171. function md5_TurnType (PByte:PArrayByte):string;
     
172. var
     
173. i:LongWord;
     
174. temp_num:Byte;
     
175. temp: string ;
     
176. begin
     
177. 
     
178.    Result :='';
     
179. 
     
180.    for i := 0 to 15 do
     
181.    begin
     
182.    temp_num :=pByte[i];
     
183.    temp := Format('%02x',[temp_num]);
     
184.    Result:=Result+temp;
     
185.    end;
     
186. 
     
187. end;
     
188. 
     
189. 
     
190. function md5_Digest ( var message :string ;len : LongWord ) : string ;
     
191. type
     
192.   PointerToChar = ^char;
     
193.   PointerToByte = ^Byte;
     
194. 
     
195.   var
     
196. 
     
197. thepointer,a,b,c,d,blen,groupLen,i:LongWord;
     
198. save :array of LongWord;
     
199. Group :array[1..64] of char;
     
200. p:array of char;
     
201. pByte:PArrayByte;
     
202. begin
     
203.   SetLength(save,5);
     
204.   save[1]:=$67452301;
     
205.   save[2]:=$efcdab89;
     
206.   save[3]:=$98badcfe;
     
207.   save[4]:=$10325476;
     
208.   i:=1;
     
209.   thepointer:=0;
     
210. 
     
211.   while thepointer <= len do
     
212.   begin
     
213.     groupLen := len - thepointer;
     
214.                 if(groupLen > 64) then  groupLen := 64;
     
215. 
     
216.                 for i := 1 to groupLen do
     
217.       Group[i] := message[thepointer + i];
     
218. 
     
219.     thepointer:=thepointer+groupLen;
     
220. 
     
221.     if groupLen < 64 then
     
222.     begin
     
223. 
     
224.       if (groupLen > 0) or (len = 0)   then
     
225.       begin
     
226.       Group[i] := Chr($80);
     
227.       i:=i+1;
     
228.       end;
     
229. 
     
230.       while i<=64 do
     
231.       begin
     
232.         Group[i] := chr(0);
     
233.         i:=i+1;
     
234.       end;
     
235. 
     
236.       if groupLen < 56 then
     
237.       begin
     
238.         blen := len * 8;
     
239.         //执行下面这句后save第4个元素不知道为什么加1了
     
240.         p := @blen;
     
241.         //搞不明白为什么会出现这种错误,,所以在这里-1,希望高手指点下
     
242.         //save[4]:=save[4]-1;
     
243.         for i := 57 to 60 do
     
244.           Group[i] := p[i - 57];
     
245. 
     
246.         thepointer := len + 1;
     
247.        end;
     
248.     end;
     
249. 
     
250.     a := save[1];
     
251.     b := save[2];
     
252.     c := save[3];
     
253.     d := save[4];
     
254. 
     
255.     md5_MakeOneTurn(a, b, c, d,@Group);
     
256.     save[1] := save[1] +a;
     
257.     save[2] := save[2] +b;
     
258.     save[3] := save[3] +c;
     
259.     save[4] := save[4] +d;
     
260. 
     
261.    end;
     
262. 
     
263.   Result:=md5_TurnType(@(save[1]));
     
264. end;
     
265. 
     
266. 
     
267. procedure TForm1.Button1Click(Sender: TObject);
     
268. var
     
269. text:string;
     
270. len:LongWord;
     
271. md5_text:string;
     
272. begin
     
273.   text:=Edit1.Text;
     
274.   len :=Length(text);
     
275.   md5_text:=md5_Digest(text,len);
     
276.   Edit2.Text:=md5_text;
     
277. 
     
278. end;
     
279. 
     
280. end.

复制代码

7878

没看懂,看大家le

spc_cll

p的类型为:array of char
blen的类型为LongWord;

p:=@bLen; 该指令是将bLen的地址赋值给p;bLen为临时变量,存储在栈中.
这条指令执行后,程序执行了一些附加代码,这些代码将使得p地址pAddr之前的单元pAddr-8的内容加1,
而pAddr-8刚好是Save[4]的地址(pAddr-4为Group的地址);

crazy_wen

没看懂是干什么用的，要加紧学拉，努力中。。。。

as3852711

代码实在太强大了！小人菜菜看不懂！/:002 /:002 /:002