(DataFlex) Load PFX with Different Password for Private Keys

Demonstrates how to load a PFX where the HMAC integrity password (the password for the entire PFX) is different than the password for the private keys contained inside.

Note: This example requires a new feature made available in Chilkat v9.5.0.75.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoPfx
    Handle hoJson
    String sTemp1


    Get Create (RefClass(cComChilkatPfx)) To hoPfx
    If (Not(IsComObjectCreated(hoPfx))) Begin
        Send CreateComObject of hoPfx
    End
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End

    // Build JSON containing the HMAC integrity (PFX) password, and the 
    // password for the private keys.
    Get ComUpdateString Of hoJson "integrity" "password1" To iSuccess
    Get ComUpdateString Of hoJson "privKeys" "password2" To iSuccess

    // The JSON contains this:
    // 
    // 	{
    // 	  "integrity": "password1",
    // 	  "privKeys": "password2"
    // 	}
    // 

    // Use the above JSON instead of a simple password string when loading the PFX:
    Get ComEmit Of hoJson To sTemp1
    Get ComLoadPfxFile Of hoPfx "qa_data/pfx/PrivateKeyPassIsDifferent.pfx" sTemp1 To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPfx To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success."


End_Procedure