再麻烦老师看一下这段代码放到狐表里要怎么改 ,老师请看一下是不是要引用这两个DLL文件
官方的文档这里有个坑，如果你直接用是会报错的
所以需要引用一个包
此主题相关图片如下：微信截图_20221212194212.png
Imports Org.BouncyCastle.Crypto.Engines
Imports Org.BouncyCastle.Crypto.Modes
Imports Org.BouncyCastle.Crypto.Parameters
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Namespace test1.WeiXinPay.Tools
Public Class AesGcmHelper
Private Shared ALGORITHM As String = "AES/GCM/NoPadding"
Private Shared TAG_LENGTH_BIT As Integer = 128
Private Shared NONCE_LENGTH_BYTE As Integer = 12
Private Shared AES_KEY As String = "12345678901234567890qwertyuiopas"
Public Shared Function AesGcmDecrypt(ByVal associatedData As String, ByVal nonce As String, ByVal ciphertext As String, ByVal APIV3Key As String) As String
Dim gcmBlockCipher As GcmBlockCipher = New GcmBlockCipher(New AesEngine())
Dim aeadParameters As AeadParameters = New AeadParameters(New KeyParameter(Encoding.UTF8.GetBytes(APIV3Key)), 128, Encoding.UTF8.GetBytes(nonce), Encoding.UTF8.GetBytes(associatedData))
gcmBlockCipher.Init(False, aeadParameters)
Dim data As Byte() = Convert.FromBase64String(ciphertext)
Dim plaintext As Byte() = New Byte(gcmBlockCipher.GetOutputSize(data.Length) - 1) {}
Dim length As Integer = gcmBlockCipher.ProcessBytes(data, 0, data.Length, plaintext, 0)
gcmBlockCipher.DoFinal(plaintext, length)
Return Encoding.UTF8.GetString(plaintext)
End Function
End Class
End Namespace
[此贴子已经被作者于2022/12/12 19:48:29编辑过]
加好友 
发短信
Post By：2022/12/12 14:44:00 [只看该作者]
