Xojo Plugin

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. Xojo Plugin

Dim success As Boolean
success = False

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

Dim privKey As New Chilkat.PrivateKey

Dim sbPem As New Chilkat.StringBuilder
success = sbPem.AppendLine("-----BEGIN RSA PRIVATE KEY-----",True)
success = sbPem.AppendLine("MIIC .... j5A==",True)
success = sbPem.AppendLine("-----END RSA PRIVATE KEY-----",True)

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

Dim rsa As New Chilkat.Rsa

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

Dim bd As New Chilkat.BinData
success = bd.AppendString("12345678","utf-8")

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

// Get the base64 RSA signature.
System.DebugLog(bd.GetEncoded("base64"))

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

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