软件试用期及试用次数控制

时间：2024-08-31 22:12:12 学人智库我要投稿

相关推荐

软件试用期及试用次数控制

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

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

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

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);

ini;

//write register

TRegistry *reg=new TRegistry();

reg->RootKey=HKEY_LOCAL_MACHINE;

if(reg->KeyExists(\SOFTWARE\Microsoft\Windows\CurrentVersion\mysoft))

Application->Terminate();//if the key exists,terminate

reg->OpenKey(\SOFTWARE\Microsoft\Windows\CurrentVersion\mysoft,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();

reg;

}

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

　Lauchapp(SUPPORTDIR^test.exe,) //test为上面代码的exe文件

其它代码省略

三、在应用程序起动时：

bool rt;

TForm1 *fm1=new TForm1(NULL);//试用版弹出的窗口，点击试用返回判断结果

fm1->ShowModal();

rt=fm1->try_time;//是否已经过期

fm1;

if(rt)

{

MessageBox(NULL,￥?3n?é??￥?′á¤v1L?A§A¤￡ˉà|A¨?￥??óa?￥??A?Dáê?R￥?|?a??I http://www.xxxxx.com ,ˉ?2t￥D?÷o?μ?¨?¤?àe,MB_OK+MB_ICONINFORMATION);

Application->Terminate();//??3?à3￥?μ{§?

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(§Aao¨t2?1?￥?3n￥ó?i|?¤F?Dak-×§??A¤w?g¤￡ˉà|A¨?￥??I ,ˉ?2t￥D?÷¨?¤?àe,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;

//|r2?|ê?à′?|¨¤é′á

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;

}

ini;

this->Close();

五、ini文件：

[setup]

times=inAk6xcTevw=

date=XOqvDla+r+2Xtl4ZM567cQ==

install=kAP2X5LVcWaXtl4ZM567cQ==

(数据已经加密)

.....

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

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

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

[软件试用期及试用次数控制]

【软件试用期及试用次数控制】相关文章：