(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

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

loRsa = createobject("CkRsa")

// Generate a 2048-bit key.  Chilkat RSA supports
llSuccess = loRsa.GenerateKey(2048)
if (llSuccess <> .T.) then
    ? loRsa.LastErrorText
    release loRsa
    return
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 .T. or .F..
llBChoosePkcs1 = .T.
lcPubKeyBase64Der = loPubKey.GetEncoded(llBChoosePkcs1,"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