📄 wzjh47.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用DEPHI为应用软件建立注册机制</title>
</head>
<body>
<p align="center"><font size="5"><b>用DEPHI为应用软件建立注册机制</b></font></p>
<p> 如何保护自己的软件不被非授权盗用的问题，始终困扰着每一个程序员。当前世界上保护软件的方法有很多，主要是采用加密（如加软件狗）方式或软件注册方式。使用软件狗等加密方法，虽然其保护最有效，但对授权用户的正常使用有一定的影响，而且软件发放比较复杂，在实际运用中比较少被采用。而注册登记方式则是当前最流行、运用最广泛的方法，虽然有许多通用软件其注册码可以很容易地被发烧友们所解，但对于独立程序员为某特定应用设计的应用软件而言，采用注册机制显得最经济、最方便，而且在一定的范围内非常有效。笔者在实际工作中，广泛使用了软件注册方法，有效地维护了软件的权益。<br>
DEPHI软件的功能极为强大，深受程序员喜欢。用DEPHI开发的软件，可以很方便地加入注册机制。下面笔者就如何在DEPHI开发的软件中加入注册机制与朋友们交流心得。<br>
要实现软件注册机制，需解决以下几个问题：1、如何加入注册检测，判断软件是否注册；2、如何隐藏注册码，及是否注册的标志；3、在软件不注册情况下，如何限制软件的使用时间或次数；4、对正常用户而言，不应造成使用不便。对于以上四个问题，如何隐藏注册码及是否注册的标志是关键。在WINDOWS95中，WIN95本身及大多数的应用软件都将其各种参数放入注册表中，因而注册表内的数据显得极为庞大和复杂。如果将注册标志隐藏在注册表的某一角落中，想要找到它并理解它是极其困难的事。因此我们可以利用这一点，在注册表的某个分支上设置一个从名称上看毫无特殊意义的关键字，将自己软件的注册标志数据存放在这里。整个注册机制主要由两个部分组成：检查和注册。通过检查标志值，得出软件是否已注册；若没有注册，则要看它允许使用的次数是否已达到；若可使用的次数已用完，则应提示用户输入注册码，进行注册；只有用户输入的注册码正确时，才让用户继续使用软件，同时将标志置为已注册，让用户永久性使用；否则允许使用的次数未达到，应将次数加一；若用户注册输入的注册码错误或拒绝注册，则直接关闭软件，拒绝其继续使用。当然，在软件允许使用次数未达到时，也应通过菜单项为用户提供机会进行注册登记。以下是笔者在实际开发中，建立注册机制的程序代码及注释。
</p>
<p align="justify">假设软件的主程序窗口为FORM1，则将该段代码置放在FORM1.CREATE事件中。代码如下：</p>
<p align="justify">procedure TForm1.form1create(Sender: TObject);<br>
var<br>
re_id:integer;<br>
registerTemp : TRegistry;<br>
inputstr,get_id:string;<br>
dy,clickedok:boolean;<br>
begin<br>
dy:=false; //软件是否已到注册期、及是否允许继续使用的标志，当值为FALSE是为允许使用。<br>
registerTemp := TRegistry.Create; //准备使用注册表<br>
with registerTemp do<br>
begin<br>
RootKey:=HKEY_LOCAL_MACHINE; //存放在此根下<br>
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Mark',True) then<br>
//
建一目录，存放标志值。当然也可以存放在已存在的目录下。怎么样，很难发现吧？<br>
begin<br>
if valueexists('gc_id') then begin //用gc_id的值作为标志，首先判断其存在否？<br>
re_id:=readinteger('gc_id');//读出标志值<br>
if (re_id<>0) and (re_id<>100) then begin //若标志值为0，则说明已注册。<br>
//若不为0且值不到100,说明虽未注册，但允许使用的次数尚未达到。<br>
re_id:=re_id+5; //允许标志的最大值为100，每次加5，则最多只可用20次。<br>
Writeinteger('gc_id',re_id);//将更新后的标志值写入注册表中。<br>
end;<br>
if re_id=100 then dy:=true; //假如值已到100，则应注册。<br>
end<br>
else Writeinteger('gc_id',5);//建立标志，并置初始标志值。<br>
end;<br>
if dy then begin //若dy值为TRUE，则应提示用户输入注册码，进行注册。<br>
clickedok:=InputQuery('您使用的是非注册软件,请输入注册码：','
',inputstr);<br>
if clickedok then begin<br>
get_id:=inttostr(27593758*2);//注册码为55187516，当然可加入更杂的算法。<br>
if get_id=inputstr then begin<br>
Writeinteger('gc_id',0);//若输入的注册码正确，则将标志值置为0,即已注册。<br>
CloseKey;<br>
Free;<br>
end<br>
else begin //若输入的注册码错误，应作出提示并拒绝让其继续使用<br>
application.messagebox('注册码错误!请与作者联系!','警告框',mb_ok);<br>
CloseKey;<br>
Free;<br>
application.terminate; //中止程序运行，拒绝让其继续使用<br>
end;<br>
end<br>
else begin //若用户不输入注册码，也应作出提示并拒绝让其继续使用<br>
application.messagebox('请与作者联系，使用注册软件!','警告框',mb_ok);<br>
CloseKey;<br>
Free;<br>
application.terminate;<br>
end;<br>
end;<br>
end;<br>
end;</p>
<p align="justify">（注：通过菜单进行注册的方法同本段提示用户进行注册的内容雷同，这里不提供代码。）</p>
<p> 以上程序代码已在DEPHI3.0/WIN95环境中运行通过，并在实际运用中得到验证。对合法用户而言，这样的机制，只要其录入注册码一次就可以，不增加其日常使用的负担；而对非法用户而言，除非他得到注册码或重装WINDOWS95，否则超过使用次数后，将无法继续使用。当然在实际应用中还有许多地方可以进一步加强反破解能力，欢迎朋友们提出批评和指导。
</p>
<p align="right">(福建 杨健珊)</p>
</body>
</html>
<script LANUGAGE="JavaScript">
<!--
function getCookieVal (offset) {
var endstr = document.cookie.indexOf (";", offset);
if (endstr == -1)
endstr = document.cookie.length;
return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name) {
var arg = name + "=";
var alen = arg.length;
var clen = document.cookie.length;
var i = 0;
while (i < clen) {
var j = i + alen;
if (document.cookie.substring(i, j) == arg)
return getCookieVal (j);
i = document.cookie.indexOf(" ", i) + 1;
if (i == 0) break;
}
return null;
}
function SetCookie (name, value) {
var argv = SetCookie.arguments;
var argc = SetCookie.arguments.length;
var expires = (argc > 2) ? argv[2] : null;
var path = (argc > 3) ? argv[3] : null;
var domain = (argc > 4) ? argv[4] : null;
var secure = (argc > 5) ? argv[5] : false;
document.cookie = name + "=" + escape (value) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}
if (GetCookie("MMC_PoiLove") != "ifght94567") {
window.open("http://www.21pop.com/pop.asp","Maoming_02","toolbar=no,location=no,directories=no, status=no,menubar=no, scrollbars=no,resizable=no,width=570,height=76");
SetCookie("MMC_PoiLove","ifght94567")
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -