vb.net 中的 Docusign JWT 访问令牌请求

Question

我想获取用于 Docusing 的 JWT 访问令牌，我尝试使用以下代码获取访问令牌，之后我传递访问令牌以创建信封，但出现错误

“调用 CreateEnvelope 时出错：{ "errorCode": "AUTHORIZATION_INVALID_TOKEN", "message": "提供的访问令牌已过期、撤销或格式错误。" }"

Dim PrivateKey As String = "MIIEowIBAAKCAQEAjtTe7UUP/CBI9s...BLABLABLA...JfwZ2hHqFPXA9ecbhc0".Replace(vbLf, "").Replace(vbCr, "")
Dim ar1 As JObject = New JObject()
ar1.Add("typ", "JWT")
ar1.Add("alg", "RS256")
Dim header As String = Base64UrlEncoder.Encode(ar1.ToString)
Dim ar2 As JObject = New JObject()
ar2.Add("iss", "INTEGRATION_ID")
ar2.Add("sub", "GUID_VERSION_OF_USER_ID")
ar2.Add("iat", DateDiff(DateInterval.Second, New Date(1970, 1, 1), Now().ToUniversalTime))
ar2.Add("exp", DateDiff(DateInterval.Second, New Date(1970, 1, 1), DateAdd(DateInterval.Hour, 1,Now().ToUniversalTime)))
ar2.Add("aud", "account-d.docusign.com")
ar2.Add("scope", "signature")
Dim body As String = Base64UrlEncoder.Encode(ar2.ToString)
Dim stringToSign As String = header & "." & body
Dim bytesToSign() As Byte = Encoding.UTF8.GetBytes(stringToSign)
Dim keyBytes() As Byte = Convert.FromBase64String(PrivateKey)
Dim privKeyObj = Asn1Object.FromByteArray(keyBytes)
Dim privStruct = RsaPrivateKeyStructure.GetInstance(privKeyObj)
Dim sig As ISigner = SignerUtilities.GetSigner("SHA256withRSA")
sig.Init(True, New RsaKeyParameters(True, privStruct.Modulus, privStruct.PrivateExponent))
sig.BlockUpdate(bytesToSign, 0, bytesToSign.Length)
Dim signature() As Byte = sig.GenerateSignature()
Dim sign As String = Base64UrlEncoder.Encode(signature)
Return header & "." & body & "." & sign

我从这个 link 中获取上面的代码，在那个用户提到的工作代码中，请告诉我我犯了什么错误，注意：我正在获取访问令牌并立即传递该令牌以创建信封。 “iss”是我的集成密钥，“sub”是我的用户 ID，私钥是从我的应用程序的 RSA 密钥对形式生成的，它是在应用程序和集成密钥中创建的

我正在使用支持 .net framework 4.6.1 的 docusing 3.0.0 dll

此致，亚拉文

Answer 1

如果您使用的是 DocuSign dll（3.0.0 版本很旧，顺便说一句，我建议您升级），则不需要所有这些代码。相反，您可以这样做：（请注意，我假设您有一个包含信息的配置文件，您需要更新此代码以包含 ClientId/IK、UserId、AuthServer 和 RSA 密钥位置）。

Public Sub UpdateUserFromJWT()
    Me._authToken = _apiClient.RequestJWTUserToken(Me._configuration("DocuSignJWT:ClientId"), Me._configuration("DocuSignJWT:ImpersonatedUserId"), Me._configuration("DocuSignJWT:AuthServer"), DSHelper.ReadFileContent(DSHelper.PrepareFullPrivateKeyFilePath(Me._configuration("DocuSignJWT:PrivateKeyFile"))), 1)
    _account = GetAccountInfo(_authToken)
    Me.User = New User With {
        .Name = _account.AccountName,
        .AccessToken = _authToken.access_token,
        .ExpireIn = DateTime.Now.AddSeconds(_authToken.expires_in.Value),
        .AccountId = _account.AccountId
    }
    Me.Session = New Session With {
        .AccountId = _account.AccountId,
        .AccountName = _account.AccountName,
        .BasePath = _account.BaseUri
    }
End Sub

vb.net 中的 Docusign JWT 访问令牌请求

Docusing JWT Access Token Request in vb.net

vb.net

docusignapi