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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoCsp
    Variant vSt
    Handle hoSt
    Boolean iSuccess
    Integer i
    Integer iNumProviders
    String sTemp1

    Get Create (RefClass(cComChilkatCsp)) To hoCsp
    If (Not(IsComObjectCreated(hoCsp))) Begin
        Send CreateComObject of hoCsp
    End
    Get Create (RefClass(cComChilkatStringTable)) To hoSt
    If (Not(IsComObjectCreated(hoSt))) Begin
        Send CreateComObject of hoSt
    End

    Get pvComObject of hoSt to vSt
    Get ComGetProviders Of hoCsp vSt To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCsp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Iterate over the CSP names..
    Move 0 To i
    Get ComCount Of hoSt To iNumProviders
    While (i < iNumProviders)
        Get ComStringAt Of hoSt i To sTemp1
        Showln i ": " sTemp1
        Move i + 1 To i
    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
    // 


End_Procedure