当前位置:网站首页 > 新媒体 > 正文

sha1校验怎么做(sha1暴力破解方法)

0 李勇seo 李勇seo 2025-04-25 09:20 4

在不同语言环境中,要判断一个文件是否重复比较麻烦。通过文件的一般标准的sha1算法,得到文件的HASH值判断文件重复是可行的,多可文档系统即可中提供了delphi语言的判断函数,如下:

unit IdHashSHA;

function FileSHA1(const FileName: string): string;

var

InStream: TFileStream;

SHA1: TIdHashSHA1;

begin

SHA1 := TIdHashSHA1.Create;

InStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

try

InStream.Position := 0;

Result := SHA1.HashStreamAsHex(InStream).ToLower;

// certutil -hashfile 文件 SHA1 微软SHA-1校验

finally

// R := nil;

InStream.Free();

SHA1.Free();

end;

end;

李勇seo

李勇seo

TA很懒,啥都没写...

本文暂时没有评论,来添加一个吧(●'◡'●)

取消回复欢迎 发表评论:

@百闻站长 本站部分内容转自互联网,若有侵权等问题请及时与本站联系,我们将在第一时间删除处理。 | 粤ICP备2025402138号 | (地图