Xbase++ Requires Chilkat v11.0.0+

Install PFX Certificates and Private Keys to Windows

See more PFX/P12 Examples

Demonstrates how to install the certificates and private keys contained in a PFX to the Windows certificate stores. Xbase++

LOCAL nSuccess
LOCAL oPfx
LOCAL nExportable
LOCAL nUserProtected
LOCAL nMachineKeyset
LOCAL nAllowOverwriteKey
LOCAL nAllowExport
LOCAL cLeafStore
LOCAL cIntermediateStore
LOCAL cRootStore
LOCAL oJson

nSuccess := 0

oPfx := CreateObject("Chilkat.Pfx")

nSuccess := oPfx:LoadPfxFile("qa_data/pfx/test_secret.pfx", "secret")
IF (nSuccess == 0)
    ? oPfx:LastErrorText
    oPfx:destroy()
    RETURN
ENDIF

//  See the online reference documentation for more information about the ImportToWindows method.

//  Mark imported privae keys as exportable.
nExportable := 1

//  If userProtected is 1, the user is to be notified through a dialog box or other method when certain attempts to use this key are made. 
nUserProtected := 0

//  If machineKeyset is 1, the private keys are stored under the local computer and not under the current user. 
nMachineKeyset := 0

//  If allowOverwriteKey is 1, allow overwrite of the existing key. 
nAllowOverwriteKey := 0

//  If allowExport is 1, then the imported key can later be exported back to a PFX.
//  (It also allows for applications to directly access the private key material.)
nAllowExport := 1

//  Indicate where to import types of certs.
cLeafStore := "My"
cIntermediateStore := "CertificationAuthority"
cRootStore := "AuthRoot"

nSuccess := oPfx:ImportToWindows(nExportable, nUserProtected, nMachineKeyset, nAllowOverwriteKey, nAllowExport, cLeafStore, cIntermediateStore, cRootStore, "")
IF (nSuccess == 0)
    ? oPfx:LastErrorText
    oPfx:destroy()
    RETURN
ENDIF

//  Show information about the certificates imported
oJson := CreateObject("Chilkat.JsonObject")
oPfx:GetLastJsonData(oJson)

oJson:EmitCompact := 0
? oJson:Emit()

//  Sample output:

//  {
//    "exportable": true,
//    "userProtected": false,
//    "machineKeyset": false,
//    "allowOverwriteKey": false,
//    "allowExport": true,
//    "key": [
//      {
//        "name": "{F09B755A-1E90-444D-9851-02B86CA14961}",
//        "storageProvider": "Microsoft Software Key Storage Provider"
//      }
//    ],
//    "cert": [
//      {
//        "DN": "...",
//        "type": "intermediate",
//        "storeName": "CertificationAuthority",
//        "imported": true
//      },
//      {
//        "DN": "...",
//        "type": "root",
//        "storeName": "AuthRoot",
//        "imported": true
//      },
//      {
//        "DN": "....",
//        "type": "leaf",
//        "storeName": "My",
//        "keyContainer": "{345D4EAD-B8DD-4150-9A1F-4BC6437E77A2}",
//        "machineKeyset": true,
//        "imported": true
//      }
//    ]
//  }

? "Success."

oPfx:destroy()
oJson:destroy()