AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

File: clean up GetChecksum

Browse Source
This commit is contained in:
Jonathan Jenne 2021-05-04 11:10:06 +02:00
parent 42f9c04b24
commit 5391bb8d79
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Modules.Filesystem/File.vb
View File

@ -73,10 +73,11 @@ Public Class File
End Function
Public Function GetChecksum(FilePath As String) As String
Using oStream As New BufferedStream(IO.File.OpenRead(FilePath), 1200000)
Dim oSHA As New SHA256Managed()
Dim oChecksum() As Byte = oSHA.ComputeHash(oStream)
Return BitConverter.ToString(oChecksum).Replace("-", String.Empty)
Using oFileStream = IO.File.OpenRead(FilePath)
Using oStream As New BufferedStream(oFileStream, 1200000)
Dim oChecksum() As Byte = SHA256.Create.ComputeHash(oStream)
Return BitConverter.ToString(oChecksum).Replace("-", String.Empty)
End Using
End Using
End Function