Serialize a PFX to an Encoded String

See more PFX/P12 Examples

Demonstrates Pfx.ToEncodedString, which serializes the current PFX contents and returns the PKCS#12 bytes encoded as text using a named encoding.

IncludeFile "CkPfx.pb"

Procedure ChilkatExample()

    success.i = 0

    pfx.i = CkPfx::ckCreate()
    If pfx.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  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.
    password.s = "myPfxPassword"
    success = CkPfx::ckLoadPfxFile(pfx,"qa_data/identity.pfx",password)
    If success = 0
        Debug CkPfx::ckLastErrorText(pfx)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    ;  Serialize the PFX contents using the given output password and return the PKCS#12 bytes encoded as
    ;  text.  Common encodings include base64 and hex.
    outputPassword.s = "myOutputPassword"
    encoded.s = CkPfx::ckToEncodedString(pfx,outputPassword,"base64")
    If CkPfx::ckLastMethodSuccess(pfx) = 0
        Debug CkPfx::ckLastErrorText(pfx)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    Debug encoded


    CkPfx::ckDispose(pfx)


    ProcedureReturn
EndProcedure