Xbase++ Requires Chilkat v11.0.0+

RSA OAEP Padding

See more RSA Examples

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

LOCAL nSuccess
LOCAL oRsa
LOCAL cPubKeyXml
LOCAL oPubKey
LOCAL cPlainText
LOCAL nUsePrivateKey
LOCAL cEncryptedStr

nSuccess := 0

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

oRsa := CreateObject("Chilkat.Rsa")

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

oPubKey := CreateObject("Chilkat.PublicKey")
nSuccess := oPubKey:LoadFromString(cPubKeyXml)
IF (nSuccess == 0)
    ? oPubKey:LastErrorText
    oRsa:destroy()
    oPubKey:destroy()
    RETURN
ENDIF

nSuccess := oRsa:UsePublicKey(oPubKey)
IF (nSuccess == 0)
    ? oRsa:LastErrorText
    oRsa:destroy()
    oPubKey:destroy()
    RETURN
ENDIF

//  To use Optimal Asymmetric Encryption Padding (OAEP) padding,
//  simply set the PkcsPadding property to 0
oRsa:PkcsPadding := 0

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

cPlainText := "RSA Encryption should be easy."

nUsePrivateKey := 0
cEncryptedStr := oRsa:EncryptStringENC(cPlainText, nUsePrivateKey)
? cEncryptedStr

oRsa:destroy()
oPubKey:destroy()