• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

Delphi程序的时限和加密方法_Delphi

Delphi 搞代码 3年前 (2018-08-09) 127次浏览 已收录 0个评论

文/宋爽

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

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

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

  procedure TForm1.FormCreate(Sender: TObject);

http://www.gaodaima.com/?p=65818Delphi程序的时限和加密方法_Delphi

  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:=’Softwarejsjbxample’;

   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:=’Softwarejsjbxample’;

  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;

  此程序在Windows98,Delphi 4.0下调试通过。

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


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址