List CSP Encryption Algorithms

Lists the encryption algorithms available for a CSP.

Dim csp As New ChilkatCSP
csp.SetProviderMicrosoftRsaAes 

'  Other commonly used CSPs can be selected with these
'  methods:
'      SetProviderMicrosoftBase
'      SetProviderMicrosoftStrong
'      SetProviderMicrosoftEnhanced()
'  Otherwise the CSP can be selected by setting the ProviderName
'  property to the exact name of the Cryptographic Service Provider.

Dim i As Long
Dim numEncryptAlgs As Long

numEncryptAlgs = csp.NumEncryptAlgorithms
For i = 0 To numEncryptAlgs - 1
    Text1.Text = Text1.Text & csp.GetEncryptionAlgorithm(i) & vbCrLf
Next

'  Sample output:
'  RC2
'  RC4
'  DES
'  3DES TWO KEY
'  3DES
'  AES 128
'  AES 192
'  AES 256