Visual FoxPro

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. Visual FoxPro

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