品才網>計算機軟件>軟件試用期及試用次數控制

軟件試用期及試用次數控制

時間：2022-07-13 23:42:46 計算機軟件我要投稿

相關推薦

軟件試用期及試用次數控制

下面的代碼簡單演示了各部分的處理過程：

一、安裝時寫入加密數據：

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

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

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