Load PEM Public/Private Key into RSA Object

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

Download 32-bit Chilkat RSA ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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

loRsa = CreateObject('Chilkat.Rsa')

lnSuccess = loRsa.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loRsa.LastErrorText
    QUIT
ENDIF

*  First demonstrate importing a PEM public key:

lcPublicKeyPem = "PEM public-key data goes here"
loPubkey = CreateObject('Chilkat.PublicKey')

lnSuccess = loPubkey.LoadOpenSslPem(lcPublicKeyPem)
IF (lnSuccess <> 1) THEN
    ? loPubkey.LastErrorText
    QUIT
ENDIF

lcPublicKeyXml = loPubkey.GetXml()

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

*  Demonstrate importing a PEM private key:

lcPrivateKeyPem = "PEM private-key data goes here"
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
    QUIT
ENDIF

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

=MESSAGEBOX("OK!")