自带密钥——10 个提供者
所有提供者均实现 IsgcKeyProvider 接口——相同的签名代码可用于本地文件、智能卡、HSM、云 KMS 或远程 QTSP。一行代码即可切换。
所有提供者均实现 IsgcKeyProvider 接口——相同的签名代码可用于本地文件、智能卡、HSM、云 KMS 或远程 QTSP。一行代码即可切换。
TsgcPFXKeyProviderPFX / PKCS#12 文件。本地密码保护密钥。适合开发环境、小规模部署以及证书以单个 .pfx/.p12 文件分发的工作流。
PKCS12_PREFER_CNG_KSP 导入——无论原始 CSP 为何,SHA-256/384/512 签名均可正常工作。
.pfx 文件,直至找到含私钥的证书。
var
vPFX: TsgcPFXKeyProvider;
begin
vPFX := TsgcPFXKeyProvider.Create(nil);
try
vPFX.FileName := 'certificate.pfx';
vPFX.Password := 'mypassword';
vPFX.LoadFromFile;
// vSigner.KeyProvider := vPFX;
finally
vPFX.Free;
end;
end;
TsgcPEMKeyProviderPEM 文件。加密 PKCS#8,原生支持 PBES2 / PBKDF2 / AES-CBC,以及传统 RSA 私钥 DEK-Info 格式。适合基于 OpenSSL 的流水线。
BEGIN CERTIFICATE、BEGIN RSA PRIVATE KEY、BEGIN PRIVATE KEY、BEGIN ENCRYPTED PRIVATE KEY 均支持。
PrivateKeyFile 留空即可。
var
vPEM: TsgcPEMKeyProvider;
begin
vPEM := TsgcPEMKeyProvider.Create(nil);
try
vPEM.CertificateFile := 'cert.pem';
vPEM.PrivateKeyFile := 'key.pem';
vPEM.PrivateKeyPassword := 'secret';
vPEM.LoadFromFile;
// vSigner.KeyProvider := vPEM;
finally
vPEM.Free;
end;
end;
TsgcWindowsCertStoreProviderWindows 证书存储。本地计算机和当前用户存储。适合使用现有 AD 颁发证书的桌面应用,或 Windows 已管理证书生命周期的部署场景。
var
vStore: TsgcWindowsCertStoreProvider;
begin
vStore := TsgcWindowsCertStoreProvider.Create(nil);
try
vStore.StoreName := 'MY';
vStore.StoreLocation := cslCurrentUser;
vStore.SelectCertificateBySubject('My Company');
// vSigner.KeyProvider := vStore;
finally
vStore.Free;
end;
end;
TsgcPKCS11ProviderPKCS#11 / 硬件令牌。智能卡、USB 令牌、HSM——SafeNet、YubiKey、Nitrokey、Thales。大多数 EU 司法管辖区的合格电子签名需要此类设备。
CKM_RSA_PKCS 和 CKM_ECDSA_SHA256 机制。
EnumerateSlots / EnumerateCertificates 辅助函数用于在运行时选择正确的插槽。
var
vTok: TsgcPKCS11Provider;
begin
vTok := TsgcPKCS11Provider.Create(nil);
try
vTok.LibraryPath := 'C:\token\pkcs11.dll';
vTok.SlotIndex := 0;
vTok.PIN := '1234';
vTok.CertificateLabel := 'MyCert';
vTok.Connect;
// vSigner.KeyProvider := vTok;
finally
vTok.Free;
end;
end;
TsgcAzureTrustedSigningProviderAzure Trusted Signing。微软合格代码签名服务。无需购买 EV 证书即可使用 Authenticode——微软持有证书并为您预配签名密钥。
var
vAzure: TsgcAzureTrustedSigningProvider;
begin
vAzure := TsgcAzureTrustedSigningProvider.Create(nil);
try
vAzure.TenantId := 'your-tenant-id';
vAzure.ClientId := 'your-client-id';
vAzure.ClientSecret := 'your-client-secret';
vAzure.AccountName := 'mySigningAccount';
vAzure.CertificateProfileName := 'default';
vAzure.Connect;
// vSigner.KeyProvider := vAzure;
finally
vAzure.Free;
end;
end;
TsgcAWSKMSKeyProviderAWS Key Management Service。亚马逊基于 HSM 的密钥托管服务。搭配 AWS 颁发的证书,实现云端签名而不暴露私钥。
KeyId 接受密钥 ID、密钥 ARN 或别名 ARN。
var
vAWS: TsgcAWSKMSKeyProvider;
begin
vAWS := TsgcAWSKMSKeyProvider.Create(nil);
try
vAWS.AccessKeyId := 'AKIAIOSFODNN7EXAMPLE';
vAWS.SecretAccessKey := 'wJalrXUtnFEMI/K7MDENG/...';
vAWS.Region := 'us-east-1';
vAWS.KeyId := 'arn:aws:kms:us-east-1:...:key/my-key';
vAWS.Connect;
// vSigner.KeyProvider := vAWS;
finally
vAWS.Free;
end;
end;
TsgcGCloudKMSKeyProviderGoogle Cloud KMS。与 AWS KMS 操作模型相同。服务账号 JSON 文件通过 JWT 交换获取 OAuth2 访问令牌,然后通过 Cloud KMS API 进行签名。
var
vGCloud: TsgcGCloudKMSKeyProvider;
begin
vGCloud := TsgcGCloudKMSKeyProvider.Create(nil);
try
vGCloud.ProjectId := 'my-project';
vGCloud.LocationId := 'global';
vGCloud.KeyRingId := 'my-key-ring';
vGCloud.KeyId := 'my-signing-key';
vGCloud.KeyVersion := '1';
vGCloud.ServiceAccountJSON := 'C:\keys\sa.json';
vGCloud.Connect;
// vSigner.KeyProvider := vGCloud;
finally
vGCloud.Free;
end;
end;
TsgcHashiCorpVaultKeyProviderHashiCorp Vault。Vault 的 Transit 密钥引擎执行签名操作。最适合 Vault 已是技术栈一部分的自托管、策略驱动的密钥托管场景。
SetCertificateFromFile 提供证书。
'transit'。
var
vVault: TsgcHashiCorpVaultKeyProvider;
begin
vVault := TsgcHashiCorpVaultKeyProvider.Create(nil);
try
vVault.VaultAddress := 'https://vault.example.com:8200';
vVault.Token := 's.myVaultToken';
vVault.MountPath := 'transit';
vVault.KeyName := 'my-signing-key';
vVault.Connect;
vVault.SetCertificateFromFile('C:\certs\signing-cert.pem');
// vSigner.KeyProvider := vVault;
finally
vVault.Free;
end;
end;
TsgcCertumSimplySignProviderCertum SimplySign。波兰 QTSP。通过移动应用授权 PIN 实现合格电子签名,无需 USB 令牌。波兰 KSeF 和 ZUS 工作流的常用选择。
ListCertificates 列出账号中所有可用的证书。
var
vCertum: TsgcCertumSimplySignProvider;
begin
vCertum := TsgcCertumSimplySignProvider.Create(nil);
try
vCertum.ClientId := 'your-client-id';
vCertum.ClientSecret := 'your-client-secret';
vCertum.Username := 'user@example.com';
vCertum.Password := 'account-password';
vCertum.PIN := '123456';
vCertum.BaseURL := 'https://cloudsign.certum.pl';
vCertum.Connect;
// vSigner.KeyProvider := vCertum;
finally
vCertum.Free;
end;
end;
TsgcCSCKeyProviderCloud Signature Consortium API v2。适用于所有实现 CSC v2 的 QTSP 的通用接口——包括 Universign、D-Trust sign-me、A-Trust、FNMT Cl@ve Firma、Evrotrust、Intesi Group。提供者将合格密钥保存在远程 QSCD 中;sgcSign 仅发送文档哈希值。
cscBasic、cscOAuth2、cscOTP(用于双因素身份验证的一次性密码)。
credentials/authorize + signatures/signHash。
var
vCSC: TsgcCSCKeyProvider;
vCreds: TStringArray;
begin
vCSC := TsgcCSCKeyProvider.Create(nil);
try
vCSC.BaseURL := 'https://api.qtsp.example/csc/v2';
vCSC.AuthMethod := cscBasic;
vCSC.Username := 'alice';
vCSC.Password := 'secret';
vCreds := vCSC.ListCredentials;
vCSC.CredentialID := vCreds[0];
vCSC.PIN := '123456';
vCSC.OTP := '987654';
vCSC.LoadCredentialInfo;
// vSigner.KeyProvider := vCSC;
finally
vCSC.Free;
end;
end;
每个提供者均实现 IsgcKeyProvider。签名代码无需知道密钥是存储在磁盘、令牌、Azure 还是 CSC v2 API 之后。
function SignWithAnyProvider(
aProvider: IsgcKeyProvider; const aXML: string): string;
var
vSigner: TsgcXAdESSigner;
begin
vSigner := TsgcXAdESSigner.Create(nil);
try
vSigner.KeyProvider := aProvider;
vSigner.Profile.LoadProfile(spEmploymentDE);
Result := vSigner.SignXML(aXML);
finally
vSigner.Free;
end;
end;
// Caller picks the provider; signer doesn't care.
SignWithAnyProvider(vPFX, vXML);
SignWithAnyProvider(vAzure, vXML);
SignWithAnyProvider(vCSC, vXML);