Delphi xe7 中MD5进行字符串加密

在delphi xe7中执行md5加密只需引用IdHashMessageDigest 单元即可，具体代码如下：

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,IdHashMessageDigest,Vcl.StdCtrls;
  //这里一定要加上IdHashMessageDigest单元的引用

type
  TForm1 = class(TForm)
    Edit1: TEdit;    //要加密的字符串输入框
    Button1: TButton;    //加密过程执行按钮
    Label1: TLabel;
    Edit2: TEdit;    //加密结果显示框
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyMD5: TIdHashMessageDigest5;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyMD5 := TIdHashMessageDigest5.Create;
  edit2.Text:= MyMD5.HashStringAsHex(trim(LowerCase(edit1.Text))).tolower;
  //lowercase函数是把字符串转换为小写
  //trim函数是去除字符串首尾空格
  //最后的tolower是把加密后结果转化成小写输出，如果你喜欢大写，那么去掉它就好了
end;

end.

运行结果如下：