vb.net - YoBit Tapi身份验证问题

我正在尝试为自己和当我尝试致电时编写简单的应用程序
getInfo方法我总是在响应中出错。 key ，符号，方法或随机数不正确。我找到了许多示例，但我仍然找不到我的代码中的错误。有人可以帮我吗？

对于hitbtc，代码可以正常工作。我知道yobit有点不同，但我想我已经同意了。

我的代码:

Protected Shared Function readStrings(signatureheader As String, host As String, pathandQuery As String, post As String, secret As String, hasher As System.Security.Cryptography.HMAC, otherHeaders As Tuple(Of String, String)()) As String
    'apikey=98998BEEB8796455044F02E4864984F4
    'secret=44b7659167ffc38bb34fa35b5c816cf5
    hasher.Key = exchanges.getBytes(secret)
    Dim url = host + pathandQuery ' url = "https://yobit.net/tapi/"
    Dim wc = New CookieAwareWebClient()
    Dim sigHash2 = ""

    If post = "" Then
        sigHash2 = CalculateSignature2(pathandQuery, hasher)
    Else
        'post = "method=getInfo&nonce=636431012620"
        sigHash2 = CalculateSignature2(post, hasher) 'sighash2= "ece0a3c4af0c68dedb1f840d0aef0fd5fb9fc5e808105c4e6590aa39f4643679af5da52b97d595cd2277642eb27b8a357793082007abe1a3bab8de8df24f80d2"
    End If

    wc.Headers.Add(signatureheader, sigHash2) ' SignatureHeader ="Sign"

    Dim response = ""

    For Each oh In otherHeaders ' otherHeaders =(0) {(Key, 98998BEEB8796455044F02E4864984F4)}   System.Tuple(Of String, String)
        wc.Headers.Add(oh.Item1, oh.Item2)
    Next

    '-      wc.Headers  {Sign: ece0a3c4af0c68dedb1f840d0aef0fd5fb9fc5e808105c4e6590aa39f4643679af5da52b97d595cd2277642eb27b8a357793082007abe1a3bab8de8df24f80d2  Key: 98998BEEB8796455044F02E4864984F4    } System.Net.WebHeaderCollection
    'url =  "https://yobit.net/tapi/"
    'post = "method=getInfo&nonce=636431012620"

    If post = "" Then
        response = wc.DownloadString(url)
    Else
        response = wc.UploadString(url, post) 'response =       response    "{"success":0,"error":"invalid key, sign, method or nonce"}"    String

    End If


    Return response
End Function

该代码已成功测试hitbtc。

因此，加密部分是正确的。我还是把它放在这里是为了完整性

Protected Shared Function CalculateSignature2(text As String, hasher As System.Security.Cryptography.HMAC) As String
    Dim siginhash = hasher.ComputeHash(exchanges.getBytes(text))
    Dim sighash = exchanges.getString(siginhash)
    Return sighash
End Function

所以，

进行健全性检查

此代码有效

Public Overrides Sub readbalances()
    Dim response = readStrings("X-Signature", "https://api.hitbtc.com", "/api/1/trading/balance?nonce=" + exchanges.getNonce().ToString + "&apikey=" + _apiKey, "", _secret, New System.Security.Cryptography.HMACSHA512(), {})


End Sub

与yobit相比，情况有所不同。我必须使用post而不是get。我必须添加更多标题。但是，我想我已经解决了。

它不起作用。

yobit API的python函数是这个，我只需要将其转换为vb.net即可，我认为我已经如实完成

API Call Authentication in Python ( Working PHP example )

我认为错误就在这里

request_url = "https://yobit.net/tapi";
request_body = "method=TradeHistory&pair=ltc_btc&nonce=123";
signature = hmac_sha512(request_body,yobit_secret);
http_headers = {
    "Content-Type":"application/x-www-form-urlencoded",
    "Key":yobit_public_key,
    "Sign":signature
}

response = http_post_request(request_url,request_body,http_headers);
result = json_decode(response.text);

我复制的内容是method = getInfo＆nonce = 636431012620，这就是我发布的内容。

因此，这似乎是正确的。

最佳答案

看起来很有效。

我只需要更改随机数，使其在0到2 ^ 31之间

所以这是错误

 post = "method=getInfo&nonce=636431012620

随机数不应该那么大。最多应该是

2147483646

另外，尽管没有记录，但我必须添加

内容类型作为标题之一。这是最终的解决方案

   Dim nonce = exchanges.getNonce().ToString
    Dim content = hashObject("", nonce, "method=getInfo&nonce=")
    Dim sighash = computeSig(content)
    Dim result = CookieAwareWebClient.downloadString1("https://yobit.net/tapi/", content, {New Tuple(Of String, String)("Key", _apiKey), New Tuple(Of String, String)("Sign", sighash), New Tuple(Of String, String)("Content-Type", "application/x-www-form-urlencoded")})

所以我添加了New Tuple(Of String, String)("Content-Type", "application/x-www-form-urlencoded")作为标题之一

Protected Overridable Function computeSig(content As String) As String
    Dim hasher = New System.Security.Cryptography.HMACSHA512(System.Text.Encoding.UTF8.GetBytes(_secret))
    Return CalculateSignature2(content, hasher)
End Function

Public Shared Function CalculateSignature2(content As String, hasher As System.Security.Cryptography.HMAC) As String
    Dim siginhash = hasher.ComputeHash(System.Text.Encoding.UTF8.GetBytes(content))
    Dim sighash = exchanges.getString(siginhash) 'convert bytes to string
    Return sighash
End Function

Public Shared Function downloadString1(url As String, post As String, otherHeaders As Tuple(Of String, String)()) As String
    Dim wc = New CookieAwareWebClient()
    For Each oh In otherHeaders
        wc.Headers.Add(oh.Item1, oh.Item2)
    Next

    Dim response = String.Empty

    Try
        If post = "" Then
            response = wc.DownloadString(url)
        Else
            response = wc.UploadString(url, post)
        End If
    Catch ex As Exception
        Dim a = 1
    End Try

    Return response
End Function