国密SM2加解密 for delphi xe 11.1

最新推荐文章于 2024-05-20 12:55:58 发布

redhat588

最新推荐文章于 2024-05-20 12:55:58 发布

阅读量2.5k

点赞数 2

文章标签： delphi SM2

本文链接：https://blog.csdn.net/redhat588/article/details/126316492

版权

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;