And just because it's possible:
 Code:
Function SHA1($strFileName)
  Dim $objXML, $objXEL, $objSHA1, $objStream, $BinaryFile
  $objStream = CreateObject("ADODB.Stream")
  $objStream.Type = 1
  $objStream.Open
  $objStream.LoadFromFile($strFileName)
  $BinaryFile = $objStream.Read
  $objStream.Close
  $objStream = ""
  $objSHA1 = CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider")
  $=$objSHA1.ComputeHash_2($BinaryFile)
  $objXML = CreateObject("MSXML2.DOMDocument")
  $objXEL = $objXML.CreateElement("tmp")
  $objXEL.DataType = "bin.hex"
  $objXEL.NodeTypedValue = $objSHA1.Hash
  $SHA1 = $objXEL.Text
EndFunction

? SHA1("C:\KIX32.EXE")