delphi中MD5的获取(Indy 10)

最新推荐文章于 2024-11-11 10:02:15 发布

weixin_30787531

最新推荐文章于 2024-11-11 10:02:15 发布

阅读量147

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ProgramBull/archive/2010/05/06/1728989.html

本文介绍了一个简单的 Delphi 应用程序，使用 Indy10 库中的 TIdHashMessageDigest5 类来生成字符串的 MD5 哈希值。通过一个按钮点击事件触发，将输入框中的文本转换为 MD5 哈希，并显示在另一个文本框中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs ,  IdHashMessageDigest, StdCtrls;

type
  TMD5 = class(TIdHashMessageDigest5);

  TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  MyMD5: TMD5;
begin
  MyMD5 := TMD5.Create;
  try
    Memo2.Text := MyMD5.HashStringAsHex(Memo1.Text);    // Indy10中可以直接HashStringAsHex
  finally
    MyMD5.Free;
  end;
end;

end.

以上方法只适合 Indy10

转载于:https://www.cnblogs.com/ProgramBull/archive/2010/05/06/1728989.html