论坛 › Delphi交流 › MD5加密问题 求高手啊

Sven 发表于 2012-4-23 01:32:06

MD5加密问题 求高手啊

怎么能读出MD5加密过的字符串啊

tlwangxd 发表于 2014-10-17 10:40:19

什么也没发出来

qq351317878 发表于 2014-10-17 12:02:34

md5加密字符串

unit ToMd5;

interface
uses
IdHashMessageDigest, IdHash, IdGlobal;

type
TMD5 = class(TIdHashMessageDigest5);

function StrToMD5(S: String): String; overload;
function StrToMD516(S: String; L: integer): String; overload; //返加16位MD5值
function StrToMD532(S: String; L: integer): String; overload; //返回32位MD5值

implementation
function StrToMD5(S: String): String;
var
Md5Encode: TMD5;
begin
Md5Encode:= TMD5.Create;
result:= Md5Encode.AsHex(Md5Encode.HashValue(S));
Md5Encode.Free;
end;

function StrToMD516(S: String; L: integer): String;
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.

查看完整版本: MD5加密问题 求高手啊