Xojo Plugin

RSA OAEP Padding

See more RSA Examples

Demonstrates how to use OAEP padding with the RSA encryption algorithm. More information about OAEP Padding. Xojo Plugin

Dim success As Boolean
success = False

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

Dim rsa As New Chilkat.Rsa

// RSA public key in XML format:
Dim pubKeyXml As String
pubKeyXml = "<RSAPublicKey><Modulus>of3im3mRgd2NLXIGoK6uYLg6jj0Ug2b42rnqa5Tbwz2ieFqMJqt+++x2oqLYGurlz49nt+7/785g3XYWqoka4u9c9zul6YubIjnBM72dQy7rEkEfbUxgjcxqXyjZFx+FpaxFUecLu688XEu+9UA42VKiCgcl+E7TrqnfeeYpNXc=</Modulus><Exponent>AQAB</Exponent></RSAPublicKey>"

Dim pubKey As New Chilkat.PublicKey
success = pubKey.LoadFromString(pubKeyXml)
If (success = False) Then
    System.DebugLog(pubKey.LastErrorText)
    Return
End If

success = rsa.UsePublicKey(pubKey)
If (success = False) Then
    System.DebugLog(rsa.LastErrorText)
    Return
End If

// To use Optimal Asymmetric Encryption Padding (OAEP) padding,
// simply set the PkcsPadding property to False
rsa.PkcsPadding = False

// Encrypt a string and return the encrypted data base64-encoded:
rsa.EncodingMode = "base64"

Dim plainText As String
plainText = "RSA Encryption should be easy."

Dim usePrivateKey As Boolean
usePrivateKey = False
Dim encryptedStr As String
encryptedStr = rsa.EncryptStringENC(plainText,usePrivateKey)
System.DebugLog(encryptedStr)