[VB6 equivalent: HASH_File]
Dim abDigest() As Byte Dim sFileName As String Dim strDigest As String ' File to be hashed contains a total of 13 bytes: "hello world" plus CR-LF ' 68 65 6c 6c 6f 20 77 6f 72 6c 64 0d 0a hello world.. sFileName = ".\hello.txt" ' Pre-dimension digest array - do this each time ' Create default hash (SHA1) in binary mode abDigest = Hash.BytesFromFile(sFileName, HashAlgorithm.Sha1) Console.WriteLine(abDigest.Length & " " & Cnv.ToHex(abDigest)) ' Use SHA1 in "text" mode ' [VB.NET] Only option in v4.2 for a "text" file is to use HexFromTextFile strDigest = Hash.HexFromTextFile(sFileName, HashAlgorithm.Sha1) Console.WriteLine(strDigest.Length & " " & strDigest) ' Use MD5 abDigest = Hash.BytesFromFile(sFileName, HashAlgorithm.Md5) Console.WriteLine(abDigest.Length & " " & Cnv.ToHex(abDigest)) ' Use MD5 in "text" mode strDigest = Hash.HexFromTextFile(sFileName, HashAlgorithm.Md5) Console.WriteLine(strDigest.Length & " " & strDigest)
See Also:
Hash.BytesFromFile Method