Lianja

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