Lianja

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. Lianja

llSuccess = .F.

loPfx = createobject("CkPfx")

llSuccess = loPfx.LoadPfxFile("qa_data/pfx/test_secret.pfx","secret")
if (llSuccess = .F.) then
    ? loPfx.LastErrorText
    release loPfx
    return
endif

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

// Mark imported privae keys as exportable.
llExportable = .T.

// If userProtected is .T., the user is to be notified through a dialog box or other method when certain attempts to use this key are made. 
llUserProtected = .F.

// If machineKeyset is .T., the private keys are stored under the local computer and not under the current user. 
llMachineKeyset = .F.

// If allowOverwriteKey is .T., allow overwrite of the existing key. 
llAllowOverwriteKey = .F.

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

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

llSuccess = loPfx.ImportToWindows(llExportable,llUserProtected,llMachineKeyset,llAllowOverwriteKey,llAllowExport,lcLeafStore,lcIntermediateStore,lcRootStore,"")
if (llSuccess = .F.) then
    ? loPfx.LastErrorText
    release loPfx
    return
endif

// Show information about the certificates imported
loJson = createobject("CkJsonObject")
loPfx.GetLastJsonData(loJson)

loJson.EmitCompact = .F.
? loJson.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."


release loPfx
release loJson