(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

loCsp = createobject("CkCsp")
loSt = createobject("CkStringTable")

llSuccess = loCsp.GetProviders(loSt)
if (llSuccess = .F.) then
    ? loCsp.LastErrorText
    release loCsp
    release loSt
    return
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