B4X

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

B4X

Dim success As Boolean = False

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

success = False

Dim pem As ChilkatPem
pem.Initialize

'  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
    Log(pem.LastErrorText)
    Return
End If


Dim i As Int
Dim numPublicKeys As Int = pem.NumPublicKeys
If numPublicKeys = 0 Then
    Log((("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:
    Log("This is PKCS1 format:")
    pem.PublicKeyFormat = "pkcs1"
    Log(pem.ToPem)

    '  Now PKCS8 PEM format:
    Log("This is PKCS8 format:")
    pem.PublicKeyFormat = "pkcs8"
    Log(pem.ToPem)

Next