狐表的加密锁加密软件的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我们购买的狐表的加密锁加密公司的软件，希望能够实现加密锁到一定的使用时间和一定的使用次数，软件就不能使用了，请问怎么实现？

当前我们使用的QQServer做服务器端，QQClient做用户端。

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

可以往ukey里写入使用次数，每次启动+1，类似：http://www.foxtable.com/webhelp/topics/1545.htm

不知道我理解的对不对？1、第一个链接是软加密（我这边有这种加密的，做了一个通过机器码计算注册码的程序）；2、第二个链接是关于向Ukey读写数据的（没有关于读取数据次数或者使用时间的设置）。

向Ukey读写数据不是就是读取数据次数吗？把次数或者日期作为一个字符串写入Ukey，验证的时候读出来，次数+1再写入Ukey

请问下面的代码，客户名称50个字符，指的是50个汉字还是25个汉字？启动次数设置为最多5位后，加密窗口如果想加密2次，没法输入空格。

kh = kh.PadRight(50," ").SubString(0,50) '客户名称最多50个字符,不够50用空格补
cs = cs.PadRight(5," ").Substring(0,5) '启动次数最多允许5位数,不够的用空格补

这是完整的加密窗口代码，请帮忙看一下，是哪里的问题？

Dim kh As String = e.Form.Controls("ComboBox1").Text

Dim rq As String = Format(e.Form.Controls("DateTimePicker1").Value,"yyyy-MM-dd")

Dim cs As String = e.Form.Controls("NumericComboBox1").Value

Dim qd As String = " " '5个半角空格,用于初始化保存实际启动次数的存储器空间.

Dim pw1 As String = "46DFA0D7"

Dim pw2 As String = "C292C1DB"

kh = kh.PadRight(8," ").SubString(0,8) '客户名称最多8个字符,不够8个用空格补

cs = cs.PadRight(5," ").Substring(0,5) '启动次数最多允许5位数,不够的用空格补

If UKey.Start() Then

If UKey.WriteStr(0,kh,pw1,pw2) AndAlso UKey.WriteStr(8,rq,pw1,pw2) AndAlso UKey.WriteStr(60,cs,pw1,pw2) AndAlso UKey.WriteStr(65,qd,pw1,pw2)'往两段空间里面写加密内容,启动次数最多5位数,不够位数的输入空格'

Messagebox.Show("授权成功!","提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Messagebox.Show("写入授权信息失败!","提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

Else

Messagebox.Show("请插上UKey!","提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

用户名我用的是：授权10次

加密次数：11111

仍然提示加密失败

主题：狐表的加密锁加密软件的问题