'加密---
'AES,ECB,PKCS7,返回Base64结果
'通过AesEncrypt(内容)使用
Public Function AesEncrypt(ByVal str As String) As String
If String.IsNullOrEmpty(str) Then
Return ""
Else
Dim key As String ="4hXnn8NUtss5OUTR" '与前端约定好的固定秘钥
Dim toEncryptArray As Byte() = Encoding.UTF8.GetBytes(str)
Dim rm = New System.Security.Cryptography.RijndaelManaged
rm.Key = Encoding.UTF8.GetBytes(key)
rm.Mode = System.Security.Cryptography.CipherMode.ECB
rm.Padding = System.Security.Cryptography.PaddingMode.PKCS7
Dim cTransform = rm.CreateEncryptor()
Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
Return Convert.ToBase64String(resultArray, 0, resultArray.Length)
End If
End Function
'加密---
'解密---
'通过AesDecrypt(内容)使用
Public Function AesDecrypt(ByVal str As String) As String
If String.IsNullOrEmpty(str) Then
Return ""
Else
Dim key As String ="4hXnn8NUtss5OUTR" '与前端约定好的固定秘钥
Dim toEncryptArray As Byte() = Convert.FromBase64String(str)
Dim rm = New System.Security.Cryptography.RijndaelManaged
rm.Key = Encoding.UTF8.GetBytes(key)
rm.Mode = System.Security.Cryptography.CipherMode.ECB
rm.Padding = System.Security.Cryptography.PaddingMode.PKCS7
Dim cTransform = rm.CreateDecryptor()
Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
Return Encoding.UTF8.GetString(resultArray)
End If
End Function
'解密---
加好友 
发短信
Post By：2021/11/21 21:53:00 [显示全部帖子]
