此文章是vip文章,如何查看?  

1,点击链接获取密钥 http://nicethemes.cn/product/view29882.html

2,在下方输入文章查看密钥即可立即查看当前vip文章


Delphi XE10 MD5获取方法

  • 时间:
  • 浏览:
  • 来源:互联网

Delphi XE10 以上版本如下获取:

单元引用 IdHashMessageDigest, IdHash;

声明如下方法:

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;

实现如下方法:

function StrToMD5(s: string): string;
var
  Md5Encode: TMD5;
begin
  Md5Encode:= TMD5.Create;
  result:= Md5Encode.HashToHex(Md5Encode.HashString(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;

调用实现:

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

本文链接http://element-ui.cn/news/show-577365.aspx