软件加密示例

下面是一个简单实用的软件加密示例。

1、在BeforeOpenProject事件中设置下面的代码：

If UKey.Start() Then
    If UKey.Encrypt2("abc") <> "483DBF9FDD0574C0" Then
        MessageBox.Show("请插上XX公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
    End If
Else
    MessageBox.Show("启动UKey失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
End If

上面的代码采用用户加密函数Encrypt2判断用户已经插上你公司提供的UKey，如果不是，则拒绝打开项目。

2、增加一个计划，执行间隔为10000毫秒，也就是10秒，计划代码为：

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

上面的代码，每10秒钟执行一次，采用固化加密函数Encrypt1判断你提供的UKey是否依然插在计算机上，如果没有，则保存项目后退出。