以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CRCCheckString 函数问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172302)
--  作者：夜点蚊香
--  发布时间：2021/10/7 17:19:00
--  CRCCheckString 函数问题

CRCCheckString

有没有这个函数的更详细点的用法。
求教。
[此贴子已经被作者于2021/10/7 17:20:46编辑过]
--  作者：有点蓝
--  发布时间：2021/10/7 17:25:00
--  
参考：http://www.foxtable.com/webhelp/topics/1490.htm

不如举例说明要做什么
--  作者：jialihaha
--  发布时间：2021/10/7 17:26:00
--  
就一个参数，用法也很简单
--  作者：夜点蚊香
--  发布时间：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函数判断 上面的代码没有被串改过。
--  作者：有点蓝
--  发布时间：2021/10/7 20:04:00
--  
首先，没有办法在其它事件获取BeforeOpenProject（或者任意事件）里使用了什么代码

其次要判断一个字符串有没有被改过，先要对这个字符串做CRCCheckString，然后把结果保存下来。下次判断的时候和这个结果对比
--  作者：夜点蚊香
--  发布时间：2021/10/8 7:43:00
--  
如何把代码变成字符串呢？
--  作者：有点蓝
--  发布时间：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)