软件试用次数

给软件设置试用次数就是限制软件能打开执行的次数，软件打开到关闭算试用一次，在对软件设置试用次数的时候要做合适的选择，试用次数不宜太多，一般软件建议设置15次为最佳选择。原则上经常用的软件试用次数多一些；不经常用的软件，可以将次数适当缩短。

软件试用次数限制设计需要记录用户使用软件的次数。这些使用次数信息都需要保存在用户的计算机中，实现的时候可以把这些试用信息保存在注册表里面，也可以保存到文件里面。不论这些试用信息存储在哪个位置，都必须要对这些信息进行加密保存。

实现软件试用次数的步骤如下：

1) 软件启动的时候到注册表或文件的指定位置查找试用信息，如果试用信息为空，说明软件是第一次使用，这时，可将数字1加密变换以后写到文件或注册表里，软件继续执行。

2) 如果试用信息不为空，则需先解密，判断解密出来的值是否大于给定的试用次数。如果大于给定的试用次数就提示软件已过试用期，软件不执行。如果小于给定的试用次数，那么把这个值加1得到的结果经加密变换后写到文件或注册表里面，软件继续执行。

3) 软件未到期时显示的试用次数，可以有两种方式提示用户，一是“软件已经试用了几次”，二是“软件还可以试用几次”。第一种方式只要把读出来的值直接显示就可以，第二种方式需要用给定的试用次数来减去读出来的值，然后显示出来。

实现软件试用次数的完整示例代码如下：

 function TrialTime(TrialInt:Integer): Integer;
var
Reg:TRegistry;
RegStr,TempStr:String;
CountInt:Integer;
begin
  try
     RegStr := TRegistry.Create;
     Reg.RootKey := HKEY_CURRENT_USER;
     RegStr := '\Software\TrialTime';
     if Reg.OpenKey(RegStr,False) then
      TempStr := Reg.ReadString('Trial');
     Reg.CloseKey;
     if TempStr = '' then    //第一次试用为空
     begin
        if Reg.OpenKey(RegStr,True) then
          Reg.WriteString('Trial',Base64Unit.Base64Encryption('1'));
        Reg.CloseKey;
        Result := 1;
     end
     else
     begin  //非第一次
       CountInt := StrToInt(Base64Decryption(TempStr));
       if TrialInt = CountInt  then
       begin
         Result := 0;
         Exit;
       end;
       CountInt := CountInt + 1;
       Result := CountInt;
       if Reg.OpenKey(RegStr,False) then
          Reg.WriteString('Trial',Base64Encryption(IntToStr(CountInt)));
       reg.CloseKey;
     end;
      Reg.Destroy;
  except
      Result := -1;
  end;
end;

上面软件试用次数的设置采用了写入注册表的方法，把试用次数信息写到文件的方法和写入注册表的方法相同，

以下方法是写入INI文件的示例代码：

function TrialTimeIni(TrialInt:Integer): Integer;
 var
      IniFileName,TempStr:string;
      MyIniFile:TIniFile;
      CountInt:Integer;
 begin
    IniFileName := '';
    TempStr := '';
    CountInt := 0;
    try
        IniFileName := ExtractFilePath(Application.ExeName)+'TrialFile.ini';
        MyIniFile := TIniFile.Create(IniFileName);
        TempStr:= MyIniFile.ReadString('TRIALSET','TrialTime','');
        if TempStr = '' then        //空值即第一次使用，赋值1
        begin
          MyIniFile.WriteString('TRIALSET','TrialTime',Base64Encryption('1'));
          Result := 1;
        end
        else
        begin  //非第一次+1
           CountInt := StrToInt(Base64Decryption(TempStr));
           if TrialInt = CountInt then  //次数已到，试用期结束
           begin
             Result := 0;
             Exit;
           end;
           CountInt := CountInt + 1;
           Result := CountInt;
           MyIniFile.WriteString('TRIALSET','TrialTime',Base64Encryption(IntToStr(CountInt)));
        end;
        MyIniFile.Destroy;
    except on E: Exception do
      Result := -1;
    end;
 end;

把试用次数信息写入到文件的调用方法比较简单，这里就不描述了。上述两个试用次数限制的函数里面试用BASE64算法对次数信息加密，在实际使用的时候建议使用高强度的对称算法进行加密，如DES、AES、BlowFish等算法。

在实际加密过程中，采用把次数写入到文件的方法时，如果时写到一个单一的文件里面，软件不需要发布ＩＮＩ文件，在程序执行的时候会自动创建该文件（以ＩＮＩ文件为例）