以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问老师如何将字串转换 SHA256,再转换为大写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103501)

--  作者:rambowhuang
--  发布时间:2017/7/10 13:13:00
--  [求助]请问老师如何将字串转换 SHA256,再转换为大写
请问老师如何将字串转换 SHA256,再转换为大写
--  作者:wyz20130512
--  发布时间:2017/7/10 13:25:00
--  
Output.Show(Ucase("sha256"))
--  作者:有点甜
--  发布时间:2017/7/10 14:08:00
--  

 

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

 


--  作者:rambowhuang
--  发布时间:2017/7/10 14:35:00
--  
安全散列算法SHA(Secure Hash Algorithm)是美国国家安全局 (NSA) 设计,美国国家标准与技术研究院(NIST) 发布的一系列密码散列函数,
包括 SHA-1、SHA-224、SHA-256、SHA-384 和 SHA-512 等变体。
主要适用于数字签名标准(DigitalSignature Standard DSS)里面定义的数字签名算法(Digital Signature Algorithm DSA)。


--  作者:有点甜
--  发布时间:2017/7/10 15:18:00
--  

这个?

 

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


--  作者:rambowhuang
--  发布时间:2017/7/10 16:02:00
--  
太感謝了!图片点击可在新窗口打开查看