43 lines
1009 B
VB.net
43 lines
1009 B
VB.net
Imports System.IO
|
|
Imports System.Security.Cryptography
|
|
|
|
Public Class mgrHash
|
|
|
|
'Generate SHA256 Hash
|
|
Public Shared Function Generate_SHA256_Hash(ByVal sPath As String)
|
|
|
|
Dim bHashValue() As Byte
|
|
Dim oSHA As SHA256 = SHA256.Create()
|
|
Dim sHash As String
|
|
|
|
If File.Exists(sPath) Then
|
|
Dim fileStream As FileStream = File.OpenRead(sPath)
|
|
fileStream.Position = 0
|
|
|
|
bHashValue = oSHA.ComputeHash(fileStream)
|
|
|
|
sHash = PrintByteArray(bHashValue)
|
|
|
|
fileStream.Close()
|
|
Else
|
|
sHash = String.Empty
|
|
End If
|
|
|
|
Return sHash
|
|
End Function
|
|
|
|
' Print the byte array in a readable format.
|
|
Public Shared Function PrintByteArray(ByVal bArray() As Byte) As String
|
|
|
|
Dim sHex As String = String.Empty
|
|
|
|
Dim i As Integer
|
|
For i = 0 To bArray.Length - 1
|
|
sHex &= String.Format("{0:X2}", bArray(i))
|
|
Next i
|
|
|
|
Return sHex
|
|
End Function
|
|
|
|
End Class
|