Lianja

Add Private Key and Certificate to a PEM

See more PEM Examples

Demonstrates how to add certificates and private keys to a PEM. Lianja

llSuccess = .F.

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

// The Chilkat PEM class was introduced in v9.5.0.49.  
// It requires the bundle to be unlocked, as shown above.
loPem = createobject("CkPem")

// Add the private key found in alice.key to this PEM.
// 
loPrivKey = createobject("CkPrivateKey")

llSuccess = loPrivKey.LoadAnyFormatFile("qa_data/alice.key","")
if (llSuccess <> .T.) then
    ? loPrivKey.LastErrorText
    release loPem
    release loPrivKey
    return
endif

// Add it to the PEM:
llSuccess = loPem.AddPrivateKey(loPrivKey)

// Add the certificate found in alice.crt to this PEM.
// 
loCert = createobject("CkCert")

llSuccess = loCert.LoadFromFile("qa_data/alice.crt")
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loPem
    release loPrivKey
    release loCert
    return
endif

// Add it to the PEM:
llIncludeCertChain = .F.
llSuccess = loPem.AddCert(loCert,llIncludeCertChain)

// Write the PEM containing the private key and certificate.
// The private key will be output in PKCS8 encrypted form.
// Certificates are never encrypted.

// This is the password that will be required to open and access the private key
// from the PEM we're about to write..
lcPassword = "secret"
llExtendedAttrs = .F.
llNoKeys = .F.
llNoCerts = .F.
llNoCaCerts = .F.
lcEncryptAlg = "aes128"

lcPemStr = loPem.ToPemEx(llExtendedAttrs,llNoKeys,llNoCerts,llNoCaCerts,lcEncryptAlg,lcPassword)
? lcPemStr


release loPem
release loPrivKey
release loCert