Foxtable(狐表)用户栏目专家坐堂 → CRCCheckString 函数问题


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

主题:CRCCheckString 函数问题

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


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
CRCCheckString 函数问题  发帖心情 Post By:2021/10/7 17:19:00 [只看该作者]

CRCCheckString

有没有这个函数的更详细点的用法。
求教。
[此贴子已经被作者于2021/10/7 17:20:46编辑过]

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


加好友 发短信
等级:超级版主 帖子:110594 积分:562866 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/7 17:25:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/1490.htm

不如举例说明要做什么

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


加好友 发短信
等级:四尾狐 帖子:998 积分:6656 威望:0 精华:0 注册:2014/10/20 11:06:00
  发帖心情 Post By:2021/10/7 17:26:00 [只看该作者]

就一个参数,用法也很简单

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


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
  发帖心情 Post By:2021/10/7 17:36:00 [只看该作者]

BeforeOpenProject

里有一段代码。

If UKey.Encrypt1("abc") <> "E5FC1B19625C5C4A" Then
    MessageBox.Show("请插上XX公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    DataTables.Save()
    Syscmd.Project.
Exit

End
If


其他事件中使用 CRCCheckString函数判断 上面的代码没有被串改过。


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


加好友 发短信
等级:超级版主 帖子:110594 积分:562866 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/7 20:04:00 [只看该作者]

首先,没有办法在其它事件获取BeforeOpenProject(或者任意事件)里使用了什么代码

其次要判断一个字符串有没有被改过,先要对这个字符串做CRCCheckString,然后把结果保存下来。下次判断的时候和这个结果对比

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


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
  发帖心情 Post By:2021/10/8 7:43:00 [只看该作者]

如何把代码变成字符串呢?

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


加好友 发短信
等级:超级版主 帖子:110594 积分:562866 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/8 8:26:00 [只看该作者]

Dim s As String = "If UKey.Encrypt1(""abc"") <> ""E5FC1B19625C5C4A"" Then"
s = s & vbcrlf & "    MessageBox.Show(""请插上XX公司提供的UKey!"",""提示"",MessageBoxButtons.OK,MessageBoxIcon.Information)"
msgbox(s)

 回到顶部