VBScript

Load a PFX from an Encoded String

Demonstrates Pfx.LoadPfxEncoded, which decodes text using a named binary encoding (such as base64) and loads the resulting bytes as a PFX / PKCS#12 container.

Background. This is useful when the PKCS#12 data has been transported or stored as printable text, such as base64.

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

set pfx = CreateObject("Chilkat.Pfx")

'  The PFX password should come from a secure source rather than being hard-coded.
password = "myPfxPassword"

'  Decode the base64 text into PFX / PKCS#12 bytes and load them.  Common encodings include base64
'  and hex.
encodedPfx = "MIIKrAIBAzCCCm...base64-encoded-pfx..."
success = pfx.LoadPfxEncoded(encodedPfx,"base64",password)
If (success = 0) Then
    outFile.WriteLine(pfx.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Loaded " & pfx.NumCerts & " certificate(s).")

outFile.Close