(Visual FoxPro) RSA Encrypt Randomly Generated AES Key

Demonstrates how to RSA encrypt a randomly generated AES key.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loPrng
LOCAL loBdAesKey
LOCAL lnSuccess
LOCAL loCert
LOCAL loPubKey
LOCAL loRsa
LOCAL lcEncryptedAesKey

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

* First generate a 256-bit AES key (32 bytes).
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Prng')
loPrng = CreateObject('Chilkat.Prng')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdAesKey = CreateObject('Chilkat.BinData')
lnSuccess = loPrng.GenRandomBd(32,loBdAesKey)

* Use a public key from a certificate for RSA encryption.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')

lnSuccess = loCert.LoadFromFile("qa_data/pem/mf_public_rsa.pem")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loPrng
    RELEASE loBdAesKey
    RELEASE loCert
    CANCEL
ENDIF

loPubKey = loCert.ExportPublicKey()
IF (loCert.LastMethodSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loPrng
    RELEASE loBdAesKey
    RELEASE loCert
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')
lnSuccess = loRsa.ImportPublicKeyObj(loPubKey)
IF (lnSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loPrng
    RELEASE loBdAesKey
    RELEASE loCert
    RELEASE loRsa
    CANCEL
ENDIF

RELEASE loPubKey

* RSA encrypt our 32-byte AES key.
* The contents of bdAesKey are replaced with result of the RSA encryption.
lnSuccess = loRsa.EncryptBd(loBdAesKey,0)
IF (lnSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loPrng
    RELEASE loBdAesKey
    RELEASE loCert
    RELEASE loRsa
    CANCEL
ENDIF

* Return the result as a base64 string
lcEncryptedAesKey = loBdAesKey.GetEncoded("base64")

? "encrypted AES key = " + lcEncryptedAesKey

RELEASE loPrng
RELEASE loBdAesKey
RELEASE loCert
RELEASE loRsa