VBScript

Load a Public Key from Base64 DER

Demonstrates the Chilkat PublicKey.LoadBase64 method, which loads a public key from standard Base64-encoded DER. The only argument is the Base64 string; whitespace within it is permitted.

Background: A public key in DER (binary) form is often carried as Base64 text so it can travel through channels that expect a string — a config value, a JSON field, a certificate export. This loader decodes that text and inspects the DER to determine the key type and structure automatically. It is the plain-Base64 counterpart to loading a full PEM block, which additionally has the BEGIN/END armor.

Chilkat VBScript Downloads

Download Chilkat for VBScript

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

'  Demonstrates the PublicKey.LoadBase64 method, which loads a public key from standard
'  Base64-encoded DER.  The only argument is the Base64 string (whitespace is allowed).

set pubKey = CreateObject("Chilkat.PublicKey")

'  The Base64 of the DER-encoded public key.
keyStr = "MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA...IDAQAB"

success = pubKey.LoadBase64(keyStr)
If (success = 0) Then
    outFile.WriteLine(pubKey.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Loaded a " & pubKey.KeyType & " public key.")

outFile.Close