Visual FoxPro

Generate RSA Key and Export to Encrypted PEM

See more RSA Examples

_LANGUAGE_ sample showing how to generate an RSA key and export to encrypted PEM. Visual FoxPro

LOCAL lnSuccess
LOCAL loRsa
LOCAL loPrivKey
LOCAL lcStrEncPem

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 1024-bit key.  Chilkat RSA supports
* key sizes ranging from 512 bits to 4096 bits.
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loRsa.GenKey(1024,loPrivKey)
IF (lnSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loRsa
    RELEASE loPrivKey
    CANCEL
ENDIF

lcStrEncPem = loPrivKey.GetPkcs8EncryptedPem("myPassword")

* You now have the private key in an encrypted format,
* which may be (for example) saved to a database.

? lcStrEncPem

RELEASE loRsa
RELEASE loPrivKey