List CSP Hash Algorithms

Lists the hash 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.SetProviderMicrosoftEnhanced 

'  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.

numHashAlgs = csp.NumHashAlgorithms
For i = 0 To numHashAlgs - 1
    outFile.WriteLine(csp.GetHashAlgorithm(i))
Next

'  Sample output:
'  SHA-1
'  MD2
'  MD4
'  MD5
'  SSL3 SHAMD5
'  MAC
'  HMAC

outFile.Close