calculating MD5 from binary file

[Me]

Does anyone have a VB.Net sample for calculating the MD5 value from a binary
file? Had it a while ago but formated the drive by accident... :\

J

[Me]

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/U...4-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().C omputeHash(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 :) )

"Me" <[e-mail]> wrote in message
news:pG*******************@twister01.bloor.is.net. cable.rogers.com...

Does anyone have a VB.Net sample for calculating the MD5 value from a binary file? Had it a while ago but formated the drive by accident... :\

J

[Fergus Cooney]

Hi Me,

Thanks for the code. Someone's just come in asking how to - gues what -
calculate MD5 from a file!!

Cheers,
Fergus