Xbase++ Requires Chilkat v11.0.0+

RSA Encrypt and Decrypt Strings

See more RSA Examples

_LANGUAGE_ sample code to RSA public-key encrypt and decrypt strings using public and private keys. Xbase++

LOCAL nSuccess
LOCAL oRsa
LOCAL oPrivKey
LOCAL oPubKey
LOCAL cPlainText
LOCAL oRsaEncryptor
LOCAL nUsePrivateKey
LOCAL cEncryptedStr
LOCAL oRsaDecryptor
LOCAL cDecryptedStr

nSuccess := 0

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

oRsa := CreateObject("Chilkat.Rsa")

//  This example also generates the public and private
//  keys to be used in the RSA encryption.
//  Normally, you would generate a key pair once,
//  and distribute the public key to your partner.
//  Anything encrypted with the public key can be
//  decrypted with the private key.  The reverse is 
//  also true: anything encrypted using the private
//  key can be decrypted using the public key.

//  Generate a 2048-bit key.  Chilkat RSA supports
//  key sizes ranging from 512 bits to 4096 bits.
oPrivKey := CreateObject("Chilkat.PrivateKey")
nSuccess := oRsa:GenKey(2048, oPrivKey)
IF (nSuccess == 0)
    ? oRsa:LastErrorText
    oRsa:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

oPubKey := CreateObject("Chilkat.PublicKey")
oPrivKey:ToPublicKey(oPubKey)

cPlainText := "Encrypting and decrypting should be easy!"

//  Start with a new RSA object to demonstrate that all we
//  need are the keys previously exported:
oRsaEncryptor := CreateObject("Chilkat.Rsa")

//  Encrypted output is always binary.  In this case, we want
//  to encode the encrypted bytes in a printable string.
//  Our choices are "hex", "base64", "url", "quoted-printable".
oRsaEncryptor:EncodingMode := "hex"

//  We'll encrypt with the public key and decrypt with the private
//  key.
nSuccess := oRsaEncryptor:UsePublicKey(oPubKey)

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

//  Now decrypt:
oRsaDecryptor := CreateObject("Chilkat.Rsa")

oRsaDecryptor:EncodingMode := "hex"
nSuccess := oRsaDecryptor:UsePrivateKey(oPrivKey)

nUsePrivateKey := 1
cDecryptedStr := oRsaDecryptor:DecryptStringENC(cEncryptedStr, nUsePrivateKey)

? cDecryptedStr

oRsa:destroy()
oPrivKey:destroy()
oPubKey:destroy()
oRsaEncryptor:destroy()
oRsaDecryptor:destroy()