| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 狐表的加密锁加密软件的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169209) |
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/7 16:25:00 -- 狐表的加密锁加密软件的问题 我们购买的狐表的加密锁加密公司的软件，希望能够实现加密锁到一定的使用时间和一定的使用次数，软件就不能使用了，请问怎么实现？ |
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/7 16:29:00 -- 当前我们使用的QQServer做服务器端，QQClient做用户端。 |
| -- 作者：有点蓝 -- 发布时间：2021/6/7 16:31:00 -- 参考：http://www.foxtable.com/webhelp/topics/2666.htm 可以往ukey里写入使用次数，每次启动+1，类似：http://www.foxtable.com/webhelp/topics/1545.htm
|
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/7 16:37:00 -- 好的，谢谢 |
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/7 16:44:00 -- 不知道我理解的对不对？1、第一个链接是软加密（我这边有这种加密的，做了一个通过机器码计算注册码的程序）；2、第二个链接是关于向Ukey读写数据的（没有关于读取数据次数或者使用时间的设置）。 |
| -- 作者：有点蓝 -- 发布时间：2021/6/7 16:49:00 -- 向Ukey读写数据不是就是读取数据次数吗？把次数或者日期作为一个字符串写入Ukey，验证的时候读出来，次数+1再写入Ukey |
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/7 16:59:00 -- 明白了，谢谢 |
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/15 11:05:00 -- 请问下面的代码，客户名称50个字符，指的是50个汉字还是25个汉字？启动次数设置为最多5位后，加密窗口如果想加密2次，没法输入空格。 kh = kh.PadRight(50," ").SubString(0,50) \'客户名称最多50个字符,不够50用空格补cs = cs.PadRight(5," ").Substring(0,5) \'启动次数最多允许5位数,不够的用空格补 |
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/15 11:08:00 -- 这是完整的加密窗口代码，请帮忙看一下，是哪里的问题？ 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
|
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/15 11:09:00 -- 用户名我用的是：授权10次 加密次数：11111 仍然提示加密失败
|