VBScript

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

See more Encryption Examples

Demonstrates how to calculate a hash for a file's contents. 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)

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

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