HanDs
管理员

[Delphi文章] Delphi获取MD5值 



function GetFileMD5(var path:string):string; //获取文件的MD5值
var
filemd5:TIdHashMessageDigest5;
fs: TFileStream;
begin
  Try
    filemd5:=TIdHashMessageDigest5.Create;    //必须先初始化
    fs := TFileStream.Create(path,fmOpenRead);
    result:=filemd5.AsHex(filemd5.HashValue(fs));
  finally
  filemd5.Free;//最后必须释放对象
  fs.Free;
  end;
end;


//获取文本MD5值
function GetMD5Hash(Str:String):String;
var
   md5 : TIdHashMessageDigest5;
   longWordRec : T4x4LongWordRecord;
begin
   md5 := TIdHashMessageDigest5.Create;
   longWordRec:=md5.HashValue(Trim(Str)); //加密
   Result:= md5.AsHex(longWordRec);
   md5.Free;
end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
Delphi 获取 MD5
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复