(Visual FoxPro) RSA Sign Using Private Key from .pfx/.p12 to Base64 Signature

See more RSA Examples

Demonstrates how to RSA sign something using a private key loaded from a .pfx/.p12. The RSA signature is returned in Base64 encoded format.

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

LOCAL loRsa
LOCAL loPfx
LOCAL lnSuccess
LOCAL loPrivKey
LOCAL lcStrData
LOCAL lcBase64Sig

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

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

* Load the .pfx/.p12
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Pfx')
loPfx = CreateObject('Chilkat.Pfx')
lnSuccess = loPfx.LoadPfxFile("qa_data/pfx/myKey.p12","myPassword")
IF (lnSuccess <> 1) THEN
    ? loPfx.LastErrorText
    RELEASE loRsa
    RELEASE loPfx
    CANCEL
ENDIF

* Get the default private key.
loPrivKey = loPfx.GetPrivateKey(0)
IF (loPfx.LastMethodSuccess <> 1) THEN
    ? loPfx.LastErrorText
    RELEASE loRsa
    RELEASE loPfx
    CANCEL
ENDIF

* Import the private key into the RSA component:
lnSuccess = loRsa.ImportPrivateKeyObj(loPrivKey)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loPrivKey
    RELEASE loRsa
    RELEASE loPfx
    CANCEL
ENDIF

RELEASE loPrivKey

* Get the signature in base64
loRsa.EncodingMode = "base64"

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

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

? lcBase64Sig

? "Success!"

RELEASE loRsa
RELEASE loPfx