(Visual FoxPro) RSA Sign using Base64 Private Key

Signs a string using a non-encrypted RSA private key in base64 encoding. Returns the RSA signature as a base64 string.

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

LOCAL loPrivKey
LOCAL lnSuccess
LOCAL loSbPem
LOCAL loRsa
LOCAL lcStrSigned
LOCAL lcStrOriginal

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

loPrivKey = CreateObject('Chilkat_9_5_0.PrivateKey')

loSbPem = CreateObject('Chilkat_9_5_0.StringBuilder')
loSbPem.AppendLine("-----BEGIN RSA PRIVATE KEY-----",1)
loSbPem.AppendLine("MIIC .... j5A==",1)
loSbPem.AppendLine("-----END RSA PRIVATE KEY-----",1)

lnSuccess = loPrivKey.LoadPem(loSbPem.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loPrivKey.LastErrorText
    RELEASE loPrivKey
    RELEASE loSbPem
    CANCEL
ENDIF

loRsa = CreateObject('Chilkat_9_5_0.Rsa')

lnSuccess = loRsa.ImportPrivateKeyObj(loPrivKey)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loPrivKey
    RELEASE loSbPem
    RELEASE loRsa
    CANCEL
ENDIF

loRsa.EncodingMode = "base64"
lcStrSigned = loRsa.OpenSslSignStringENC("12345678")
? lcStrSigned

lcStrOriginal = loRsa.OpenSslVerifyStringENC(lcStrSigned)
? lcStrOriginal

RELEASE loPrivKey
RELEASE loSbPem
RELEASE loRsa