(VBScript) Calculate MD5 Hash of File (or SHA1, SHA256, and other hash algorithms)

Demonstrates how to calculate a hash for a file's contents.

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")

' Set the name of the hash algorithm.
' Other choices include "sha1", "sha256", "sha384", "sha512", "md2", "md5", and "haval". 
crypt.HashAlgorithm = "md5"

' EncodingMode specifies the encoding of the hash output.
' It may be "hex", "url", "base64", or "quoted-printable".
crypt.EncodingMode = "hex"

' Files of any type may be hashed -- it doesn't matter
' if the file is binary or text...

hashStr = crypt.HashFileENC("/temp/something.dat")
If (crypt.LastMethodSuccess <> 1) Then
    outFile.WriteLine(crypt.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(hashStr)

outFile.Close