Visual FoxPro

Write PKCS1 or PKCS8 Public Key PEM

See more PEM Examples

Demonstrates how to write either PKCS1 or PKCS8 format PEM files. PKCS1 public keys have this PEM format:

-----BEGIN RSA PUBLIC KEY-----
BASE64 ENCODED DATA
-----END RSA PUBLIC KEY-----

PKCS8 public keys have this PEM format:

-----BEGIN PUBLIC KEY-----
BASE64 ENCODED DATA
-----END PUBLIC KEY-----

Visual FoxPro

LOCAL lnSuccess
LOCAL loPem
LOCAL i
LOCAL lnNumPublicKeys

lnSuccess = 0

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

lnSuccess = 0

loPem = CreateObject('Chilkat.Pem')

* Load a public key from a PEM file.
* (Assume the PEM contains at least one public key..)
lnSuccess = loPem.LoadPemFile("/Users/chilkat/testData/pem/myPublicKey.pem")
IF (lnSuccess <> 1) THEN
    ? loPem.LastErrorText
    RELEASE loPem
    CANCEL
ENDIF

lnNumPublicKeys = loPem.NumPublicKeys
IF (lnNumPublicKeys = 0) THEN
    ? ("Error: Expected the PEM to contain public keys.")
    RELEASE loPem
    CANCEL
ENDIF

* Get each public key as PEM, first in PKCS1 format, then in PKCS8.
FOR i = 1 TO lnNumPublicKeys

    * First output to PKCS1 PEM format:
    ? "This is PKCS1 format:"
    loPem.PublicKeyFormat = "pkcs1"
    ? loPem.ToPem()

    * Now PKCS8 PEM format:
    ? "This is PKCS8 format:"
    loPem.PublicKeyFormat = "pkcs8"
    ? loPem.ToPem()

NEXT

RELEASE loPem