Delphi UMD5HMAC.pas

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