THashMD5,THashSHA1,THashBobJenkins,TIdHashMessageDigest5的用法

[delphi] view plain copy

1. unit Unit1;
2. interface
3. uses
4. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
5. System.Classes, Vcl.Graphics,Soap.EncdDecd,IdHashMessageDigest,IdSSLOpenSSL,IdSSLOpenSSLHeaders,
6. Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Hash;
7. type
8. TForm1 = class(TForm)
9. Button1: TButton;
10. Button2: TButton;
11. Button3: TButton;
12. Button4: TButton;
13. procedure Button1Click(Sender: TObject);
14. procedure Button2Click(Sender: TObject);
15. procedure Button3Click(Sender: TObject);
16. procedure Button4Click(Sender: TObject);
17. private
18. { Private declarations }
19. public
20. { Public declarations }
21. end;
22. TMD5 = class(TIdHashMessageDigest5);
23. var
24. Form1: TForm1;
25. implementation
26. {$R *.dfm}
27. function MyFun(p: Pointer): Integer; stdcall;
28. var
29. i: Integer;
30. begin
31. for i := 0 to 500 do
32. begin
33. Form1.Canvas.Lock;
34. Form1.Canvas.TextOut(10, 10, 'threadid=' + IntToStr(GetCurrentThreadId()) +
35. ',' + IntToStr(i));
36. Form1.Canvas.Unlock;
37. Sleep(10);
38. end;
39. Result := 0;
40. end;
41. procedure MyPro();
42. var
43. i: Integer;
44. begin
45. for i := 0 to 500 do
46. begin
47. Form1.Canvas.Lock;
48. Form1.Canvas.TextOut(10, 10, 'threadid=' + IntToStr(GetCurrentThreadId()) +
49. ',' + IntToStr(i));
50. Form1.Canvas.Unlock;
51. Sleep(10);
52. end;
53. end;
54. procedure TForm1.Button1Click(Sender: TObject);
55. begin
56. ShowMessage('xxx');
57. MessageBox(0, 'nn', 'mmm', 0);
58. Application.MessageBox('xxx', 'system', 0);
59. end;
60. procedure TForm1.Button2Click(Sender: TObject);
61. begin
62. //
63. TThread.CreateAnonymousThread(MyPro).Start;
64. end;
65. procedure TForm1.Button3Click(Sender: TObject);
66. var
67. data, key: string;
68. begin
69. data := 'xxx';
70. key := 'key';
71. ShowMessage(THashMD5.Create.GetHashString(data));
72. ShowMessage(THashMD5.Create.GetHMAC(data, key));
73. ShowMessage(THashSHA1.Create.GetHashString(data));
74. ShowMessage(THashSHA1.Create.GetHMAC(data, key));
75. ShowMessage(THashBobJenkins.Create.GetHashString(data));
76. ShowMessage(THash.GetRandomString(10));
77. ShowMessage(THash.DigestAsString(TEncoding.UTF8.GetBytes(data)));
78. end;
79. procedure TForm1.Button4Click(Sender: TObject);
80. var
81. data, key: string;
82. begin
83. data:='fuck';
84. data:=EncodeString(data) ;
85. ShowMessage(data);
86. ShowMessage(DecodeString(data));
87. ShowMessage(TMD5.Create.HashStringAsHex(data));
88. end;
89. end.

 

 http://blog.csdn.net/earbao/article/details/46532077