VBA：如何基于VBA中的私钥生成RS256签名？

Question

我试图在VBA中生成JSON Web令牌（JWT）。我需要用RS256签名。到目前为止，我成功地创建了base64编码的报头和有效负载。他们两人都工作得很好。

现在我被困在用RS256签署JWT报头有效载荷上了。我找不到默认的VBA类或函数，它提供RSA-SHA256使用私钥进行加密。在官方的微软留档中，我只找到了使用公钥加密的方法：https://docs.microsoft.com/en-us/dotnet/api/system.security.cryptography.rsa?view=netcore-3.1.此外，我甚至不确定组件是否是COM可见的。

我在Stackoverflow中的搜索结果也需要公钥而不是私钥进行加密，或者尚未解决：

如何通过VBA生成RSA-SHA1和私钥签名？使用Microsoft Excel进行RSA加密

我知道，我可能会使用为RSA提供私钥的扩展，甚至是JWT生成的完整实现。然而，由于安全问题和货币方面的原因，我不能或不想使用这种扩展。这意味着，我想解决默认VBA和可访问的Microsoft Framework组件的问题。

' Generate RSA keypair (later, private key must be imported from PEM-File)
Set csp = CreateObject("System.Security.Cryptography.RSACryptoServiceProvider")
privateKey = csp.ExportParameters(True)
publicKey = csp.ExportParameters(False)

' Create test-string for signing
Dim dataString As String
dataString = "Data"

' Convert test-string to bytes
Dim dataByte() As Byte
dataByte = StrConv(dataString, vbFromUnicode)

' Create instance of SHA256 (NOT WORKING!)
'   Run-time error '429':
'   ActiveX component can't create object
Set SHA256 = CreateObject("System.Security.Cryptography.SHA256CryptoServiceProvider")

' Create instance of RSA algorithm
Set RSAalg = CreateObject("System.Security.Cryptography.RSACryptoServiceProvider")
' Load private key
RSAalg.ImportParameters (privateKey)

' Sign data (propably not working - tried with SHA1)
'   Run-time error '5':
'   Invalid procedure call or argument
Dim signedData() As Byte
signedData = RSAalg.signData(dataByte(), SHA256)

Debug.Print StrConv(signedData, vbUnicode)

谁能提供一个解决方案或给我指出一个可能的方向？

Answer 1

signdata（）是一个错误，您需要使用signhash（）

encryt与rsa sha256 sha1 md5 vbscript vba经典asp

https://github.com/ekede/WTS-Classic-ASP-MVC-Framework/blob/master/inc/class/crypt/rsa.asp