(Visual FoxPro) 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

LOCAL loCsp
LOCAL loSt
LOCAL lnSuccess
LOCAL i
LOCAL lnNumProviders

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Csp')
loCsp = CreateObject('Chilkat.Csp')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringTable')
loSt = CreateObject('Chilkat.StringTable')

lnSuccess = loCsp.GetProviders(loSt)
IF (lnSuccess = 0) THEN
    ? loCsp.LastErrorText
    RELEASE loCsp
    RELEASE loSt
    CANCEL
ENDIF

* Iterate over the CSP names..
i = 0
lnNumProviders = loSt.Count
DO WHILE i < lnNumProviders
    ? STR(i) + ": " + loSt.StringAt(i)
    i = i + 1
ENDDO

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

RELEASE loCsp
RELEASE loSt