在Delphi程序中实现时间限制和加密_Delphi

  • 内容
  • 评论
  • 相关

本例中TRegistry是关键类,Delphi 4.0不能自行加入,需在uses部分手工加入“registry”,通过其方法“ReadString”和“WriteString”来读出和写入字符,亦可通过其方法“ReadDate”和“WriteDate”来读出和写入日期。  

程序第一次运行就写入其运行时间,应用期限为30天,超过30天就不再运行。全局变量NoRegistry、SpareDays来分别判断是否注册和剩余期限,自定义函数Encrypt为用户名到密码的变换函数。  

一、程序启动时,通过搜索注册表,判断是否第一次运行和是否注册,来确定程序是否运行。  
procedure TForm1.FormCreate(Sender: TObject);  
var  

Reg:Tregistry;  

http://www.gaodaima.com/?p=65983在Delphi程序中实现时间限制和加密_Delphi

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[i])+j);  

j:=(iiii mod (i+30))+(ii mod (i+20))+i3+1;  

Str1:=Str1+chr(ord(TempStr[i])+j);  

End;  

Result:=Str1;  

end; 

欢迎大家阅读《在Delphi程序中实现时间限制和加密_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 在Delphi程序中实现时间限制和加密_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注