以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何去除这个注册程序的BUG?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132236)
--  作者：旭日生
--  发布时间：2019/3/17 22:19:00
--  如何去除这个注册程序的BUG?

这儿 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95605有个软件注册程序，但在试用过程中，发现一个BUG：即超过试用次数后，提示注册时，直接“X"掉即可绕过注册程序。请问版主如何解决这个问题？

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:软件注册.foxdb


图片点击可在新窗口打开查看此主题相关图片如下：image 515.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/3/17 22:19:00编辑过]
--  作者：旭日生
--  发布时间：2019/3/17 23:27:00
--  
Foxtable帮助文件中的“另一种软件加密方式”也存在这样的注册漏洞。请版主给出解决思路或方案。
--  作者：有点甜
--  发布时间：2019/3/18 9:16:00
--  

不要乱改帮助文档的代码啊

 

    ElseIf n > 5 AndAlso Ok = False Then
        Dim Result As DialogResult
        Result = MessageBox.Show("您使用的软件已经超过使用次数,需要注册才能使用,是否注册?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Forms("注册").Open()
            Code = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyAPP","Register" & HardDiskID,"")
            If Code > "" AndAlso DecryptText(Code,"acbd","cad") = HardDiskID Then \'如果注册码正确
                OK = True
            End If
        End If
        If ok = False Then
            Syscmd.Project.Exit()
        End If
--  作者：旭日生
--  发布时间：2019/3/18 20:04:00
--  
完美解决！非常感谢！