Foxtable(狐表)用户栏目专家坐堂 → 奇怪的报错


  共有2401人关注过本帖树形打印复制链接

主题:奇怪的报错

帅哥哟,离线,有人找我吗?
rjh4078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3360 积分:24792 威望:0 精华:0 注册:2012/3/26 21:47:00
奇怪的报错  发帖心情 Post By:2018/9/22 20:18:00 [只看该作者]

Dim fll As String=ProjectPath & "images\license.txt"
If FileSys.FileExists(fll) = False Then
    MessageBox.show("无法获取授权文件!版本校验失败!","授权错误")
Else
    Dim s As String = FileSys.ReadAllText(fll,Encoding.Default)
    Dim str As String=DecryptText(s,"top","secret")
MessageBox.show("s:" & s & "str:" & str)
。。。。。。
end if

s值能获取 但是 str确是空值  导致后面代码出错

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/22 22:40:00 [只看该作者]

解密出错,可能原因:
1、文件存储的加密内容出现了多余的空格或者换行等看不见的符号
2、加密的内容保存到文本文件出错,内容不完整
3、密钥不正确

 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3360 积分:24792 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2018/9/23 0:06:00 [只看该作者]

1.我已经试着把txt文件的空白全部删掉了
2.我弹出s和文本文件中的内容一致
3.密钥问题已经排除

我现在的临时解决办法是把密钥存到了数据库中,但是这又不能在BeforeOpenProject对软件授权进行验证从而控制项目启动。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/23 14:07:00 [只看该作者]

1、你有没有屏蔽了所有的错误?正常情况,如果报错,会弹出错误对话框的

 

http://www.foxtable.com/webhelp/scr/2655.htm

 

 

2、如果你没有屏蔽错误,那你应该是在全局代码改写了 DecryptText 方法

 


 回到顶部