以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论] 求值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123962)
--  作者：haipo
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：2018/8/28 9:07:00
--  
请贴出别人例子里面写的代码。
--  作者：haipo
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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)

 
--  作者：haipo
--  发布时间：2018/8/29 18:00:00
--  
上面的代码算出的结果和网页版的不一致，并且这个代码最后发出请求后返回403.
网页版的： https://10024tools.com/hmac

我又找一个Java版的（请查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:java版的算法.txt

），老师会转VB的吗？ 找了一天都没找到用VB写的。


[此贴子已经被作者于2018/8/29 23:58:50编辑过]
--  作者：有点甜
--  发布时间：2018/8/29 18:41:00
--  

1、4楼的代码，是照抄3楼代码的。如果3楼代码正常，4楼代码绝对没问题。

 

2、贴出你执行的代码，输入的值是什么？运行后输出的值是什么？正常输出的值应该是什么？
--  作者：haipo
--  发布时间：2018/8/29 18:52:00
--  
3楼代码是在网上发的提问。 代码网址http://www.it1352.com/72692.html，我现在和他遇到了相同的问题。
foxtable只返回了403禁止提示，正确值我这边也不知道
[此贴子已经被作者于2018/8/29 19:11:16编辑过]
--  作者：有点甜
--  发布时间：2018/8/29 21:18:00
--  
以下是引用haipo在2018/8/29 18:52:00的发言：
3楼代码是在网上发的提问。 代码网址http://www.it1352.com/72692.html，我现在和他遇到了相同的问题。
foxtable只返回了403禁止提示，正确值我这边也不知道
[此贴子已经被作者于2018/8/29 19:11:16编辑过]

 

1、帮助文档、开发文档，直接发出来看看。（完整的网址或者完整的文档文件）

 

2、如果没有正确的输入值和输出值，别人无从测试。

 

3、你调用的接口，别人没有给你实例？
--  作者：haipo
--  发布时间：2018/8/29 22:22:00
--  
都是给的例子，例子里的信息也只是参考，在这里回复私钥，我...该怎么回复才能只有管理员看到？
--  作者：有点甜
--  发布时间：2018/8/29 22:25:00
--  
以下是引用haipo在2018/8/29 22:22:00的发言：
都是给的例子，例子里的信息也只是参考，在这里回复私钥，我...该怎么回复才能只有管理员看到？

 

1、在给的例子那里，直接运行代码，输入值，得到的值是什么？

 

2、把代码改写到foxtable，输入值，输出得到的值和1的不同？

 

3、请直接把帮助文档发出来看吧。