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


  共有4191人关注过本帖树形打印复制链接

主题：请教SHA256算法
帅哥哟，离线，有人找我吗？
bobolan521
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：7356 威望：0 精华：1 注册：2013/11/26 7:49:00 		请教SHA256算法  发帖心情 Post By：2019/1/31 10:10:00 [只看该作者]




此主题相关图片如下：a2.png
按此在新窗口浏览图片



请问一下老师这个算法用狐表要怎么写，才能算出红色的字符

签名例子参考:

  • timestamp=1546084445901
  • appSecret=testappSecret
  • signature=HCbG3xNE3vzhO+u7qCUL1jS5hsu2n5r2cFhnTrtyDAE=
[此贴子已经被作者于2019/1/31 12:42:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/31 10:16:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
bobolan521
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：7356 威望：0 精华：1 注册：2013/11/26 7:49:00 		  发帖心情 Post By：2019/1/31 12:18:00 [只看该作者]

Dim sRequest As String = "timestamp=1546084445901&appSecret=testappSecret"
Dim myEncoder As New System.Text.UTF8Encoding
Dim Key() As Byte = myEncoder.GetBytes(sRequest)
Dim XML() As Byte = myEncoder.GetBytes(sRequest)
Dim myHMACSHA256 As New System.Security.Cryptography.HMACSHA256(Key)
Dim HashCode As Byte() = myHMACSHA256.ComputeHash(XML)

Dim result = Convert.ToBase64String(HashCode)

sRequest &= "&Signature=" & UrlEncode(result)
msgbox(sRequest)

老师，我这么写计算出来的结果不对，麻烦看一下代码要怎么改，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/31 12:37:00 [只看该作者]

那你就直接用官方sdk，直接引用dll后处理。

 

不然，贴出具体的帮助文档链接看看。
 回到顶部
帅哥哟，离线，有人找我吗？
bobolan521
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：7356 威望：0 精华：1 注册：2013/11/26 7:49:00 		  发帖心情 Post By：2019/1/31 12:41:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/31 12:45:00 [只看该作者]

下载.net sdk，然后引用使用

 

https://open-doc.dingtalk.com/microapp/serverapi2/vzzrkv

 
 回到顶部
帅哥哟，离线，有人找我吗？
hgzvip
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：74 积分：800 威望：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的值和你红色的一样
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询