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.
