(Visual FoxPro) Install PFX Certificates and Private Keys to Windows

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

Note: This example requires Chilkat v9.5.0.83 or greater.

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

LOCAL loPfx
LOCAL lnSuccess
LOCAL lnExportable
LOCAL lnUserProtected
LOCAL lnMachineKeyset
LOCAL lnAllowOverwriteKey
LOCAL lnAllowExport
LOCAL lcLeafStore
LOCAL lcIntermediateStore
LOCAL lcRootStore
LOCAL loJson

* Note: This example requires Chilkat v9.5.0.83 or greater.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Pfx')
loPfx = CreateObject('Chilkat.Pfx')

lnSuccess = loPfx.LoadPfxFile("qa_data/pfx/test_secret.pfx","secret")
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loPfx
    CANCEL
ENDIF

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

* Mark imported privae keys as exportable.
lnExportable = 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. 
lnUserProtected = 0

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

* If allowOverwriteKey is 1, allow overwrite of the existing key. 
lnAllowOverwriteKey = 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.)
lnAllowExport = 1

* Indicate where to import types of certs.
lcLeafStore = "My"
lcIntermediateStore = "CertificationAuthority"
lcRootStore = "AuthRoot"

lnSuccess = loPfx.ImportToWindows(lnExportable,lnUserProtected,lnMachineKeyset,lnAllowOverwriteKey,lnAllowExport,lcLeafStore,lcIntermediateStore,lcRootStore,"")
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loPfx
    CANCEL
ENDIF

* Show information about the certificates imported
loJson = loPfx.LastJsonData()
loJson.EmitCompact = 0
? loJson.Emit()
RELEASE loJson

* Sample LastJsonData:

* {
*   "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."

RELEASE loPfx