关于vb.net hamcsha256 加密求助

myperworld

最近在用vb.net摸索vsto，其中一段hamc256加密的功能，卡了好几天，先上能够通过服务器认证的结果，使用python写的：

1. message =  bytes("{"sap_params":{"para1":"20001593051","para2":"201"}}" + "\n1644455141"  ,'utf-8')
   
2. secret = "123456".encode('utf-8')
   
3. hash = base64.b64encode(hmac.new(secret, message, digestmod = sha256).digest()).decode('ascii')

复制代码

输出：
message =  b'{"sap_params":{"para1":"20001593051","para2":"201"}}\n1644455141'
hash = "wRt+XIZTxWUwVYEWRekkLcNVGUhW+iLsk/nZ5/blcLk="

但是在visual studio中使用vb.net同样的参数加密：

1. Dim message as String = "{""sap_params"":{""para1"":""20001593051"",""para2"":""201""}}\n1644455141"
   
2. ' 生成hash
   
3. Dim secret As String = "123456"
   
4. Dim myEncoder As New System.Text.UTF32Encoding
   
5. Dim Key() As Byte = myEncoder.GetBytes(secret)
   
6. Dim XML() As Byte = myEncoder.GetBytes(message)
   
7. Dim myHMACSHA256 As New System.Security.Cryptography.HMACSHA256(Key)
   
8. Dim HashCode As Byte() = myHMACSHA256.ComputeHash(XML)
   
9. hash = Convert.ToBase64String(HashCode)

复制代码

输出：
message = "{""sap_params"":{""para1"":""20001593051"",""para2"":""201""}}\n1644455141"
hash = "+PW4kw3IsB1v/iGQfG47AqNtbBdKpmZ0bf9JDmwg3gg="

两者hash结果不一样，是不时vb.net把两个"号转义为一个"，message中多了"的关系，但又怎么去除呢？不知道哪位老师解决过，忘赐教，不胜感谢。
如果实在解决不了，那么同一个vsto项目中，可以同时使用vb.net和python语言吗？

wodewan

wodewan

myperworld

非常感谢wodewan帮助，代码基本完成了，开发中还碰到一个坑，vb.net获取时间戳：

1. signature_created = DateDiff("s", "1970-01-01 00:00:00", Now)

复制代码

好像比北京时间晚，后来估计是不是8小时时差，改成：

1. signature_created = DateDiff("s", "1970-01-01 08:00:00", Now)

复制代码

就通过服务器验证了。
这段hash加密，我前后用过python，java。php，c#，都没有碰到那么坑的。最爽的还是php和python，对于数组或者json的处理非常灵活，不需要拼字符串。
再次感谢！