(Visual FoxPro) Generate RSA Public/Private Key Pair and Export to PEM

Visual FoxPro example code showing how to generate an RSA public/private key pair and export to PEM files.

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

LOCAL loRsa
LOCAL lnSuccess
LOCAL lcPublicKeyXml
LOCAL lcPrivateKeyXml
LOCAL loPrivKey
LOCAL loPubKey

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')

* Generate a 1024-bit key.  Chilkat RSA supports
* key sizes ranging from 512 bits to 4096 bits.
lnSuccess = loRsa.GenerateKey(1024)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loRsa
    CANCEL
ENDIF

* Keys are exported in XML format:
lcPublicKeyXml = loRsa.ExportPublicKey()
? lcPublicKeyXml

lcPrivateKeyXml = loRsa.ExportPrivateKey()
? lcPrivateKeyXml

* Save the private key in PEM format:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPrivKey.LoadXml(lcPrivateKeyXml)
lnSuccess = loPrivKey.SavePemFile("privateKey.pem")

* Save the public key in PEM format:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PublicKey')
loPubKey = CreateObject('Chilkat.PublicKey')
lnSuccess = loPubKey.LoadFromString(lcPublicKeyXml)
lnSuccess = loPubKey.SavePemFile(0,"publicKey.pem")

RELEASE loRsa
RELEASE loPrivKey
RELEASE loPubKey