[求助]搜了下论坛，有人研究过AES加密，能把dll发来借用下么？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

成了，不过和别人java系统生成的密码对不上图片点击可在新窗口打开查看

Public Function Encrypt(ByVal encryptStr As String, ByVal key As String) As String

Dim keyArray As Byte() = UTF8Encoding.UTF8.GetBytes(key)

Dim toEncryptArray As Byte() = UTF8Encoding.UTF8.GetBytes(encryptStr)

Dim rDel As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged()

rDel.Key = keyArray

rDel.Mode = System.Security.Cryptography.CipherMode.ECB

rDel.Padding = System.Security.Cryptography.PaddingMode.PKCS7

Dim cTransform As System.Security.Cryptography.ICryptoTransform = rDel.CreateEncryptor()

Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)

Return Convert.ToBase64String(resultArray, 0, resultArray.Length)

End Function

Public Function Decrypt(ByVal decryptStr As String, ByVal key As String) As String

Dim keyArray As Byte() = UTF8Encoding.UTF8.GetBytes(key)

Dim toEncryptArray As Byte() = Convert.FromBase64String(decryptStr)

Dim rDel As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged()

rDel.Key = keyArray

rDel.Mode = System.Security.Cryptography.CipherMode.ECB

rDel.Padding = System.Security.Cryptography.PaddingMode.PKCS7

Dim cTransform As System.Security.Cryptography.ICryptoTransform = rDel.CreateDecryptor()

Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)

Return UTF8Encoding.UTF8.GetString(resultArray)

End Function

主题：[求助]搜了下论坛，有人研究过AES加密，能把dll发来借用下么？