OSDN > 浏览软件 > Software Development > Frameworks > Zetta-Ømnis License Manager > SCM > SVN > 提交

Zetta-Ømnis License Manager

zolm: 提交

O executável agora checa a dll e a dll checa o executável!

--- trunk/CLIENTE/BIN/ProteÃ§Ã£o BinÃ¡ria.txt (revision 83)

+++ trunk/CLIENTE/BIN/ProteÃ§Ã£o BinÃ¡ria.txt (revision 84)

		@@ -7,16 +7,22 @@
7	7
8	8	DebugCheck;
9	9	CheckIntegrity;
	10	+CheckIntegrity(PChar(ExtractFilePath(ParamStr(0)) + 'zolm.dll'));
10	11
11	12	Caso a unit já contenha uma seção initialization, ajuste para que haja estas linhas
12	13
13		-2. Em cada unit onde o passo 1 foi executado, inclua na cláusula uses "ImageHlp" e "Windows", caso não existam
	14	+2. Inclua as mesmas linhas no arquivo .dpr do projeto, antes e após o begin, assim:
14	15
15		-3. Compile o executável e gere a partir dele seu CRC32 usando o CRC32Gen. Você pode arrastar o executável em cima
16		- do executável do CRC32Gen para gerar o CRC, o qual é colocado dentro do próprio executável!
	16	+{$I DEBUG.inc}
	17	+{$I CRC.inc}
17	18
18		-4. Para DLLs o procedimento é o mesmo, a diferença é que podemos checar a integridade do módulo host também:
	19	+begin
	20	+ DebugCheck;
	21	+ CheckIntegrity;
	22	+ CheckIntegrity(PChar(ExtractFilePath(ParamStr(0)) + 'zolm.dll'));
19	23
	24	+3. Em cada unit da biblioteca zolm, inclua o seguinte bloco de código no final:
	25	+
20	26	{$I DEBUG.inc}
21	27	{$I CRC.inc}
22	28

		@@ -24,6 +30,24 @@
24	30
25	31	DebugCheck;
26	32	CheckIntegrity;
27		-CheckIntegrity(ParamStr(0));
	33	+CheckIntegrity(@ParamStr(0)[1]);
28	34
29		-5. Ao usar o Petite, use-o apenas na DLL e sem a opção de verificação de vírus primeiro e só depois gere o CRC arrastando a DLL em cima de CRC32Gen.
	35	+4. Inclua as mesmas linhas no arquivo .dpr da biblioteca zolm, antes e após o begin, assim:
	36	+
	37	+{$I DEBUG.inc}
	38	+{$I CRC.inc}
	39	+
	40	+begin
	41	+ DebugCheck;
	42	+ CheckIntegrity;
	43	+ CheckIntegrity(@ParamStr(0)[1]);
	44	+
	45	+5. Em cada unit onde os passos 1, 2, 3 e 4 foram executados, inclua na cláusula uses "ImageHlp" e "Windows", caso não
	46	+ existam
	47	+
	48	+6. Compile o executável e gere a partir dele seu CRC32 usando o CRC32Gen. Você pode arrastar o executável em cima
	49	+ do executável do CRC32Gen para gerar o CRC, o qual é colocado dentro do próprio executável! Para a DLL do zolm o
	50	+ procedimento é o mesmo
	51	+
	52	+7. Ao usar o Petite, use-o apenas na DLL do zolm e sem a opção de verificação de vírus primeiro, para só em seguida
	53	+ gerar o CRC arrastando a DLL em cima de CRC32Gen.
		\ No newline at end of file

--- trunk/CLIENTE/PRJ/Testes.dpr (revision 83)

+++ trunk/CLIENTE/PRJ/Testes.dpr (revision 84)

		@@ -4,12 +4,20 @@
4	4	Forms,
5	5	SysUtils,
6	6	Windows,
	7	+ ImageHlp,
7	8	UFormPrincipal in '..\SRC\Testes\UFormPrincipal.pas' {Form12},
8	9	UZolm in '..\SRC\Testes\UZolm.pas';
9	10
10	11	{$R *.res}
11	12
	13	+{$I DEBUG.inc}
	14	+{$I CRC.inc}
	15	+
