(VBScript) Example: Crypt2.AddPfxSourceBd method

Demonstrates how to call the AddPfxSourceBd method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")
success = 0

' Do public-key decryption (RSA)
crypt.CryptAlgorithm = "pki"

' ...
' ...
' ...

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bdPfx = CreateObject("Chilkat.BinData")
success = bdPfx.LoadFile("c:/my_pfx_files/a.pfx")
' ...

pfxPassword = "secret1"
success = crypt.AddPfxSourceBd(bdPfx,pfxPassword)
If (success = 0) Then
    outFile.WriteLine(crypt.LastErrorText)
    WScript.Quit
End If

' Add as many as PFX sources as desired...
success = bdPfx.LoadFile("c:/my_pfx_files/b.pfx")
pfxPassword = "secret2"
success = crypt.AddPfxSourceBd(bdPfx,pfxPassword)
If (success = 0) Then
    outFile.WriteLine(crypt.LastErrorText)
    WScript.Quit
End If

' ...
' ...

outFile.Close