(Tcl) List Microsoft Storage Providers

Gets the Microsoft CNG and legacy CryptoAPI storage providers that exist on the Windows system.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires Chilkat v9.5.0.83 or greater.

set keyCon [new_CkKeyContainer]

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0

set success [CkKeyContainer_GetStorageProviders $keyCon $json]
if {$success != 1} then {
    puts [CkKeyContainer_lastErrorText $keyCon]
    delete_CkKeyContainer $keyCon
    delete_CkJsonObject $json
    exit
}

puts [CkJsonObject_emit $json]

# Sample JSON returned by GetStorageProviders

# {
#   "cng": [
#     "Microsoft Software Key Storage Provider",
#     "Microsoft Passport Key Storage Provider",
#     "Microsoft Platform Crypto Provider",
#     "Microsoft Smart Card Key Storage Provider"
#   ],
#   "legacy": [
#     "Microsoft Base Cryptographic Provider v1.0",
#     "Microsoft Base DSS and Diffie-Hellman Cryptographic Provider",
#     "Microsoft Base DSS Cryptographic Provider",
#     "Microsoft Base Smart Card Crypto Provider",
#     "Microsoft DH SChannel Cryptographic Provider",
#     "Microsoft Enhanced Cryptographic Provider v1.0",
#     "Microsoft Enhanced DSS and Diffie-Hellman Cryptographic Provider",
#     "Microsoft Enhanced RSA and AES Cryptographic Provider",
#     "Microsoft RSA SChannel Cryptographic Provider",
#     "Microsoft Strong Cryptographic Provider"
#   ]
# }

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

# Iterate over the CNG storage containers
set i 0
set numStorageContainers [CkJsonObject_SizeOfArray $json "cng"]
while {$i < $numStorageContainers} {
    CkJsonObject_put_I $json $i
    set name [CkJsonObject_stringOf $json "cng[i]"]
    puts "$name"
    set i [expr $i + 1]
}

puts "--"

# Iterate over the legacy CryptoAPI Cryptographic Storage Providers
set i 0
set numStorageContainers [CkJsonObject_SizeOfArray $json "legacy"]
while {$i < $numStorageContainers} {
    CkJsonObject_put_I $json $i
    set name [CkJsonObject_stringOf $json "legacy[i]"]
    puts "$name"
    set i [expr $i + 1]
}

delete_CkKeyContainer $keyCon
delete_CkJsonObject $json