(Visual FoxPro) RSA Encrypt and Decrypt Strings

See more RSA Examples

Visual FoxPro sample code to RSA public-key encrypt and decrypt strings using public and private keys.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loRsa
LOCAL loPrivKey
LOCAL loPubKey
LOCAL lcPlainText
LOCAL loRsaEncryptor
LOCAL lnUsePrivateKey
LOCAL lcEncryptedStr
LOCAL loRsaDecryptor
LOCAL lcDecryptedStr

lnSuccess = 0

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

loRsa = 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.
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loRsa.GenKey(2048,loPrivKey)
IF (lnSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loRsa
    RELEASE loPrivKey
    CANCEL
ENDIF

loPubKey = CreateObject('Chilkat.PublicKey')
loPrivKey.ToPublicKey(loPubKey)

lcPlainText = "Encrypting and decrypting should be easy!"

* Start with a new RSA object to demonstrate that all we
* need are the keys previously exported:
loRsaEncryptor = 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".
loRsaEncryptor.EncodingMode = "hex"

* We'll encrypt with the public key and decrypt with the private
* key.
lnSuccess = loRsaEncryptor.UsePublicKey(loPubKey)

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

* Now decrypt:
loRsaDecryptor = CreateObject('Chilkat.Rsa')

loRsaDecryptor.EncodingMode = "hex"
lnSuccess = loRsaDecryptor.UsePrivateKey(loPrivKey)

lnUsePrivateKey = 1
lcDecryptedStr = loRsaDecryptor.DecryptStringENC(lcEncryptedStr,lnUsePrivateKey)

? lcDecryptedStr

RELEASE loRsa
RELEASE loPrivKey
RELEASE loPubKey
RELEASE loRsaEncryptor
RELEASE loRsaDecryptor