(Xojo Plugin) Duplicate openssl dgst -md5 -sign myKey.pem something.txt | openssl enc -base64 -A

Demonstrates how to duplicate the creation of an RSA signature produced by this OpenSSL command:

openssl dgst -md5 -sign myKey.pem something.txt | openssl enc -base64 -A

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim pkey As New Chilkat.PrivateKey

// Load the private key from an RSA PEM file:
Dim success As Boolean
success = pkey.LoadPemFile("myKey.pem")

Dim pkeyXml As String

// Get the private key in XML format:
pkeyXml = pkey.GetXml()

Dim rsa As New Chilkat.Rsa

// Import the private key into the RSA component:
success = rsa.ImportPrivateKey(pkeyXml)
If (success <> True) Then
    System.DebugLog(rsa.LastErrorText)
    Return
End If

// OpenSSL uses BigEndian byte ordering:
rsa.LittleEndian = False

// The resulting signature will be a Base64 string:
rsa.EncodingMode = "base64"

// For simplicity, we're not loading
// the data to be signed from a file.  We are instead simply
// using a literal string value.  
Dim strData As String
strData = "This is the text to be signed."

// Hash the input using MD5, and then sign the hash:
// Other valid hash algorithm choices are "md2" and "sha-1".
Dim base64Sig As String
base64Sig = rsa.SignStringENC(strData,"md5")

System.DebugLog(base64Sig)

System.DebugLog("Success!")