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;