子软件授权项目中新增了计划代码:
If UKey.Encrypt1("abc") <> "E5FC1B19625C5C4A" Then
MessageBox.Show("请插上XX公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
DataTables.Save()
Syscmd.Project.Exit
End If
这窜代码“E5FC1B19625C5C4A”是用户加密密钥吗?
下面的代码是加在UKey软件授权项目属性里面:
If UKey.Start() Then
If UKey.Encrypt2("abc") <> "483DBF9FDD0574C0" Then
MessageBox.Show("请插上XX公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
Dim khs As String = UKey.ReadStr(0,50) '从存储器读取0到49这50个字节的内容,也就是授权客户名称
Dim rqs As String = UKey.ReadStr(50,10) '从存储器读取50到59这10个字节的内容,也就是截止日期
Dim css As String = UKey.ReadStr(60,5) '从存储器读取60到64这5个字节的内容,也就是允许启动次数
Dim yqs As String = UKey.ReadStr(65,5) '从存储器读取65到69这5个字节的内容,也就是已经启动次数
Dim rq As Date
Dim cs As Integer
Dim qs As Integer
'从存储器读取出来值的是字符,所以还需要转换一下,因为截止日期是Date型,次数是Integer型
Date.TryParse(rqs,rq)
Integer.TryParse(css,cs)
Integer.TryParse(yqs,qs)
qs = qs + 1 '已经启动次数加1
UKey.WriteStr(65,qs,"46DFA0D7","C292C1DB") '将已经启动次数写入存储器
If qs > cs '如果已经启动次数大于允许启动次数
MessageBox.Show("你的UKey已经超过允许启动次数!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
ElseIf Date.Today > rq '如果今天的日期大于截止日期
MessageBox.Show("你的UKey已经过期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
If e.Cancel = False Then
MessageBox.Show("尊敬的用户" & khs.Trim() & ",欢迎使用本软件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
Else
MessageBox.Show("启动UKey失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
这窜代码"483DBF9FDD0574C0"是用户加密密钥吗?
这两段代码:"46DFA0D7","C292C1DB"是存储器写密码吗?
后面真正在软件授权的时候是不是只要改这几个代码就可以完成授权哦?
[此贴子已经被作者于2019/7/13 16:11:06编辑过]