Visual FoxPro

RSA OAEP Padding

See more RSA Examples

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

LOCAL lnSuccess
LOCAL loRsa
LOCAL lcPubKeyXml
LOCAL loPubKey
LOCAL lcPlainText
LOCAL lnUsePrivateKey
LOCAL lcEncryptedStr

lnSuccess = 0

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

loRsa = CreateObject('Chilkat.Rsa')

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

loPubKey = CreateObject('Chilkat.PublicKey')
lnSuccess = loPubKey.LoadFromString(lcPubKeyXml)
IF (lnSuccess = 0) THEN
    ? loPubKey.LastErrorText
    RELEASE loRsa
    RELEASE loPubKey
    CANCEL
ENDIF

lnSuccess = loRsa.UsePublicKey(loPubKey)
IF (lnSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loRsa
    RELEASE loPubKey
    CANCEL
ENDIF

* To use Optimal Asymmetric Encryption Padding (OAEP) padding,
* simply set the PkcsPadding property to 0
loRsa.PkcsPadding = 0

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

lcPlainText = "RSA Encryption should be easy."

lnUsePrivateKey = 0
lcEncryptedStr = loRsa.EncryptStringENC(lcPlainText,lnUsePrivateKey)
? lcEncryptedStr

RELEASE loRsa
RELEASE loPubKey