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

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

loPrivKey = createobject("CkPrivateKey")

loSbPem = createobject("CkStringBuilder")
loSbPem.AppendLine("-----BEGIN RSA PRIVATE KEY-----",.T.)
loSbPem.AppendLine("MIIC .... j5A==",.T.)
loSbPem.AppendLine("-----END RSA PRIVATE KEY-----",.T.)

llSuccess = loPrivKey.LoadPem(loSbPem.GetAsString())
if (llSuccess <> .T.) then
    ? loPrivKey.LastErrorText
    release loPrivKey
    release loSbPem
    return
endif

loRsa = createobject("CkRsa")

llSuccess = loRsa.ImportPrivateKeyObj(loPrivKey)
if (llSuccess <> .T.) then
    ? loRsa.LastErrorText
    release loPrivKey
    release loSbPem
    release loRsa
    return
endif

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

lcStrOriginal = loRsa.OpenSslVerifyStringENC(lcStrSigned)
? lcStrOriginal


release loPrivKey
release loSbPem
release loRsa