Lianja Requires Chilkat v11.0.0+

Load PEM Public/Private Key into RSA Object

See more RSA Examples

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

llSuccess = .F.

//  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 = .F.) then
    ? loPubkey.LastErrorText
    release loRsa
    release loPubkey
    return
endif

llSuccess = loRsa.UsePublicKey(loPubkey)
if (llSuccess = .F.) 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 = .F.) then
    ? loPrivkey.LastErrorText
    release loRsa
    release loPubkey
    release loPrivkey
    return
endif

llSuccess = loRsa.UsePrivateKey(loPrivkey)
if (llSuccess = .F.) then
    ? loRsa.LastErrorText
    release loRsa
    release loPubkey
    release loPrivkey
    return
endif

? "OK!"


release loRsa
release loPubkey
release loPrivkey