VBScript

Hash (Digest) a String

Hash the bytes of a string. VBScript

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

set sb = CreateObject("Chilkat.StringBuilder")

success = sb.Append("Hello World")

' Hashing algorithms (i.e. digest algorithms) operate on raw bytes.
' Therefore, we must specify the character encoding (utf-8, utf-16, iso-8859-1, etc.) to be used when hashing.

' Get the SHA256 hash in hex
sha256_hex = sb.GetHash("sha256","hex","utf-8")
outFile.WriteLine("SHA256: " & sha256_hex)

' Get the SHA384 hash in hex lowercase
sha384_hex = sb.GetHash("sha384","hex_lower","utf-8")
outFile.WriteLine("SHA384: " & sha384_hex)

' Get the SHA512 hash in base64
sha512_base64 = sb.GetHash("sha512","base64","utf-8")
outFile.WriteLine("SHA512: " & sha512_base64)

' Get the SHA1 hash in hex lowercase
sha1_hex = sb.GetHash("sha1","hex_lower","utf-8")
outFile.WriteLine("SHA1: " & sha1_hex)

' Get the CRC8 digest in decimal
crc8_decimal = sb.GetHash("crc8","decimal","utf-8")
outFile.WriteLine("CRC8: " & crc8_decimal)

outFile.Close