Generate RSA Public/Private Key Pair for Encryption (Key Exchange)

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

Download Chilkat RSA ActiveX

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("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:

lcPublicKey = loRsa.ExportPublicKey()
? lcPublicKey

lcPrivateKey = loRsa.ExportPrivateKey()
? lcPrivateKey