如何为RequestToken生成Xero签名

Question

我正在尝试从VB.NET Windows桌面应用程序连接到Xero。

我正在使用request.Headers.Add("Authorization", authHeader)添加标题 并找回401未经授权的错误。

我正在生成自己的签名，随机数和时间戳。 我怀疑签名可能不正确。

我正在使用以下代码生成。谁能告诉我我要去哪里错了？

baseString = String.Format(baseFormat,
                           oauth_consumer_key,
                           oauth_nonce,
                           oauth_signature_method,
                           oauth_timestamp,
                           oauth_consumer_secret,
                           oauth_version,
                           Uri.EscapeDataString(status)
                          )
Dim compositeKey As String = String.Concat(Uri.EscapeDataString(oauth_consumer_secret),
                                           "&", Uri.EscapeDataString(oauth_token_secret))
Dim oauth_signature As String

Using hasher As HMACSHA1 = New HMACSHA1(ASCIIEncoding.ASCII.GetBytes(compositeKey))
    oauth_signature = Convert.ToBase64String(
    hasher.ComputeHash(ASCIIEncoding.ASCII.GetBytes(baseString)))
End Using