Write a PFX to a File

See more PFX/P12 Examples

Demonstrates Pfx.ToFile, which serializes the current PFX contents and writes the resulting PKCS#12 data to a file, using the supplied output password.

The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.

Dim success As Long
success = 0

Dim pfx As New ChilkatPfx

'  The file path is relative to the application's current working directory.  An absolute path
'  may also be used.  Supply the path appropriate to your own environment.
'  The PFX password should come from a secure source rather than being hard-coded.
Dim password As String
password = "myPfxPassword"
success = pfx.LoadPfxFile("qa_data/identity.pfx",password)
If (success = 0) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

'  Serialize the PFX contents and write the PKCS#12 data to a file, using the given output password.
'  The output password should come from a secure source rather than being hard-coded.
Dim outputPassword As String
outputPassword = "myOutputPassword"
success = pfx.ToFile(outputPassword,"qa_output/identity.pfx")
If (success = 0) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

Debug.Print "PFX written to file."