(Lianja) Load PEM Public/Private Key into RSA Object

Demonstrates how to load a PEM key into the Chilkat RSA object.

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")

// First demonstrate importing a PEM public key:
lcPublicKeyPem = "PEM public-key data goes here"
loPubkey = createobject("CkPublicKey")

llSuccess = loPubkey.LoadFromString(lcPublicKeyPem)
if (llSuccess <> .T.) then
    ? loPubkey.LastErrorText
    release loRsa
    release loPubkey
    return
endif

lcPublicKeyXml = loPubkey.GetXml()

llSuccess = loRsa.ImportPublicKey(lcPublicKeyXml)
if (llSuccess <> .T.) then
    ? loRsa.LastErrorText
    release loRsa
    release loPubkey
    return
endif

// Demonstrate importing a PEM private key:
lcPrivateKeyPem = "PEM private-key data goes here"
loPrivkey = createobject("CkPrivateKey")

// If the private key PEM is protected with a password, then 
// call LoadEncryptedPem.  Otherwise call LoadPem.
llSuccess = loPrivkey.LoadPem(lcPrivateKeyPem)
if (llSuccess <> .T.) then
    ? loPrivkey.LastErrorText
    release loRsa
    release loPubkey
    release loPrivkey
    return
endif

lcPrivateKeyXml = loPrivkey.GetXml()
llSuccess = loRsa.ImportPrivateKey(lcPrivateKeyXml)
if (llSuccess <> .T.) then
    ? loRsa.LastErrorText
    release loRsa
    release loPubkey
    release loPrivkey
    return
endif

? "OK!"


release loRsa
release loPubkey
release loPrivkey