ID499896465

Delphi Xe7和Firemonkey的MD5加密的两种实现方法。

Delphi Xe7 下的MD5加密：

uses MessageDigest_5, System.Types;

var

  MD5: IMD5;

        MD5 := GetMD5;

        MD5.Init;

        MD5.Update(TByteDynArray(RawByteString(要加密的字符串)), Length(要加密的字符串));

        getMd5:= LowerCase(MD5.AsString);

----------------------------------------------------------------------

但是 MessageDigest_5 在firemonkey下需要修改，我懒，于是用indy更简单……

uses IdHashMessageDigest,IdGlobal, IdHash;

var

MyMD5: TIdHashMessageDigest5;

    MyMD5 := TIdHashMessageDigest5.Create;

    getMd5 := LowerCase(MyMD5.HashStringAsHex(要加密的字符串));

    MyMD5.Free;

搞定……