以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]搜了下论坛，有人研究过AES加密，能把dll发来借用下么？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128465)
--  作者：浙江仔
--  发布时间：2018/12/7 15:47:00
--  [求助]搜了下论坛，有人研究过AES加密，能把dll发来借用下么？
如题，想用aes加密，找dll
--  作者：有点甜
--  发布时间：2018/12/7 16:24:00
--  

这个不需要dll吧？

 

https://www.baidu.com/baidu?wd=c%23+aes%E5%8A%A0%E5%AF%86%E8%A7%A3%E5%AF%86

 

http://converter.telerik.com/

 
--  作者：浙江仔
--  发布时间：2018/12/7 19:27:00
--  
成了，不过和别人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
--  作者：有点蓝
--  发布时间：2018/12/7 20:43:00
--  
2边算法要一致。java加密什么字符串？key是多少？结果是什么？
--  作者：浙江仔
--  发布时间：2018/12/8 8:52:00
--  
字符串：peng,8064090
key:46EBA22EF5204DD5B110A1F730513965
密码：P3XNKG86T9HySfac2YCCyQ==
java密码：ulAxHbefYOuLaM4RlBZBXw==
--  作者：有点蓝
--  发布时间：2018/12/8 11:09:00
--  
java的算法代码有没有，贴出来看看