- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 解密时候发生这个问题 ？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91367)
-- 发布时间：2016/10/9 11:25:00
-- 解密时候发生这个问题 ？
解密时候发生这个问题 ？ 代码如下
Dim dt2 As Date
x1=e.Form.Controls("TextBox2").Value
If (DecryptText(x1,"天思网络","www.tswl.com")) Is Nothing
msgbox("df")
End If
If Date.TryParse(DecryptText(x1,"天思思网络","www.tswl.com"),dt2) Then \'如果转换成功
MessageBox.Show("你所输入的注册码格式正确", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
Else
MessageBox.Show("你所输入的注册码格式不正确 ,请输入正确的注册码格式", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
e.Form.Controls("TextBox2").Select
End If
DataTables("用户单位").Save
e.Form.close()
此主题相关图片如下：qq截图20170511112031.jpg
-- 发布时间：2016/10/9 12:08:00
--
要解密的内容是什么？
完整代码贴出来
-- 发布时间：2016/10/9 12:31:00
--
x1 就是输入的内容
-- 发布时间：2016/10/9 13:07:00
--
Dim xx As String
xx=DecryptText("fgfF","天思网络","www.tswl.com")
msgbox(xx)
结果出错
-- 发布时间：2016/10/9 14:26:00
--
"fgfF"是通过什么加密出来的？随便输入的，就用try包一下