国密SM2加解密 for delphi xe 11.1

SM2是国家密码管理局于2010年12月17日发布的椭圆曲线公钥密码算法。

SM2算法和 RSA算法都是公钥密码算法，SM2算法是一种更先进安全的算法，在我们国家 商用密码体系中被用来替换RSA算法。

今天有时间测试了一下Delphi 开源 CnPack 组件包！加密和解密测试成功！有兴趣的朋友可以自己测试一下。我测试了一下，和在线的加解密网站通用。

签名文本未测试成功，DEMO是签名文件的，有成功的朋友麻烦告诉告诉一下。

 以下是签名代码，未成功，有高手指点一下！

procedure TfrmMain.btnSM2SignClick(Sender: TObject);
var
  T: AnsiString;
  SM2: TCnSM2;
  PrivateKey: TCnEccPrivateKey;
  PublicKey: TCnEccPublicKey;
  EnStream: TMemoryStream;
  SignRes: TCnSM2Signature;
begin
  if not CheckPublicKeyStr(edtSM2PublicKey) or not CheckPrivateKeyStr(edtSM2PrivateKey) then
    Exit;
 
//  if not FileExists(edtSM2FileSign.Text) then
//    Exit;
 
  SM2 := TCnSM2.Create(ctSM2);
  PrivateKey := TCnEccPrivateKey.Create;
  PrivateKey.SetHex(edtSM2PrivateKey.Text);
 
  PublicKey := TCnEccPublicKey.Create;
  PublicKey.SetHex(edtSM2PublicKey.Text);
 
  EnStream := TMemoryStream.Create;
  //FileStream.LoadFromFile(edtSM2FileSign.Text);
  T := AnsiString('123456');
  SignRes := TCnSM2Signature.Create;
 
  if CnSM2SignData('123456', EnStream.Memory, Length(T), SignRes,
    PrivateKey, PublicKey, SM2) then
  begin
    mmoSM2Decrypt.Lines.Text := SignRes.ToHex;
  end
  else
    ShowMessage('Sign File Failed.');
 
  SignRes.Free;
  EnStream.Free;
  PublicKey.Free;
  PrivateKey.Free;
  SM2.Free;
end;