那个太复杂了，我找了下，这样解决了
Dim sessionKey As String = "tiihtNczf5v6AKRyjwEUhQ==", iv As String = "r7BXXKkLb8qrSNn05n0qiA=="
Dim encryptedData As String = "CiyLU1Aw2KjvrjMdj8YKliAjtP4gsMZMQmRzooG2xrDcvSnxIMXFufNstNGTyaGS9uT5geRa0W4oTOb1WT7fJlAC+oNPdbB+3hVbJSRgv+4lGOETKUQz6OYStslQ142dNCuabNPGBzlooOmB231qMM85d2/fV6ChevvXvQP8Hkue1poOFtnEtpyxVLW1zAo6/1Xx1COxFvrc2d7UL/lmHInNlxuacJXwu0fjpXfz/YqYzBIBzD6WUfTIF9GRHpOn/Hz7saL8xz+W//FRAUid1OksQaQx4CMs8LOddcQhULW4ucetDf96JcR3g0gfRK4PC7E/r7Z6xNrXd2UIeorGj5Ef7b1pJAYB6Y5anaHqZ9J6nKEBvB4DnNLIVWSgARns/8wR2SiRS7MNACwTyrGvt9ts8p12PKFdlqYTopNHR1Vf7XjfhQlVsAJdNiKdYmYVoKlaRv85IfVunYzO0IKXsyl7JCUjCpoG20f0a04COwfneQAGGwd5oa+T8yO5hzuyDb/XcxxmK01EpqOyuxINew=="
Dim RMged As New System.Security.Cryptography.RijndaelManaged
RMged.Mode = System.Security.Cryptography.CipherMode.CBC
RMged.Padding = System.Security.Cryptography.PaddingMode.PKCS7
RMged.Key = Convert.FromBase64String(sessionKey)
RMged.IV = Convert.FromBase64String(iv)
Dim bytes() As Byte = Convert.FromBase64String(encryptedData)
Dim cTransform As System.Security.Cryptography.ICryptoTransform = RMged.CreateDecryptor()
bytes = cTransform.TransformFinalBlock(bytes, 0, bytes.Length)
Output.Show(Encoding.Default.GetString(bytes))
加好友 
发短信
Post By：2021/12/18 14:15:00 [显示全部帖子]
