MD5 delPhi 加密

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdHashMessageDigest,IdGlobal, IdHash,util_utf8;

type

  TForm1 = class(TForm)

    btn1: TButton;

    procedure btn1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

function MD5Ecryption(source:String):string;//MD5加密

var

  MyMD5:TIdHashMessageDigest5;

  Digest:T4x4LongWordRecord;

  ciphertext:String;//返回密文

begin

  Result := '';

  MyMD5 := TIdHashMessageDigest5.Create;

  Digest := MyMD5.HashValue(source);

  ciphertext := MyMD5.AsHex(Digest);

  ciphertext := LowerCase(ciphertext);//密文转换为小写

  Result := ciphertext;

end;

procedure TForm1.btn1Click(Sender: TObject);

var

  str: string;

  //ffdd7738610596f36c0654d1af8e9c91

begin

  str := MD5Ecryption(AnsiTowide('百胜软件有限公司'));

  str := STR;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

  str: string;

  //ffdd7738610596f36c0654d1af8e9c91

  // af707a26062b0c626405189f78d7f215;

  这个软件的加密跟Mysql加密结果是一样的。

begin

  str := MD5Ecryption('百胜软件有限公司');

  str := STR;

end;

end.