获取文件CRC和MD5

1. unit untCRCMD5;  
2.   
3. interface  
4.   
5. { 获取文件CRC校验码 }  
6. function GetFileCRC(const iFileName: string): String;  
7. { 获取字符串CRC校验码 }  
8. function GetStringCRC(const Str: string): Cardinal;  
9. { 取文件MD5码 }  
10. function GetFileMD5(const iFileName: string): String;  
11.   
12. implementation  
13.   
14. uses Classes, IdHashMessageDigest, IdHashCRC;  
15.   
16. { 获取文件CRC校验码 }  
17. function GetFileCRC(const iFileName: string): String;  
18. var  
19.   MemSteam: TMemoryStream;  
20.   MyCRC   : TIdHashCRC32;  
21. begin  
22.   MemSteam := TMemoryStream.Create;  
23.   MemSteam.LoadFromFile(iFileName);  
24.   MyCRC  := TIdHashCRC32.Create;  
25.   Result := MyCRC.HashStreamAsHex(MemSteam);  
26.   MyCRC.Free;  
27.   MemSteam.Free;  
28. end;  
29.   
30. { 获取字符串CRC校验码 }  
31. function GetStringCRC(const Str: string): Cardinal;  
32. var  
33.   MyCRC: TIdHashCRC32;  
34. begin  
35.   MyCRC  := TIdHashCRC32.Create;  
36.   Result := MyCRC.HashValue(Str);  
37.   MyCRC.Free;  
38. end;  
39.   
40. { 取文件MD5码 }  
41. function GetFileMD5(const iFileName: string): String;  
42. var  
43.   MemSteam: TMemoryStream;  
44.   MyMD5   : TIdHashMessageDigest5;  
45. begin  
46.   MemSteam := TMemoryStream.Create;  
47.   MemSteam.LoadFromFile(iFileName);  
48.   MyMD5  := TIdHashMessageDigest5.Create;  
49.   Result := MyMD5.HashStreamAsHex(MemSteam);  
50.   MyMD5.Free;  
51.   MemSteam.Free;  
52. end;  
53.   
54. end.