子软件授权项目中新增了计划代码：

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"是存储器写密码吗？

后面真正在软件授权的时候是不是只要改这几个代码就可以完成授权哦？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:ukey软件授权.zip