Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Public Class AKSNCaculater
Private Shared Function MD5(ByVal password As String) As String
Dim textBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(password)
Try
Dim cryptHandler As System.Security.Cryptography.MD5CryptoServiceProvider
cryptHandler = New System.Security.Cryptography.MD5CryptoServiceProvider()
Dim hash As Byte() = cryptHandler.ComputeHash(textBytes)
Dim ret As String = ""
For Each a As Byte In hash
ret += a.ToString("x")
Next
Return ret
Catch
Throw
End Try
End Function
Private Shared Function UrlEncode(ByVal str As String) As String
str = System.Web.HttpUtility.UrlEncode(str)
Dim buf As Byte() = Encoding.ASCII.GetBytes(str)
For i As Integer = 0 To buf.Length - 1
If buf(i) = "%"c Then
If buf(i + 1) >= "a"c Then buf(i + 1) -= 32
If buf(i + 2) >= "a"c Then buf(i + 2) -= 32
i += 2
End If
Next
Return Encoding.ASCII.GetString(buf)
End Function
Private Shared Function HttpBuildQuery(ByVal querystring_arrays As IDictionary(Of String, String)) As String
Dim sb As StringBuilder = New StringBuilder()
For Each item In querystring_arrays
sb.Append(UrlEncode(item.Key))
sb.Append("=")
sb.Append(UrlEncode(item.Value))
sb.Append("&")
Next
sb.Remove(sb.Length - 1, 1)
Return sb.ToString()
End Function
Public Shared Function CaculateAKSN(ByVal ak As String, ByVal sk As String, ByVal url As String, ByVal querystring_arrays As IDictionary(Of String, String)) As String
Dim queryString = HttpBuildQuery(querystring_arrays)
Dim str = UrlEncode(url & "?" & queryString & sk)
Return MD5(str)
End Function
End Class
转换过来了，是放全局代码还是？
哪里需要修改下
[此贴子已经被作者于2020/11/19 14:02:28编辑过]
加好友 
发短信
Post By：2020/11/17 16:44:00 [只看该作者]
