B4X Requires Chilkat v11.0.0+

RSA Sign using Base64 Private Key

See more RSA Examples

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

Dim success As Boolean = False

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

Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")

Dim sbPem As ChilkatStringBuilder
sbPem.Initialize
sbPem.AppendLine("-----BEGIN RSA PRIVATE KEY-----", True)
sbPem.AppendLine("MIIC .... j5A==", True)
sbPem.AppendLine("-----END RSA PRIVATE KEY-----", True)

success = privKey.LoadPem(sbPem.GetAsString)
If success = False Then
    Log(privKey.LastErrorText)
    Return
End If


Dim rsa As ChilkatRsa
rsa.Initialize

success = rsa.UsePrivateKey(privKey)
If success = False Then
    Log(rsa.LastErrorText)
    Return
End If


Dim bd As ChilkatBinData
bd.Initialize
bd.AppendString("12345678", "utf-8")

success = rsa.SignRawBd(bd)
If success = False Then
    Log(rsa.LastErrorText)
    Return
End If


'  Get the base64 RSA signature.
Log(bd.GetEncoded("base64"))

success = rsa.VerifyRawBd(bd)
If success = False Then
    Log(rsa.LastErrorText)
    Return
End If


Dim strOriginal As String = bd.GetString("utf-8")
Log(strOriginal)