(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

// 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.)
loCertStore = createobject("CkCertStore")

// The 1st argument is the filename, the 2nd arg is the 
// PFX file's password:
llSuccess = loCertStore.LoadPfxFile("chilkat.pfx","test")
if (llSuccess <> .T.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

loCert = loCertStore.FindCertBySubject("Chilkat Software, Inc.")
if (loCertStore.LastMethodSuccess = .F.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

loPkey = loCert.ExportPrivateKey()
if (loCert.LastMethodSuccess = .F.) then
    ? loCert.LastErrorText
    release loCert
    release loCertStore
    return
endif

release loCert

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

loRsa = createobject("CkRsa")

// Import the private key into the RSA component:
llSuccess = loRsa.ImportPrivateKey(lcPkeyXml)
if (llSuccess <> .T.) then
    ? loRsa.LastErrorText
    release loPkey
    release loCertStore
    release loRsa
    return
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