Foxtable(狐表)用户栏目专家坐堂 → [求助]这窜代码“E5FC1B19625C5C4A”是用户加密密钥吗?


  共有2579人关注过本帖树形打印复制链接

主题:[求助]这窜代码“E5FC1B19625C5C4A”是用户加密密钥吗?

帅哥哟,离线,有人找我吗?
chendaiguo
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:675 威望:0 精华:0 注册:2019/6/19 4:17:00
[求助]这窜代码“E5FC1B19625C5C4A”是用户加密密钥吗?  发帖心情 Post By:2019/7/13 16:04:00 [只看该作者]

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

 

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

[此贴子已经被作者于2019/7/13 16:11:06编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/13 16:25:00 [只看该作者]

是根据密钥得出的加密结果
图片点击可在新窗口打开查看

 回到顶部