Visual FoxPro

Serialize a PFX to BinData

Demonstrates Pfx.ToBd, which serializes the current PFX contents as PKCS#12 data into a BinData object, using the supplied output password.

Background. This is the in-memory equivalent of ToFile, producing the PKCS#12 bytes for further processing or transport.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loPfx
LOCAL lcPassword
LOCAL lcOutputPassword
LOCAL loBd

lnSuccess = 0

loPfx = CreateObject('Chilkat.Pfx')

*  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.
lcPassword = "myPfxPassword"
lnSuccess = loPfx.LoadPfxFile("qa_data/identity.pfx",lcPassword)
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loPfx
    CANCEL
ENDIF

*  Serialize the PFX contents as PKCS#12 data into a BinData, using the given output password.
lcOutputPassword = "myOutputPassword"
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loPfx.ToBd(lcOutputPassword,loBd)
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loPfx
    RELEASE loBd
    CANCEL
ENDIF

? "Serialized " + STR(loBd.NumBytes) + " bytes of PKCS#12 data."

RELEASE loPfx
RELEASE loBd