VBScript

Load PFX/P12 from a Base64 Encoded PFX File

See more PFX/P12 Examples

Demonstrates how to call LoadPfxEncoded. 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 bd = CreateObject("Chilkat.BinData")

success = bd.LoadFile("qa_data/pfx/cert_test123.pfx")
If (success <> 1) Then
    outFile.WriteLine("Failed to load PFX file.")
    WScript.Quit
End If

' Get the bytes contained in the PFX in base64 format:
strBase64 = bd.GetEncoded("base64")

' The base64 looks like this:  "MIIbEAIBAzCCGswGCSqGSIb3DQEHAaCCGr0Eghq5MIIatTCCBg..."
outFile.WriteLine(strBase64)

set pfx = CreateObject("Chilkat.Pfx")

' Load the PFX from the base64 string
password = "test123"
success = pfx.LoadPfxEncoded(strBase64,"base64",password)
If (success <> 1) Then
    outFile.WriteLine(pfx.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("success")

outFile.Close