(Visual FoxPro) RSA Sign using Private Key of Certificate Type A3 (smart card / token)

Demonstrates RSA signing data using the private key of a certificate type A3 (smart card, token).

Note: This is a Windows-only example.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCertStore
LOCAL lcThumbprint
LOCAL lnBReadOnly
LOCAL lnSuccess
LOCAL loCert
LOCAL loRsa
LOCAL lnBUsePrivateKey
LOCAL loFac
LOCAL loInData
LOCAL loSignature

* First get the A3 certificate that was installed on the Windows system.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStore = CreateObject('Chilkat.CertStore')

lcThumbprint = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2"

* This is specific to Windows because it is opening the Windows Current-User certificate store.
lnBReadOnly = 1
lnSuccess = loCertStore.OpenCurrentUserStore(lnBReadOnly)
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    RELEASE loCertStore
    CANCEL
ENDIF

* Find the certificate with the desired thumbprint
* (There are many ways to locate a certificate.  This example chooses to find by thumbprint.)
loCert = loCertStore.FindCertBySha1Thumbprint(lcThumbprint)
IF (loCertStore.LastMethodSuccess <> 1) THEN
    ? "Failed to find the certificate."
    RELEASE loCertStore
    CANCEL
ENDIF

? "Found: " + loCert.SubjectCN

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')

* Provide the cert's private key
lnBUsePrivateKey = 1
lnSuccess = loRsa.SetX509Cert(loCert,lnBUsePrivateKey)
RELEASE loCert
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loCertStore
    RELEASE loRsa
    CANCEL
ENDIF

* Now we're ready to sign..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
loFac = CreateObject('Chilkat.FileAccess')

* Get bytes to be signed..
loInData = loFac.ReadEntireFile("in.dat")
loSignature = loRsa.SignBytes(loInData,"SHA-256")
IF (loRsa.LastMethodSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loCertStore
    RELEASE loRsa
    RELEASE loFac
    CANCEL
ENDIF

? "Signature created."

RELEASE loCertStore
RELEASE loRsa
RELEASE loFac