软件试用期及试用次数控制（附部分关键代码）！ (转)

软件试用期及试用次数控制（附部分关键代码）！ (转)[@more@]

 其实网上已经有不少现成的软件，它们可以帮你做到一些共享软件的时间控制，比如试用30天，试用100次等。前些天给台湾人写的软件现在需要要一个试用版，由于是繁体，想用网上已有的软件<加密系统>>来做，但在繁体下一运行就把机子搞死了，害得我新装了繁体2000。后来想想还是自己写算了。
　　对方要求试用90天，150次。本来也想用时间同步的方法来实现（以前也都实现了），但考虑到一些问题，想想没有那些必要，反正这也不是什么重要的东西，也就好弃了。我的思路是这样的，在安装软件时，取得系统时间　，加密（我采用DES），写入注册表，写入INI文件（两手准备，加强安全）。文件和注册表都写入相同的数据，如果它们不相同，那么软件就不能运行，写入项包括安装时间，使用次数以及使用时间等。软件运行时检查时间是否全法，文件和注册表都写入的数据是否相同，如果有问题就不让再使用，并且删除ini文件和注册表的部分数据（没有全部删除，以防止再次安装）。申明本方法并不是安全的，只是为了应付一般的要求而已，如果需要高安全性，请使用其它的方法。

下面的代码简单演示了各部分的处理过程：

一、安装时写入加密数据：

  (这里的加密使用了控件)

