我目前在Delphi 7中使用此代码进行md5散列:
function MD5(const fileName : string) : string;
var
idmd5 : TIdHashMessageDigest5;
fs : TFileStream;
begin
idmd5 := TIdHashMessageDigest5.Create;
fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
try
result := idmd5.AsHex(idmd5.HashValue(fs)) ;
finally
fs.Free;
idmd5.Free;
end;
end;
md5_file()
我已经浏览了一下,常见问题似乎是编码而不是用零填充,但我不知道如何使用TIdHashMessageDigest5执行这些操作,或者它们是否已在函数中完成.
如果有人有任何他们使用的功能,我们将非常感激!
解决方法:
将您的结果与:
> PHP中的md5(file_get_contents())
>来自PHP hash framework extension的哈希(“md5”,)
>命令行程序md5(1)aka
的md5sum(1)
如果除了一个人之外的所有人都同意这笔金额,那么你就知道在哪里挖掘.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。