以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么给字符串加密  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126161)

--  作者:淡月斜阳
--  发布时间:2018/10/15 23:34:00
--  怎么给字符串加密
怎么给字符串加密
用md5加密的后的字符串有==号和特殊符号
我想生成只有英文字母或数字的字符串
例如12345,加密成a12b这样的,不能有特殊符号
用哪种加密算法比较好

--  作者:淡月斜阳
--  发布时间:2018/10/15 23:35:00
--  
最好是可以直接调用的,这样加密会快一些,自已设计算法 计算 慢
--  作者:有点甜
--  发布时间:2018/10/16 8:09:00
--  

参考

 

dim s = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile("12345", "MD5").ToUpper()
msgbox(s)


--  作者:淡月斜阳
--  发布时间:2018/10/16 8:55:00
--  
这是32位的,16位怎么弄
32位的太长了

--  作者:淡月斜阳
--  发布时间:2018/10/16 8:58:00
--  
看了一下,好像是直接substring(8,16),给截了
--  作者:有点蓝
--  发布时间:2018/10/16 9:44:00
--  
Dim md5 As new System.Security.Cryptography.MD5CryptoServiceProvider()

Dim t2 As String = BitConverter.ToString(md5.ComputeHash(UTF8Encoding.Default.GetBytes("123456")),4, 8)

Output.Show(t2.Replace("-", ""))