Filesystem: Add GetChecksumForString

Modules.Filesystem/File.vb

@@ -1,5 +1,6 @@
 Imports System.IO
 Imports System.Security.Cryptography
+Imports System.Text
 Imports System.Text.RegularExpressions
 Imports DigitalData.Modules.Logging
 
@@ -77,9 +78,7 @@ Public Class File
             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)
+                    Return FormatHash(oChecksum)
                 End Using
             End Using
         Catch ex As Exception
@@ -88,6 +87,18 @@ Public Class File
         End Try
     End Function
 
+    Public Function GetChecksumFromString(pStringToCheck As String) As String
+        Dim oBytes() As Byte = Encoding.UTF8.GetBytes(pStringToCheck)
+        Dim oChecksum() As Byte = SHA256.Create.ComputeHash(oBytes)
+        Return FormatHash(oChecksum)
+    End Function
+
+    Private Function FormatHash(pChecksum)
+        Return BitConverter.
+            ToString(pChecksum).
+            Replace("-", String.Empty)
+    End Function
+
     ''' <summary>
     ''' Adds file version string to given filename `Destination` if that file already exists.
     ''' </summary>