(Visual Basic 6.0) List Keys in a Microsoft Storage Provider

Demonstrates how to list the keys found in a Microsoft CNG Storage Provider, or a Legacy CryptoAPI Storage Provider.

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

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

' This example requires Chilkat v9.5.0.83 or greater.

Dim keyCon As New KeyContainer
Dim json As New ChilkatJsonObject
json.EmitCompact = 0

Dim success As Long
success = keyCon.GetKeys("Microsoft Software Key Storage Provider",json)
If (success <> 1) Then
    Debug.Print keyCon.LastErrorText
    Exit Sub
End If

Debug.Print json.Emit()

' Sample JSON returned by GetKeys

' If the storage provider is CNG, then each key has an "algId".
' If the storage provider is legacy CryptoAPI, then each key has a "provType" (see below)

' If the storage provider is CNG:
' {
'   "storageProvider": "Microsoft Software Key Storage Provider",
'   "key": [
'     {
'       "name": "cn=Chilkat Admin,ou=Persona Not Verified,ou=For Test Purposes Only Decryption Key",
'       "machineKey": false,
'       "algId": "ECDH_P384"
'     },
'     {
'       "name": "CD1CC265-0DA0-4230-8419-CB6F808FE688",
'       "machineKey": false,
'       "algId": "SP800_108_CTR_HMAC"
'     },
'     {
'       "name": "{FF14487C-0AED-471E-8FAD-4BF757C2195C}",
'       "machineKey": false,
'       "algId": "ECDH_P256"
'     },
'     {
'       "name": "{869FD9A6-D815-44FD-A916-4D4A708CD949}",
'       "machineKey": false,
'       "algId": "ECDH_P256"
'     },
'     {
'       "name": "D530ECA9-FF5A-4A6A-AAB3-6EC1870F2CC3",
'       "machineKey": false,
'       "algId": "SP800_108_CTR_HMAC"
'     },
'     {
'       "name": "{F524771E-93C0-4D56-8DE7-2FE3CB5BD837}",
'       "machineKey": false,
'       "algId": "RSA"
'     },
'     {
'       "name": "Microsoft Connected Devices Platform device certificate",
'       "machineKey": false,
'       "algId": "ECDSA_P256"
'     }
'   ]
' }

' If the storage provider is legacy CryptoAPI:

' {
'   "storageProvider": "Microsoft Base Cryptographic Provider v1.0",
'   "key": [
'     {
'       "name": "{48D7FF88-A52E-41E2-9EBD-0CC7E880DC65}",
'       "machineKey": false,
'       "provType": "PROV_RSA_FULL"
'     },
'     {
'       "name": "{CBF7A33A-F9CF-4C30-8A06-94A5C7981058}",
'       "machineKey": false,
'       "provType": "PROV_RSA_FULL"
'     }
'   ]
' }

' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

Dim name As String
Dim machineKey As Long
Dim algId As String
Dim provType As String

Dim storageProvider As String
storageProvider = json.StringOf("storageProvider")
Dim i As Long
i = 0
Dim count_i As Long
count_i = json.SizeOfArray("key")
Do While i < count_i
    json.I = i
    name = json.StringOf("key[i].name")
    machineKey = json.BoolOf("key[i].machineKey")
    If (json.HasMember("key[i].algId") = 1) Then
        algId = json.StringOf("key[i].algId")
    End If

    If (json.HasMember("key[i].provType") = 1) Then
        provType = json.StringOf("key[i].provType")
    End If

    i = i + 1
Loop