Description

 

Retrieves the first or next types of cryptographic service provider (CSP) supported on the computer.

Used in a loop, this function retrieves in sequence all of the CSP types available on a computer.

 

Syntax

 

s = Crypto_EnumProviderTypes(nIndex)

 

Returns

 

Returns AS STRING

The name of selected cryptographic service providers types (CSPTs).

 

Parameters

 

 

Remarks

 

This functions is based on Microsoft's PROV_RSA_FULL Cryptographic Service Provider Type.

 

Restrictions

 

See also

 

Crypto_EnumProviders, Crypto_GetDefaultProvider, Crypto_GetProvidersCount

 

Examples

 

USES "Console"

Dim nCount As Long

Dim i      As Long

 

nCount = Crypto_GetProviderTypesCount() - 1   ' zero based index

 

For i = 0 To nCount

   PRINTL(format$(i+1, "00") + ") " + Crypto_EnumProviderTypes(i))

Next