(Visual FoxPro) RSA Signature with Certificate's Private Key from PFX

See more RSA Examples

Demonstrates how to use a certificate's private key from a PFX file to create an RSA signature.

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

LOCAL loCertStore
LOCAL lnSuccess
LOCAL loCert
LOCAL loPkey
LOCAL lcPkeyXml
LOCAL loRsa
LOCAL lcStrData
LOCAL lcHexSig

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* Create an instance of a certificate store object, load a PFX file,
* locate the certificate we need, and use it for signing.
* (a PFX file may contain more than one certificate.)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStore = CreateObject('Chilkat.CertStore')

* The 1st argument is the filename, the 2nd arg is the 
* PFX file's password:
lnSuccess = loCertStore.LoadPfxFile("chilkat.pfx","test")
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    RELEASE loCertStore
    CANCEL
ENDIF

loCert = loCertStore.FindCertBySubject("Chilkat Software, Inc.")
IF (loCertStore.LastMethodSuccess = 0) THEN
    ? loCertStore.LastErrorText
    RELEASE loCertStore
    CANCEL
ENDIF

loPkey = loCert.ExportPrivateKey()
IF (loCert.LastMethodSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    RELEASE loCertStore
    CANCEL
ENDIF

RELEASE loCert

* Get the private key in XML format:
lcPkeyXml = loPkey.GetXml()

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

* Import the private key into the RSA component:
lnSuccess = loRsa.ImportPrivateKey(lcPkeyXml)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loPkey
    RELEASE loCertStore
    RELEASE loRsa
    CANCEL
ENDIF

* Encode the signature as a hex string
loRsa.EncodingMode = "hex"

lcStrData = "This is the string to be signed."

* Sign the string using the sha-1 hash algorithm.
* Other valid choices are "sha-256", "md2" and "md5".
lcHexSig = loRsa.SignStringENC(lcStrData,"sha-1")

? lcHexSig

RELEASE loPkey

? "Success!"

RELEASE loCertStore
RELEASE loRsa