12	16	begin
	17	+ DebugCheck;
	18	+ CheckIntegrity;
	19	+ CheckIntegrity(PChar(ExtractFilePath(ParamStr(0)) + 'zolm.dll'));
	20	+
13	21	try
14	22	VerifyLicense('{64E052D8-FEC9-405E-BDF6-D34AAEDE242E}');
15	23	Application.Initialize;

--- trunk/CLIENTE/PRJ/zolm.dpr (revision 83)

+++ trunk/CLIENTE/PRJ/zolm.dpr (revision 84)

		@@ -14,6 +16,11 @@
14	16	exports
15	17	VerifyLicense, ValidateMasterPassword{, CheckNewVersion};
16	18
	19	+{$I DEBUG.inc}
	20	+{$I CRC.inc}
	21	+
17	22	begin
18		-
19		-end.
		\ No newline at end of file
	23	+ DebugCheck;
	24	+ CheckIntegrity;
	25	+ CheckIntegrity(@ParamStr(0)[1]);
	26	+end.

--- trunk/CLIENTE/PRJ/zolm.dproj (revision 83)

+++ trunk/CLIENTE/PRJ/zolm.dproj (revision 84)

		@@ -102,7 +102,6 @@
102	102	<DCCReference Include="..\SRC\UStructures.pas"/>
103	103	<DCCReference Include="..\SRC\UFORMMasterPassword.pas">
104	104	<Form>FORMMasterPassword</Form>
105		- <FormType>dfm</FormType>
106	105	</DCCReference>
107	106	<DCCReference Include="..\SRC\zolmws.pas"/>
108	107	<BuildConfiguration Include="Debug">

--- trunk/CLIENTE/SRC/Testes/UFormPrincipal.pas (revision 83)

+++ trunk/CLIENTE/SRC/Testes/UFormPrincipal.pas (revision 84)

		@@ -4,7 +4,7 @@
4	4
5	5	uses
6	6	System.SysUtils, Winapi.Windows, Winapi.Messages, System.Variants, System.Classes, Vcl.Graphics,
7		- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ImageHlp;
	7	+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
8	8
9	9	type
10	10	TForm12 = class(TForm)

		@@ -29,5 +32,6 @@
29	32
30	33	DebugCheck;
31	34	CheckIntegrity;
	35	+CheckIntegrity(PChar(ExtractFilePath(ParamStr(0)) + 'zolm.dll'));
32	36
33	37	end.

--- trunk/CLIENTE/SRC/Testes/UZolm.pas (revision 83)

+++ trunk/CLIENTE/SRC/Testes/UZolm.pas (revision 84)

		@@ -6,4 +6,16 @@
6	6
7	7	implementation
8	8
	9	+uses
	10	+ SysUtils, Windows, ImageHlp;
	11	+
	12	+{$I DEBUG.inc}
	13	+{$I CRC.INC}
	14	+
	15	+initialization
	16	+
	17	+DebugCheck;
	18	+CheckIntegrity;
	19	+CheckIntegrity(PChar(ExtractFilePath(ParamStr(0)) + 'zolm.dll'));
	20	+
9	21	end.

--- trunk/CLIENTE/SRC/UFuncoes.pas (revision 83)

+++ trunk/CLIENTE/SRC/UFuncoes.pas (revision 84)

		@@ -78,8 +78,9 @@
78	78	except
79	79	on EIV: EInvalidVersion do
80	80	raise;
81		- else
82		- raise Exception.Create('Ocorreu um problema ao acessar o serviço do ZOLM. Isso pode ser causado por uma falha na rede. Tente novamente em alguns minutos e se o problema persistir, contate o fornecedor do software');
	81	+
	82	+ on E: Exception do
	83	+ raise Exception.CreateFmt('Ocorreu um problema ao acessar o serviço do ZOLM. Tente novamente em alguns minutos e se o problema persistir, contate o fornecedor do software informando a mensagem de erro original:'#13#10#13#10'%s',[E.Message]);
83	84	end;
84	85	end;
85	86