请教SHA256算法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教SHA256算法

共有3888人关注过本帖树形打印复制链接主题：请教SHA256算法

hgzvip

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：67 积分：750 威望：0 精华：0 注册：2015/9/5 18:02:00

Post By：2021/3/4 21:31:00 [显示全部帖子]

Dim myEncoder As New System.Text.UTF8Encoding

Dim Key() As Byte = myEncoder.GetBytes("testappSecret") '

Dim XML() As Byte = myEncoder.GetBytes("1546084445901")

Dim myHMACSHA256 As New System.Security.Cryptography.HMACSHA256(Key)

Dim HashCode As Byte() = myHMACSHA256.ComputeHash(XML)

Dim result = Convert.ToBase64String(HashCode)

result的值和你红色的一样

主题：请教SHA256算法