(VBScript) SHA256 Hash the Bytes Represented in a Hex String

Demonstrates how to compute the SHA256 hash of the bytes represented by a hexidecimal encoded string, and return the hash bytes as an hex encoded string.

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.

' We wish to compute the SHA256 hash of the bytes 0x6C 0xF8 0xEA 0x51 0xE4 0xE0 0xF5 0x99 0xCF ...
src = "6CF8EA51E4E0F599CF03EC8D58C3DCBC9C889A77FB2816B40DE25C2EC54E98A67EA517B"

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = CreateObject("Chilkat.BinData")
success = bd.AppendEncoded(src,"hex")

' The bd now contains the bytes 0x6C 0xF8 0xEA 0x51 0xE4 0xE0 0xF5 0x99 0xCF ...

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

' Hash the bytes contained in bd, and return the 32-byte SHA256 hash as a hexidecimal encoded string.
result = crypt.HashBdENC(bd)
outFile.WriteLine(result)

outFile.Close