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.

Download Chilkat RSA ActiveX

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

loRsa = CreateObject('Chilkat.Rsa')

lnSuccess = loRsa.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("RSA component unlock failed")
    QUIT
ENDIF

*  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
    =MESSAGEBOX(loRsa.LastErrorText)
    QUIT
ENDIF

*  Keys are exported in XML format:

lcPublicKeyXml = loRsa.ExportPublicKey()
? lcPublicKeyXml

lcPrivateKeyXml = loRsa.ExportPrivateKey()
? lcPrivateKeyXml

*  Save the private key in PEM format:
loPrivKey = CreateObject('Chilkat.PrivateKey')
loPrivKey.LoadXml(lcPrivateKeyXml)
loPrivKey.SaveRsaPemFile("privateKey.pem")

*  Save the public key in PEM format:
loPubKey = CreateObject('Chilkat.PublicKey')
loPubKey.LoadXml(lcPublicKeyXml)
loPubKey.SaveOpenSslPemFile("publicKey.pem")