以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何判断字符串是否加密  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83427)
--  作者：lihe60
--  发布时间：2016/4/8 16:11:00
--  如何判断字符串是否加密
如题
--  作者：大红袍
--  发布时间：2016/4/8 16:12:00
--  
 无法判断。
--  作者：大红袍
--  发布时间：2016/4/8 16:13:00
--  
具体你的问题，通过何种方式加密？
--  作者：lihe60
--  发布时间：2016/4/8 16:50:00
--  
EncryptText(Value, Key1, Key2)，这个函数加密的。
--  作者：大红袍
--  发布时间：2016/4/8 17:17:00
--  

进行反解密，如果得到的空白值，就不是加密的。

 

\'Dim Val1 As String = "龙的传人"
\'Dim Val2 As String = EncryptText(Val1,"a23","op#") \'加密
Dim Val3 As String = DecryptText("228HqJrxgDHJQFHwqhK3g==","a23","op#") \'解密,两个密钥必须和加密的时候相同
\'Output.Show("加密后:" & val2)
Output.Show("解密后:" & val3)