(VBScript) BCrypt Hash a Password

Example to BCrypt hash a password.

Note: This example requires Chilkat v9.5.0.65 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")

' The BCrypt cost factor (work factor) can be set to a value from 4 to 31.
' The default value is 10.  We'll set it here explicitly to the default value
' to make this new property known.  This line of code can be omitted
' if the default value of 10 is desired.
crypt.BCryptWorkFactor = 10

bcryptHash = crypt.BCryptHash("mySecretPassword")
outFile.WriteLine("BCrypt hash = " & bcryptHash)

' Sample output:
' BCrypt hash = $2a$10$H5kIVktMGzAPKGKNAe9DVu0iwEqfhv/o4MMJ/Dzw/MPy1leOE9NOK

' Note: Your output will be different because the BCryptHash method
' automatically generates a random salt. 

outFile.Close