demo.cpp

包括密钥盘制作软件、LIB、DLL 加密模块 各种语言调用加密模块的例子程序、网络注册软件等

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "demo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HINSTANCE gLiblocking=NULL;

typedef int (_stdcall * TESTKEY)(int Idate,char * testlock,int Ok_No);

TESTKEY Testkey;

int mima=-1;			//若 mima=0 则软件已注册，若 mima=-1 则软件没有注册
char testlock[10];              //定义返回的字符串数组


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)  //程序一运行就判断是否注册
{
	if(gLiblocking!=NULL)
	{
		ShowMessage("The Lock_File.dll has already been loaded.");
		return;
	}
	gLiblocking=LoadLibrary("Lock_File.dll");
	if(gLiblocking==NULL)
	{
		char msg[300];
		strcpy(msg,"Cannot load the Lock_File.dll DLL.");
		strcat(msg,"Make sure that the file Lock_File.dll");
		strcat(msg,"is in you \\WINDOWS\\SYSTEM directory.");
		ShowMessage(msg);
	}

	Testkey=(TESTKEY)GetProcAddress(gLiblocking,"Testkey");

         //软件一运行就探测软件是否注册
	mima=Testkey(30,testlock,0);	//可试用30天，试用期过后，若把系统时间改回来，可以运行

	//mima=Testkey(30,testlock,1);	//可试用30天，试用期过后，即使把系统时间改回来，也不能再运行


}

//---------------------------------------------------------------------------

void __fastcall TForm1::RUNClick(TObject *Sender)
{
	int j;
	
	if(mima==-1){
		ShowMessage("软件没有注册，不能运行。           请把 C 盘根目录下面的文件 CLIENTINFO.DAT 用 Email 发给 [e-mail] 换取注册文件。");

		return;
	}

	if(mima>0)ShowMessage("软件没有注册，但在试用期内，软件可以试运行。           请把 C 盘根目录下面的文件 CLIENTINFO.DAT 用 Email 发给 [e-mail] 换取注册文件。");


	for(j=0;j<10;j++)if(testlock[j]!=j+10){		//在您的软件中穿插判断数组值，以防软件被软解密
		ShowMessage(" 软件出错，请重新注册软件 ! ");
		return;									//最好把数组值作为您程序中的变量
	}


	for(j=0;j<50;j++)
				{
					MessageBeep(0xFFFFFFFF);
					Sleep(100);
				}
	

}
//---------------------------------------------------------------------------