VBScript

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

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

success = 0

set pem = CreateObject("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 <> 1) Then
    outFile.WriteLine(pem.LastErrorText)
    WScript.Quit
End If

numPublicKeys = pem.NumPublicKeys
If (numPublicKeys = 0) Then
    outFile.WriteLine((("Error: Expected the PEM to contain public keys.")))
    WScript.Quit
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:
    outFile.WriteLine("This is PKCS1 format:")
    pem.PublicKeyFormat = "pkcs1"
    outFile.WriteLine(pem.ToPem())

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

Next

outFile.Close