Delphi实现SM3国密算法用于文件校验

//引用
uses CnSM3;


var
  _CnSM3Digest : TCnSM3Digest;
  _sSM3:string;
  
//获取文件的SM3
_CnSM3Digest := SM3File(_sFile1);
_sSM3 := '';
for I := 0 to High(_CnSM3Digest) do
begin
  _sSM3 := _sSM3 + IntToHex(_CnSM3Digest[I],2);
end;

//_sSM3就是文件的SM3校验