MD5,HMac-Md5代码，需要的请下载，纯delphi源码 以下字数仅仅是凑够50个字而已。 function GetFileMD5(FileName: string): string; begin Result:=StrUpper(PChar(BMD5Print(BMD5File(FileName)))); end;