Visual FoxPro

Generate RSA Public/Private Key Pair and Export to PEM

See more RSA Examples

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

LOCAL lnSuccess
LOCAL loRsa
LOCAL loPrivKey
LOCAL loPubKey

lnSuccess = 0

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

loRsa = CreateObject('Chilkat.Rsa')

* Generate a 2048-bit key.  Chilkat RSA supports
* key sizes ranging from 512 bits to 8192 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)

* Save the private key in PEM format:
lnSuccess = loPrivKey.SavePemFile("privateKey.pem")
IF (lnSuccess = 0) THEN
    ? loPrivKey.LastErrorText
    RELEASE loRsa
    RELEASE loPrivKey
    RELEASE loPubKey
    CANCEL
ENDIF

* Save the public key in PEM format:
lnSuccess = loPubKey.SavePemFile(0,"publicKey.pem")
IF (lnSuccess = 0) THEN
    ? loPubKey.LastErrorText
    RELEASE loRsa
    RELEASE loPrivKey
    RELEASE loPubKey
    CANCEL
ENDIF

? "Success."

RELEASE loRsa
RELEASE loPrivKey
RELEASE loPubKey