(Tcl) List CSP's (Cryptographic Service Providers) on a Windows System

List the CSP's registered on a Windows system.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set csp [new_CkCsp]

set st [new_CkStringTable]

set success [CkCsp_GetProviders $csp $st]
if {$success == 0} then {
    puts [CkCsp_lastErrorText $csp]
    delete_CkCsp $csp
    delete_CkStringTable $st
    exit
}

# Iterate over the CSP names..
set i 0
set numProviders [CkStringTable_get_Count $st]
while {$i < $numProviders} {
    puts "$i: [CkStringTable_stringAt $st $i]"
    set i [expr $i + 1]
}

# Sample output:
# 
# 0: Microsoft Base Cryptographic Provider v1.0
# 1: Microsoft Base DSS and Diffie-Hellman Cryptographic Provider
# 2: Microsoft Base DSS Cryptographic Provider
# 3: Microsoft Base Smart Card Crypto Provider
# 4: Microsoft DH SChannel Cryptographic Provider
# 5: Microsoft Enhanced Cryptographic Provider v1.0
# 6: Microsoft Enhanced DSS and Diffie-Hellman Cryptographic Provider
# 7: Microsoft Enhanced RSA and AES Cryptographic Provider
# 8: Microsoft RSA SChannel Cryptographic Provider
# 9: Microsoft Strong Cryptographic Provider
# 

delete_CkCsp $csp
delete_CkStringTable $st