delphi MD5加密 pas 文件 function StrToMD5(str:string):string; //计算字符串的MD5值 function FileToMD5(FilePath:string):string; //计算文件的MD5值直接 uses MD5 就可以用