Imports System

Public Module Module1

    Public Sub Main()

        Dim str As String = "1234"

        Console.WriteLine(SHA256Hash(str))

    End Sub

​

    Public Function SHA256Hash(ByVal strInput As String) As String

        Dim arrBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(strInput)

        Dim objHashProvider As System.Security.Cryptography.SHA256 = System.Security.Cryptography.SHA256.Create()

        Dim arrHashedBytes As Byte() = objHashProvider.ComputeHash(arrBytes)

​

        Dim strHashedString As String = String.Empty

        For Each bHashedByte As Byte In arrHashedBytes

            strHashedString += String.Format("{0:x2}", bHashedByte)

        Next

​

        Return strHashedString

    End Function

​

End Module

​