以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求一个简单的加密函数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139563)
--  作者：mositu
--  发布时间：2019/8/15 17:04:00
--  [求助]求一个简单的加密函数
要求：
1、支持加密中文；
2、加密后为固定位数，但要求不相同的字符串不可能出现相同的加密结果；
3、加密后为纯字母串或者是字母与数字混合，即不要混合特殊字符；
4、可以为不可逆。
越简单越好，先谢谢了
--  作者：有点蓝
--  发布时间：2019/8/15 17:10:00
--  
参考：http://www.foxtable.com/webhelp/topics/0350.htm

如果要去掉特殊字符，把加密结果转换为base64编码即可

Dim Val1 As String = "龙的传人"
Dim Val2 As String = EncryptText(Val1,"a23","op#")
Dim b() As Byte = System.Text.Encoding.Default.GetBytes(Val2)
Dim v3 As String = Convert.ToBase64String(b)
Output.Show(v3)
--  作者：mositu
--  发布时间：2019/8/15 17:20:00
--  
谢谢