(Visual FoxPro) Generate an RSA Key and Get as Base64 DER

Demonstrates how to generate a 2048-bit RSA key and return the public and private parts as unencrypted Base64 encoded DER.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loRsa
LOCAL lnSuccess
LOCAL loPubKey
LOCAL lnBChoosePkcs1
LOCAL lcPubKeyBase64Der
LOCAL loPrivKey
LOCAL lcPrivKeyPkcs1
LOCAL lcPrivKeyPkcs8

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')

* Generate a 2048-bit key.  Chilkat RSA supports
lnSuccess = loRsa.GenerateKey(2048)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loRsa
    CANCEL
ENDIF

* Get the public part of the key.
loPubKey = loRsa.ExportPublicKeyObj()

* There are two possible formats for representing the RSA public key 
* in ASN.1 (DER).  The possible formats are PKCS1 and PKCS8.
* We can get either by setting bChoosePkcs1 to 1 or 0.
lnBChoosePkcs1 = 1
lcPubKeyBase64Der = loPubKey.GetEncoded(lnBChoosePkcs1,"base64")
? "Public Key Base64 DER:"
? lcPubKeyBase64Der

RELEASE loPubKey

* Now get the private key as Base64 DER:
* Get the private part of the key.
* (Note: A public key is actually just a subset of the private key.  
*  If you have the private key, you also have the public key.
*  Thus Chilkat provides a method to get the public key from the private key.)
loPrivKey = loRsa.ExportPrivateKeyObj()

* Again, we can get PKCS1 or PKCS8, but with different methods:
lcPrivKeyPkcs1 = loPrivKey.GetPkcs1ENC("base64")
? "Private Key PKCS1 Base64 DER:"
? lcPrivKeyPkcs1

lcPrivKeyPkcs8 = loPrivKey.GetPkcs8ENC("base64")
? "Private Key PKCS8 Base64 DER:"
? lcPrivKeyPkcs8

RELEASE loPrivKey

RELEASE loRsa