Generate RSA Public/Private Key

Visual FoxPro example code showing how to generate an RSA public/private key.

Download 32-bit Chilkat RSA ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

LOCAL loRsa
LOCAL lnSuccess
LOCAL lcPublicKey
LOCAL lcPrivateKey

loRsa = CreateObject('Chilkat.Rsa')

lnSuccess = loRsa.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loRsa.LastErrorText)
    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:

lcPublicKey = loRsa.ExportPublicKey()
? lcPublicKey

lcPrivateKey = loRsa.ExportPrivateKey()
? lcPrivateKey