List CSP Encryption Algorithms

Lists the encryption algorithms available for a CSP.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set csp = CreateObject("Chilkat.Csp")
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.

numEncryptAlgs = csp.NumEncryptAlgorithms
For i = 0 To numEncryptAlgs - 1
    outFile.WriteLine(csp.GetEncryptionAlgorithm(i))
Next

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

outFile.Close