(Xojo Plugin) Write PKCS1 or PKCS8 Public Key PEM

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-----

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// Unlock the Chilkat API.
// Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
// by calling UnlockBundle.  It requires a Bundle unlock code.
Dim chilkatGlob As New Chilkat.CkGlobal
Dim success As Boolean
success = chilkatGlob.UnlockBundle("Anything for 30-day trial.")
If (success <> True) Then
    System.DebugLog(chilkatGlob.LastErrorText)
    Return
End If

Dim pem As New Chilkat.Pem

// Load a public key from a PEM file.
// (Assume the PEM contains at least one public key..)
success = pem.LoadPemFile("/Users/chilkat/testData/pem/myPublicKey.pem")
If (success <> True) Then
    System.DebugLog(pem.LastErrorText)
    Return
End If

Dim i As Int32
Dim numPublicKeys As Int32
numPublicKeys = pem.NumPublicKeys
If (numPublicKeys = 0) Then
    System.DebugLog((("Error: Expected the PEM to contain public keys.")))
    Return
End If

// Get each public key as PEM, first in PKCS1 format, then in PKCS8.
For i = 1 To numPublicKeys

    // First output to PKCS1 PEM format:
    System.DebugLog("This is PKCS1 format:")
    pem.PublicKeyFormat = "pkcs1"
    System.DebugLog(pem.ToPem())

    // Now PKCS8 PEM format:
    System.DebugLog("This is PKCS8 format:")
    pem.PublicKeyFormat = "pkcs8"
    System.DebugLog(pem.ToPem())

Next