Found the answer(Murphy must be laughing at me)
I've cobbled together a
sample using the following solution (I think it's in C#):
http://www.gotdotnet.com/Community/...mpleGuid=78ec88b8-0bb6-4d26-aad4-ddc38d8d6fab
Here are my samples:
Quick and dirty way:
Sub QDMD5(strPath as String)
Dim fs As New FileStream(strPath, FileMode.Open,
FileAccess.Read)
Dim bt As Byte() = New
Security.Cryptography.MD5CryptoServiceProvider().ComputeHash(fs)
Console.WriteLine(BitConverter.ToString(bt))
fs.Close()
End Sub
Long way(may be slightly more readable).
Sub LWMD5(strPath as String)
Dim fs2 As FileStream
Dim bt2 As Byte()
Dim MDCheck As New Security.Cryptography.MD5CryptoServiceProvider
fs2 = File.Open(strPath , FileMode.Open, FileAccess.Read)
bt2 = check.ComputeHash(fs2)
Console.WriteLine(BitConverter.ToString(bt2))
fs2.Close()
End Sub
YMMV
Yeah I know meaningful variables would be nice... I'll document it tomorrow.
(sorry for the rambling I'm suffering from a NyQuil hangover
)