获取文件CRC和MD5
来源:互联网 发布:cnzz 阿里云备案 编辑:程序博客网 时间:2024/03/29 01:45
unit untCRCMD5;interface{ 获取文件CRC校验码 }function GetFileCRC(const iFileName: string): String;{ 获取字符串CRC校验码 }function GetStringCRC(const Str: string): Cardinal;{ 取文件MD5码 }function GetFileMD5(const iFileName: string): String;implementationuses Classes, IdHashMessageDigest, IdHashCRC;{ 获取文件CRC校验码 }function GetFileCRC(const iFileName: string): String;var MemSteam: TMemoryStream; MyCRC : TIdHashCRC32;begin MemSteam := TMemoryStream.Create; MemSteam.LoadFromFile(iFileName); MyCRC := TIdHashCRC32.Create; Result := MyCRC.HashStreamAsHex(MemSteam); MyCRC.Free; MemSteam.Free;end;{ 获取字符串CRC校验码 }function GetStringCRC(const Str: string): Cardinal;var MyCRC: TIdHashCRC32;begin MyCRC := TIdHashCRC32.Create; Result := MyCRC.HashValue(Str); MyCRC.Free;end;{ 取文件MD5码 }function GetFileMD5(const iFileName: string): String;var MemSteam: TMemoryStream; MyMD5 : TIdHashMessageDigest5;begin MemSteam := TMemoryStream.Create; MemSteam.LoadFromFile(iFileName); MyMD5 := TIdHashMessageDigest5.Create; Result := MyMD5.HashStreamAsHex(MemSteam); MyMD5.Free; MemSteam.Free;end;end.
Delphi2010/XE都可编译通过。简单明了。
- 获取文件CRC和MD5
- 获取文件CRC和MD5
- MD5和CRC
- Java文件的MD5校验和CRC校验
- 获取文件的 MD5、CRC、SHA-1、SHA-256、SHA-512
- 获取RSA文件的MD5和SHA1
- 获取文件MD5,MD5加密
- 获取文件的md5
- 获取文件md5值
- 获取文件md5值
- 获取文件的md5
- python 获取文件md5
- iOS - 获取文件MD5 :
- android:获取文件MD5
- C#获取文件MD5
- 获取文件的MD5
- 获取文件的md5
- 获取文件MD5值
- eclipse 快捷键
- 关于flex开发中的跨域访问问题
- MFC 生成 exe文件的图标更改方法(转)
- 学习c第二天
- Qt 进程间通讯学习(windows共享段)
- 获取文件CRC和MD5
- drivers/media/video/ov511.c: Camera type (108) not recognized 问题解决
- hdu 5.2.5 产生冠军
- VSS客户端配置
- LoadRunner中IP欺骗功能详解
- xcode4 下 wax开发环境的搭建,Error opening wax scripts: loading wax stdlib: bad header in precompiled chunk
- C语言实现字符串拷贝并逆序的问题
- JavaScript表单验证大全
- ExtJS EditorGridPanel中时间日期编辑问题的总结