Mega Code Archive

 

Categories / VB.Net Tutorial / Stream File

 

Use the HMACSHA1 hashing function to generate a checksum for a file

Imports System.Text Imports System.Security.Cryptography Public Class Tester     Public Shared Sub Main         Dim checksum1 As Byte()         checksum1 = GenerateFileChecksum("test.txt")     End Sub     Public Shared Function GenerateFileChecksum(ByVal filePath As String) As Byte()         Dim hashingFunction As HMACSHA1         Dim hasingBase() As Byte         Dim hashValue() As Byte         Dim inStream As IO.Stream         If (My.Computer.FileSystem.FileExists(filePath)= False) Then             Throw New IO.FileNotFoundException             Return Nothing         End If         hasingBase = (New UnicodeEncoding).GetBytes("Cookbook")         hashingFunction = New HMACSHA1(hasingBase, True)         inStream = New IO.FileStream(filePath,IO.FileMode.Open, IO.FileAccess.Read)         hashValue = hashingFunction.ComputeHash(inStream)         inStream.Close()         Return hashValue     End Function End Class