以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于加密解密  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72608)

--  作者:cyl123
--  发布时间:2015/8/2 22:13:00
--  关于加密解密
关于加密解密,如图。如果修改了解密密码,但长度保持一样,就会出现错误。有解决办法吗?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150802221146.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2015/8/2 22:45:00
--  
字符串应该是
"228HqJrxgDHJQFHwqhK3Mg=="
=1在这里当做无效字符了

--  作者:cyl123
--  发布时间:2015/8/2 23:04:00
--  
故意改错的。我要问的问题是:错误解密密码跟正确的密码长度一样时,能否做判断提示密码不正确?而不是出现错误。
[此贴子已经被作者于2015/8/2 23:06:42编辑过]

--  作者:有点蓝
--  发布时间:2015/8/2 23:17:00
--  
要弄清为什么,就要弄清算法是怎么写的。用外部程序的加密方式,在这里是解密不了的,只能用foxtable提供的加密方式
--  作者:大红袍
--  发布时间:2015/8/3 10:03:00
--  
Dim Val1 As String = "龙的传人"
Dim Val2 As String = EncryptText(Val1,"a23","op#") \'加密
try
    Dim Val3 As String = DecryptText("228HqJrxgDHJQFHwqhK3Mg=1","a23","op#") \'解密,两个密钥必须和加密的时候相同
    Output.Show("加密后:" & val2)
    Output.Show("解密后:" & val3)
catch ex As exception
    msgbox("解密出错")
End try