DES->GenerateKey("neowarton20030731");
  TDateTime *d=new TDateTime(Date());
  AnsiString times,date,filename;;
  char dir[256];

  times="0";
  date=DateTimeToStr(*d);

  times=DES->EncryptString(times);
  date=DES->EncryptString(date);
  //install=DES->EncryptString(date);
  AnsiString s=times+date;
  OutputDebugString(s.c_str());

  filename="mysoft.ini";
  GetSystemDirectory(dir,sizeof(dir));
  filename=dir+filename;

  if(FileExists(filename))
  {
  Application->TeRminate();  //if the ini file is alread exists exit;
  }
  else
  {
  TIniFile *ini=new TIniFile(filename);
  ini->WriteString("setup","times",times);
  ini->WriteString("setup","date",date);
  ini->WriteString("setup","install",date);

  delete ini;

  //write register

  TRegistry *reg=new TRegistry();
  reg->rootKey=HKEY_LOCAL_MACHINE;
  if(reg->KeyExists("microsoftwindowsCurrentVersionmysoft">SOFTWAREMicrosoftWindowsCurrentVersionmysoft"))
  Application->Terminate();//if the key exists,terminate
  reg->OpenKey("SOFTWAREMicrosoftWindowsCurrentVersionmysoft",true);
  reg->WriteString("warning","dot modify these items!Otherwise,your system will not run!neowarton2003xian");
  reg->WriteString("times",times);
  reg->WriteString("date",date);
  reg->WriteString("install",date);
  reg->CloseKey();

  delete reg;
  }

二、安装时在install Shield中加入以下代码：

　Lauchapp(SUPPORTDIR^"test.exe","")  //test为上面代码的exe文件
  其它代码省略

三、在应用程序起动时：

  bool rt;
  TForm1 *fm1=new TForm1(NULL);//试用版弹出的窗口，点击试用返回判断结果
  fm1->ShowModal();
  rt=fm1->try_time;//是否已经过期
  delete fm1;
  if(rt)
  {
  MessageBox(NULL,"¥»³nÅé¸Õ¥Î´Á¤v¹L¡A§A¤£¯à¦A¨Ï¥Î¸Óª©¥»¡A½ÐÁʶR¥¿¦¡ª©¡Inn http://www.xxxxx.com ","¯«²þ¥D¾÷ºôµ¸¨¾¤õÀð",MB_OK+MB_ICONINFORMATION);
  Application->Terminate();//Ãö³¬À³¥Îµ{§Ç
  return 0;
  }

四、用户点击试用按钮,返回是否过期的bool值：

 //read the encrypted ini file in the system directory to read the time and date
  //if filenote exist,return false,if the time and date wrong return false;

  //read data and then time from the register,where the data is also encrypted

  char dir[256];
  AnsiString filename="mysoft.ini";
  GetSystemDirectory(dir,sizeof(dir));

  //the ini fils is in the system directory
  filename=dir+filename;
  if(!FileExists(filename))
  {
  Application->MessageBox("§Aªº¨t²Î¹ï¥»³n¥ó¶i¦æ¤F«Dªk­×§ï¡A¤w¸g¤£¯à¦A¨Ï¥Î¡Inn ","¯«²þ¥D¾÷¨¾¤õÀð",MB_ICONERROR);
  HWND H;
  H=FindWindow(NULL,"DNAAlarm");
  ::SendMessage(H,WM_CLOSE,0,0);
  OutputDebugString("go here");
  this->try_time=true;
  Close();
  return;
  }

  TIniFile *ini=new TIniFile(filename);
  AnsiString times,datetime,installday;

  times=ini->ReadString("setup","times","");
  datetime=ini->ReadString("setup","date","");
  installday=ini->ReadString("setup","install","");
  getthepara();

  AnsiString tt=times_reg+"|"+datetime_reg+"|"+datetime_reg;
  AnsiString ttt=times+"|"+datetime+"|"+installday;

  if((times_reg!=times)||(datetime_reg!=datetime)||(installday!=datetime_reg))
  {

  this->try_time=true;
  }
  else  //------------------------------------
  {

  DES->GenerateKey("neowarton20030731");
  times=DES->DecryptString(times);
  datetime=DES->DecryptString(datetime);
  installday=DES->DecryptString(installday);

  times_reg=DES->DecryptString(times_reg);
  datetime_reg=DES->DecryptString(datetime_reg);
  installday_reg= DES->DecryptString(installday_reg);

  tt=times_reg+"|"+datetime_reg+"|"+datetime_reg;
  ttt=times+"|"+datetime+"|"+installday;
  //¦r²Å¦êÂà´«¦¨¤é´Á
  int t=StrToInt(times);
  TDateTime *dt=new TDate(Date()); 

  TDateTime *s=new TDate(StrToDate(datetime));  TDateTime *install=new TDate(StrToDate(installday));

  int tmp=*dt-*s; 
  int tmp2=*dt-*install; 
  //int tmp3=*s-*dt; 

  if((tmp>=-1)&&(tmp<=90)&&(tmp2>=-1)&&(tmp2<=90)&&(t<150))
  {
  AnsiString times_tmp=DES->EncryptString(IntToStr(StrToInt(times)+1));
  AnsiString datetime_tmp=DES->EncryptString(DateTimeToStr(*dt)); 
  ini->WriteString("setup","times",times_tmp);
  ini->WriteString("setup","date",datetime_tmp);
  putthepara(times_tmp,datetime_tmp);
  this->try_time=false;
  }
  else
  {
  //write wrong time;
 
  AnsiString times_tmp=DES->EncryptString(IntToStr(StrToInt(times)+200));
  AnsiString datetime_tmp=DES->EncryptString(DateTimeToStr(*dt+3000)); 
  ini->WriteString("setup","times",times_tmp);
  ini->WriteString("setup","date",datetime_tmp);
  putthepara(times_tmp,datetime_tmp);
  this->try_time=true;
  }
  }

  delete ini;

  this->Close();

五、ini文件：

[setup]

times=inAk6xcTevw=
date=XOqvDla+r+2Xtl4ZM567cQ==
install=kAP2X5LVcWaXtl4ZM567cQ==
(数据已经加密)
.....

六、注冊表內容與INI文件內容基本相同！

上面的代码只是初步的，如果你要使用，需要经过详细的修改才对。由于是繁体版,部分注释显示为乱码，我已经将注释删除了，里面的消息框里的字符串也是乱码，可以改改就行！敬請原諒！

（注，本文只是推荐一种简单的方法，以满足在些朋友简单的要求，代码刚实现功能　，存在很多问题，我才准备改改，有好的方法可以提出来！）歡迎大家提示好的方法。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752019/viewspace-981658/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752019/viewspace-981658/