以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问有foxtable做3des加密解密的示例吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129662)
--  作者：bobatfoxtable
--  发布时间：2019/1/3 14:15:00
--  请问有foxtable做3des加密解密的示例吗
如题
--  作者：有点甜
--  发布时间：2019/1/3 14:54:00
--  

你需要这个？

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=42404&skin=0

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=42302&skin=0

 
--  作者：有点甜
--  发布时间：2019/1/3 14:56:00
--  

或者参考

 

https://www.baidu.com/baidu?wd=c%23+3des

 

http://converter.telerik.com/

 
--  作者：bobatfoxtable
--  发布时间：2019/1/3 16:15:00
--  
有点甜版主，最好是vb.net版的3des加密示例。谢谢
--  作者：有点甜
--  发布时间：2019/1/3 16:39:00
--  

类似参考

 

Dim aStrString = "中国ABCabc123"
Dim aStrKey = "rmWB4+r9Ug93WI0KAEuMig=="
Dim Mode = System.Security.Cryptography.CipherMode.ECB
Dim iv = "12345678"

Try
    Dim des = New System.Security.Cryptography.TripleDESCryptoServiceProvider
    des.Key = Encoding.UTF8.GetBytes(aStrKey)
    des.Mode = mode
   
    If mode = System.Security.Cryptography.CipherMode.ECB Then
        des.IV = Encoding.UTF8.GetBytes(iv)
    End If
   
    Dim desEncrypt = des.CreateEncryptor()
    Dim buffer As Byte() = Encoding.UTF8.GetBytes(aStrString)
    Return Convert.ToBase64String(desEncrypt.TransformFinalBlock(buffer, 0, buffer.Length))
Catch e As Exception
    msgbox(e.message)
    Return String.Empty
End Try

 

请好好查找帮助文档

 

https://www.baidu.com/baidu?wd=c%23+3des

 

http://converter.telerik.com/