Please be amazed ;-)
 Code:
$=SetOption('Explicit','On')
Function md5($filename)
  Dim $objXML, $objXEL, $objMD5, $objStream, $BinaryFile
  $objStream = CreateObject("ADODB.Stream")
  $objStream.Type = 1
  $objStream.Open
  $objStream.LoadFromFile($filename)
  $BinaryFile = $objStream.Read
  $objStream.Close
  $objStream = ""
  $objMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
  $=$objMD5.ComputeHash_2($BinaryFile)
  $objXML = CreateObject("MSXML2.DOMDocument")
  $objXEL = $objXML.CreateElement("tmp")
  $objXEL.DataType = "bin.hex"
  $objXEL.NodeTypedValue = $objMD5.Hash
  $md5 = $objXEL.Text
EndFunction

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