(Visual FoxPro) Load PEM Public/Private Key into RSA Object

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loRsa
LOCAL lcPublicKeyPem
LOCAL loPubkey
LOCAL lnSuccess
LOCAL lcPublicKeyXml
LOCAL lcPrivateKeyPem
LOCAL loPrivkey
LOCAL lcPrivateKeyXml

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rsa')
loRsa = CreateObject('Chilkat.Rsa')

* First demonstrate importing a PEM public key:
lcPublicKeyPem = "PEM public-key data goes here"
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PublicKey')
loPubkey = CreateObject('Chilkat.PublicKey')

lnSuccess = loPubkey.LoadFromString(lcPublicKeyPem)
IF (lnSuccess <> 1) THEN
    ? loPubkey.LastErrorText
    RELEASE loRsa
    RELEASE loPubkey
    CANCEL
ENDIF

lcPublicKeyXml = loPubkey.GetXml()

lnSuccess = loRsa.ImportPublicKey(lcPublicKeyXml)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loRsa
    RELEASE loPubkey
    CANCEL
ENDIF

* Demonstrate importing a PEM private key:
lcPrivateKeyPem = "PEM private-key data goes here"
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loPrivkey = CreateObject('Chilkat.PrivateKey')

* If the private key PEM is protected with a password, then 
* call LoadEncryptedPem.  Otherwise call LoadPem.
lnSuccess = loPrivkey.LoadPem(lcPrivateKeyPem)
IF (lnSuccess <> 1) THEN
    ? loPrivkey.LastErrorText
    RELEASE loRsa
    RELEASE loPubkey
    RELEASE loPrivkey
    CANCEL
ENDIF

lcPrivateKeyXml = loPrivkey.GetXml()
lnSuccess = loRsa.ImportPrivateKey(lcPrivateKeyXml)
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    RELEASE loRsa
    RELEASE loPubkey
    RELEASE loPrivkey
    CANCEL
ENDIF

? "OK!"

RELEASE loRsa
RELEASE loPubkey
RELEASE loPrivkey