(Visual Basic 6.0) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim csp As New ChilkatCsp
Dim st As New ChilkatStringTable

Dim success As Long
success = csp.GetProviders(st)
If (success = 0) Then
    Debug.Print csp.LastErrorText
    Exit Sub
End If

' Iterate over the CSP names..
Dim i As Long
i = 0
Dim numProviders As Long
numProviders = st.Count
Do While i < numProviders
    Debug.Print i & ": " & st.StringAt(i)
    i = i + 1
Loop

' 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
'