知识大全 Delphi程序的时限和加密方法

Posted 2022-07-22 密码

篇首语：今日长缨在手，何时缚住苍龙。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi程序的时限和加密方法相关的知识，希望对你有一定的参考价值。

Delphi程序的时限和加密方法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

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

　　密码的变换函数

　　一程序启动时通过搜索注册表判断是否第一次运行和是否注册来确定程序是否运行

　　procedure TForm 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 :=ey_local_machine;　　 KeyName:= Sofarejsjbxample ;　　 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= then　　 NoRegistry:=false;　　//验证密码通过NoRegistry为false　　 if NoRegistry then　　 begin //若未注册　　NumberOfDays:=Nowdate FirstDate;　　SpareDays:=round( NumberOfDays);　　Label Caption :=FloatToStr(SpareDays);　　if((NumberOfDays> ) or (NumberOfDays< )) then　　begin　　showmessage( 程序未注册超过试用期或更改系统时间将终止运行! );　　application Terminate;//超过天则禁止运行　　end;　　end;　　end;

　　二注册过程其响应入口可放于 About 内

　　procedure TAbout Button Click(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<> ) then　　showmessage( 注册号码不对注册未成功！ )　　 else　　 begin　　 //密码匹配时做把用户名密码写入注册表　　 Try　　Reg:=Tregistry Create ;　　Reg RootKey :=ey_local_machine;　　KeyName:= Sofarejsjbxample ;　　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; 三密码的变换函数此变换函数可由读者自由发挥在此仅示一例而已

cha138/Article/program/Delphi/201311/8395