Delphi 2007 XE10.1 MD5加密 中文 英文 16位 32位

Delphi 2007版本如下获取：

单元引用 IdHashMessageDigest, IdHash;

特别注意的是， 在加密之前对字符串进行UTF8Encode操作. 参考如下:

unit uCryption;

interface

uses
  IdHashMessageDigest, IdHash, SysUtils;

//MD16 MD32加密算法
function GetMD5_Encrypt16(param: string; bLow: Boolean= false): string; //16位加密
function GetMD5_Encrypt32(param: string; bLow: Boolean= false): string; //32位加密

implementation

function GetMD5_Encrypt16(param: string; bLow: Boolean): string;
var
  md5: TIdHashMessageDigest5;
  Digest: T4x4LongWordRecord;
begin
  md5 := TIdHashMessageDigest5.Create;
  Digest := md5.HashValue(UTF8Encode(param));
  if bLow then
    Result := UpperCase(Copy(md5.AsHex(Digest), 9, 16))
  else
    Result := LowerCase(Copy(md5.AsHex(Digest), 9, 16));
end;

function GetMD5_Encrypt32(param: string; bLow: Boolean): string;
var
  md5: TIdHashMessageDigest5;
  Digest: T4x4LongWordRecord;
begin
  md5 := TIdHashMessageDigest5.Create;
  Digest := md5.HashValue(UTF8Encode(param));
  if bLow then
    Result := UpperCase(md5.AsHex(Digest))
  else
    Result := LowerCase(md5.AsHex(Digest));
end;

end.

调用方式：

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str:= Trim(Edit1.Text);
  ShowMessage(GetMD5_Encrypt16(str));  //16位
  ShowMessage(GetMD5_Encrypt32(str));;  //32位
end;

加密效果图:

对比在线加密: https://www.bejson.com/enc/md5/   效果图:

可见加密是成功的。

 

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

 

Delphi XE10.1版本如下获取：(这个版本下对汉字加密有点问题，空闲了再研究下)

单元引用 IdHashMessageDigest, IdHash;

unit uMD5;

interface

uses IdHash, IdHashMessageDigest;

type
  TMD5= class(TIdHashMessageDigest5);

  function StrToMD5(s: String): String; overload;
  function StrToMD516(s: String; l: integer): String; overload;
  function StrToMD532(s: String; l: integer): String; overload;


implementation

function StrToMD5(s: String): String;
var
  Md5Encode: TMD5;
begin
  Md5Encode:= TMD5.Create;
  result:= Md5Encode.HashToHex(Md5Encode.HashString(UTF8Encode(AnsiString(S))));
  Md5Encode.Free;
end;

function StrToMD516(s: String; l: integer): String; overload;
begin
  Result:= Copy(StrToMD5(s), 9, l);
end;

function StrToMD532(s: String; l: integer): String; overload;
begin
  Result:= Copy(StrToMD5(s), 1, l);
end;

end.

调用实现：

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str:= Trim(Edit1.Text);
  ShowMessage(StrToMD516(str, 16));  //16位
  ShowMessage(StrToMD532(str, 32));  //32位
end;