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

7
Modules.Filesystem/File.vb
View File

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