Delphi程序的时限和加密

Delphi程序的时限和加密

日期：2005年5月31日 作者：BUCK FORLAND 人气：<script src="../Hits.asp?ArticleID=564" type="text/javascript"> </script> 146 查看:[大字体 中字体 小字体]

<script src="../js/article_zt.js" type="text/javascript"> </script>

本例中TRegistry是关键类，Delphi 4.0不能自行加入，需在uses部分手工加入“registry”，通过其方法“ReadString”和“WriteString”来读出和写入字符，亦可通过其方法“ReadDate”和“WriteDate”来读出和写入日期。 程序第一次运行就写入其运行时间，应用期限为30天，超过30天就不再运行。全局变量NoRegistry、SpareDays来分别判断是否注册和剩余期限，自定义函数Encrypt为用户名到密码的变换函数。 一、程序启动时，通过搜索注册表，判断是否第一次运行和是否注册，来确定程序是否运行。 procedure TForm1.FormCreate(Sender: TObject); var Reg:Tregistry; KeyName,TempCode,TempName,TempStr:string; Same:Integer; FirstDate,NowDate:Tdatetime; NumberOfDays:real; begin NoRegistry:=true; NowDate:=date; //取得运行时系统日期 try //创建注册表，有该键则读取，无则创建 Reg:=Tregistry.Create ; Reg.RootKey :=hkey_local_machine; KeyName:='Software/jsjb/Example'; if Reg.OpenKey(KeyName,true) then begin TempName:=Reg.ReadString('UsrName'); TempCode:=Reg.ReadString('Passwd'); //读取用户名，注册号 try FirstDate:=Reg.ReadDate('Date'); //非第一次则读入第一次运行时间 except Reg.WriteDate('Date',NowDate); // 若为第一次运行，则写入系统日期 FirstDate:=NowDate; end; end ; reg.CloseKey ; finally reg.Free ; end; TempStr:=Encrypt(TempName); //通过自定义函数Encrypt（）来获取密码 Same:=CompareText(TempStr,TempCode); //比较密码 if TempName<>'' then if Same=0 then NoRegistry:=false; //验证密码，通过NoRegistry为false if NoRegistry then begin //若未注册... NumberOfDays:=Nowdate-FirstDate; SpareDays:=round(31-NumberOfDays); Label1.Caption :=FloatToStr(SpareDays); if((NumberOfDays>31) or (NumberOfDays<-1)) then begin showmessage('程序未注册超过试用期或更改系统时间，将终止运行!'); application.Terminate;//超过30天，则禁止运行 end; end; end; 二、注册过程，其响应入口可放于"About"内。 procedure TAbout.Button1Click(Sender: TObject); var InptName,InptCode,RealCode:String; Same:Integer; Reg:Tregistry; Keyname:String; begin if NoRegistry then //未注册时做 begin RealCode:=''; InptName:= InputBox('注册', '输入你的名字', ''); if InptName<>'' then begin InptCode:= InputBox('注册', '输入注册号', ''); RealCode:=Encrypt(InptName); Same:=CompareText(RealCode,InptCode); if (Same<>0) then showmessage('注册号码不对,注册未成功！') else begin //密码匹配时做：把用户名、密码写入注册表 Try Reg:=Tregistry.Create ; Reg.RootKey :=hkey_local_machine; KeyName:='Software/jsjb/Example'; if Reg.OpenKey(KeyName,true) then begin Reg.WriteString('Passwd',InptCode); Reg.WriteString('UsrName',InptName); end; reg.CloseKey ; finally Reg.Free ; end; NoRegistry:=false; //可修改注册后的界面 end; end; end; end; 三、密码的变换函数。此变换函数可由读者自由发挥，在此，仅示一例而已。 Function TForm1.Encrypt(TempStr:string):string; Var Str1:String; i,j:Integer; Begin Str1:=''; For i:=1 to Length(TempStr) do begin j:=(iiii mod (i+30))+(ii mod (i+20))+i3+1; Str1:=Str1+chr(ord(TempStr)+j); j:=(iiii mod (i+30))+(ii mod (i+20))+i3+1; Str1:=Str1+chr(ord(TempStr)+j); End; Result:=Str1; end; （出处：DelphiFans.com