主题：[求助]请问老师如何将字串转换 SHA256,再转换为大写

http://www.foxtable.com/webhelp/scr/0238.htm

这个？

Dim strData = "123456"
Dim bytValue As Byte() = System.Text.Encoding.UTF8.GetBytes(strData)
Try
    Dim sha256 As New System.Security.Cryptography.SHA256Managed 
    Dim retVal As Byte() = sha256.ComputeHash(bytValue)
    Dim sb As New StringBuilder()
    For i As Integer = 0 To retVal.Length - 1
        sb.Append(retVal(i).ToString("x2"))
    Next
    Return sb.ToString().toupper
Catch ex As Exception
    msgbox(ex.Message)
End Try