Visual Basic 6.0

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

Dim success As Long
success = 0

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

success = 0

Dim pem As New ChilkatPem

' 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 <> 1) Then
    Debug.Print pem.LastErrorText
    Exit Sub
End If

Dim i As Long
Dim numPublicKeys As Long
numPublicKeys = pem.NumPublicKeys
If (numPublicKeys = 0) Then
    Debug.Print (("Error: Expected the PEM to contain public keys."))
    Exit Sub
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:
    Debug.Print "This is PKCS1 format:"
    pem.PublicKeyFormat = "pkcs1"
    Debug.Print pem.ToPem()

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

Next