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
|
