[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
05-06 08:52
查看更多