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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论] 求值

共有2424人关注过本帖树形打印复制链接主题：[讨论] 求值

haipo

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

加好友

发短信

等级：幼狐帖子：70 积分：546 威望：0 精华：0 注册：2018/4/30 11:50:00

[讨论] 求值 发帖心情

Post By：2018/8/28 0:58:00 [只看该作者]

假设需要创建的字符串是abcde, 私有密钥：1d112dse1d2e,通过以下代码可以算出相应的值，。

Dim myEncoder As New System.Text.UTF8Encoding

Dim Key() As Byte = myEncoder.GetBytes("1d112dse1d2e")

Dim zifuchuan() As Byte = myEncoder.GetBytes("abcde")

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

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

Dim result As String = Convert.ToBase64String(HashCode)

MsgBox.Show(result)

[此贴子已经被作者于2018/8/29 23:52:16编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/28 9:07:00 [只看该作者]

请贴出别人例子里面写的代码。

haipo

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

加好友

发短信

等级：幼狐帖子：70 积分：546 威望：0 精华：0 注册：2018/4/30 11:50:00

Post By：2018/8/28 9:39:00 [只看该作者]



    Public Shared Function HashString(ByVal StringToHash As String) As String
        Dim myEncoder As New System.Text.UTF8Encoding
        Dim Key() As Byte = myEncoder.GetBytes("REMOVED-FOR-SECURITY")
        Dim XML() As Byte = myEncoder.GetBytes(StringToHash)
        Dim myHMACSHA256 As New System.Security.Cryptography.HMACSHA256(Key)
        Dim HashCode As Byte() = myHMACSHA256.ComputeHash(XML)
        Return Convert.ToBase64String(HashCode)
    End Function

[此贴子已经被作者于2018/8/29 23:52:38编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/28 9:48:00 [只看该作者]

照抄

Dim sURL As String = "https://mws.amazonservices.com/"

Dim sRequest As String = ""
sRequest &= "Acknowledged=" & UrlEncode("false")
sRequest &= "&Action=" & UrlEncode("GetReportList")
sRequest &= "&AWSAccessKeyId=" & UrlEncode("REMOVED-FOR-SECURITY")
sRequest &= "&Marketplace=" & UrlEncode("REMOVED-FOR-SECURITY")
sRequest &= "&Merchant=" & UrlEncode("REMOVED-FOR-SECURITY")
sRequest &= "&SignatureMethod=" & UrlEncode("HmacSHA256")
sRequest &= "&SignatureVersion=" & UrlEncode("2")
sRequest &= "&Timestamp=" & UrlEncode(DateTime.Now.ToString("yyyy-MM-ddTHH:mm:ssCST"))
sRequest &= "&Version=" & UrlEncode("2009-01-01")

Dim StringToSign As String = "GET\n" & "mws.amazonservices.com\n" & "/\n" & sRequest
Dim myEncoder As New System.Text.UTF8Encoding
Dim Key() As Byte = myEncoder.GetBytes("REMOVED-FOR-SECURITY")
Dim XML() As Byte = myEncoder.GetBytes(StringToSign)
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)