(PowerBuilder) 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

integer li_rc
oleobject loo_Csp
oleobject loo_St
integer li_Success
integer i
integer li_NumProviders

loo_Csp = create oleobject
// Use "Chilkat_9_5_0.Csp" for versions of Chilkat < 10.0.0
li_rc = loo_Csp.ConnectToNewObject("Chilkat.Csp")
if li_rc < 0 then
    destroy loo_Csp
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_St = create oleobject
// Use "Chilkat_9_5_0.StringTable" for versions of Chilkat < 10.0.0
li_rc = loo_St.ConnectToNewObject("Chilkat.StringTable")

li_Success = loo_Csp.GetProviders(loo_St)
if li_Success = 0 then
    Write-Debug loo_Csp.LastErrorText
    destroy loo_Csp
    destroy loo_St
    return
end if

// Iterate over the CSP names..
i = 0
li_NumProviders = loo_St.Count
do while i < li_NumProviders
    Write-Debug string(i) + ": " + loo_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
// 


destroy loo_Csp
destroy loo_St