Download as
Browse Code »

Commit d3353de583cfab8af4a0c58a1d73a5effd0c445c

Authored by anderson.peterle@previdencia.gov.br
1 parent 4c2a85c7
Exists in master

Adequacoes ao uso de library unica, para reaproveitamento de codigos, propriedad… 

…es e metodos, faxina de codigo.

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@763 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 17 changed files with 234 additions and 574 deletions   Show diff stats
cacic2.res
View file @d3353de
No preview for this file type
cacicservice/CACICsvc.res
View file @d3353de
No preview for this file type
chkcacic/chkcacic.res
View file @d3353de
No preview for this file type
chksis/chksis.res
View file @d3353de
No preview for this file type
col_anvi/col_anvi.res
View file @d3353de
No preview for this file type
col_comp/col_comp.res
View file @d3353de
No preview for this file type
col_hard/col_hard.res
View file @d3353de
No preview for this file type
col_moni/col_moni.dpr
  Diff comments   View file @d3353de
@@ -25,29 +25,32 @@ uses @@ -25,29 +25,32 @@ uses
25 Registry, 25 Registry,
26 Classes, 26 Classes,
27 PJVersionInfo, 27 PJVersionInfo,
28 - DCPcrypt2,  
29 - DCPrijndael,  
30 - DCPbase64,  
31 CACIC_Library in '..\CACIC_Library.pas'; 28 CACIC_Library in '..\CACIC_Library.pas';
32 29
33 -var p_path_cacic, v_Res_Search, v_Drive, v_File : string;  
34 - PJVersionInfo1: TPJVersionInfo;  
35 - v_CipherKey,  
36 - v_IV,  
37 - v_strCipherClosed,  
38 - v_DatFileName : String; 30 +var
  31 + v_path_cacic,
  32 + v_Res_Search,
  33 + v_Drive,
  34 + v_File,
  35 + v_strCipherClosed : String;
  36 + PJVersionInfo1 : TPJVersionInfo;
39 37
40 -var v_Debugs : boolean; 38 +var
  39 + v_Debugs : boolean;
41 40
42 -var v_tstrCipherOpened,  
43 - v_tstrCipherOpened1 : TStrings; 41 +var
  42 + v_tstrCipherOpened,
  43 + v_tstrCipherOpened1,
  44 + tstrTripa1 : TStrings;
  45 +
  46 +var
  47 + intAux : integer;
44 48
45 -var g_oCacic : TCACIC; 49 +var
  50 + g_oCacic : TCACIC;
46 51
47 -// Some constants that are dependant on the cipher being used  
48 -// Assuming MCRYPT_RIJNDAEL_128 (i.e., 128bit blocksize, 256bit keysize)  
49 -const KeySize = 32; // 32 bytes = 256 bits  
50 - BlockSize = 16; // 16 bytes = 128 bits 52 +const
  53 + CACIC_APP_NAME = 'col_moni';
51 54
52 procedure GetSubDirs(Folder:string; sList:TStringList); 55 procedure GetSubDirs(Folder:string; sList:TStringList);
53 var 56 var
@@ -111,8 +114,8 @@ var @@ -111,8 +114,8 @@ var
111 strDataArqLocal, strDataAtual : string; 114 strDataArqLocal, strDataAtual : string;
112 begin 115 begin
113 try 116 try
114 - FileSetAttr (p_path_cacic + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
115 - AssignFile(HistoricoLog,p_path_cacic + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile} 117 + FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
  118 + AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
116 {$IOChecks off} 119 {$IOChecks off}
117 Reset(HistoricoLog); {Abre o arquivo texto} 120 Reset(HistoricoLog); {Abre o arquivo texto}
118 {$IOChecks on} 121 {$IOChecks on}
@@ -122,7 +125,7 @@ begin @@ -122,7 +125,7 @@ begin
122 Append(HistoricoLog); 125 Append(HistoricoLog);
123 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <======================='); 126 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
124 end; 127 end;
125 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(p_path_cacic + 'cacic2.log'))); 128 + DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));
126 DateTimeToString(strDataAtual , 'yyyymmdd', Date); 129 DateTimeToString(strDataAtual , 'yyyymmdd', Date);
127 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual... 130 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
128 begin 131 begin
@@ -208,116 +211,6 @@ begin @@ -208,116 +211,6 @@ begin
208 end; 211 end;
209 end; 212 end;
210 213
211 -  
212 -function HomeDrive : string;  
213 -var  
214 -WinDir : array [0..144] of char;  
215 -begin  
216 -GetWindowsDirectory (WinDir, 144);  
217 -Result := StrPas (WinDir);  
218 -end;  
219 -  
220 -Function Implode(p_Array : TStrings ; p_Separador : String) : String;  
221 -var intAux : integer;  
222 - strAux : string;  
223 -Begin  
224 - strAux := '';  
225 - For intAux := 0 To p_Array.Count -1 do  
226 - Begin  
227 - if (strAux<>'') then strAux := strAux + p_Separador;  
228 - strAux := strAux + p_Array[intAux];  
229 - End;  
230 - Implode := strAux;  
231 -end;  
232 -  
233 -  
234 -// Pad a string with zeros so that it is a multiple of size  
235 -function PadWithZeros(const str : string; size : integer) : string;  
236 -var  
237 - origsize, i : integer;  
238 -begin  
239 - Result := str;  
240 - origsize := Length(Result);  
241 - if ((origsize mod size) <> 0) or (origsize = 0) then  
242 - begin  
243 - SetLength(Result,((origsize div size)+1)*size);  
244 - for i := origsize+1 to Length(Result) do  
245 - Result[i] := #0;  
246 - end;  
247 -end;  
248 -  
249 -  
250 -// Encrypt a string and return the Base64 encoded result  
251 -function EnCrypt(p_Data : String) : String;  
252 -var  
253 - l_Cipher : TDCP_rijndael;  
254 - l_Data, l_Key, l_IV : string;  
255 -begin  
256 - Try  
257 - // Pad Key, IV and Data with zeros as appropriate  
258 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
259 - l_IV := PadWithZeros(v_IV,BlockSize);  
260 - l_Data := PadWithZeros(p_Data,BlockSize);  
261 -  
262 - // Create the cipher and initialise according to the key length  
263 - l_Cipher := TDCP_rijndael.Create(nil);  
264 - if Length(v_CipherKey) <= 16 then  
265 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
266 - else if Length(v_CipherKey) <= 24 then  
267 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
268 - else  
269 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
270 -  
271 - // Encrypt the data  
272 - l_Cipher.EncryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
273 -  
274 - // Free the cipher and clear sensitive information  
275 - l_Cipher.Free;  
276 - FillChar(l_Key[1],Length(l_Key),0);  
277 -  
278 - // Return the Base64 encoded result  
279 - Result := Base64EncodeStr(l_Data);  
280 - Except  
281 - log_diario('Erro no Processo de Criptografia');  
282 - End;  
283 -end;  
284 -  
285 -function DeCrypt(p_Data : String) : String;  
286 -var  
287 - l_Cipher : TDCP_rijndael;  
288 - l_Data, l_Key, l_IV : string;  
289 -begin  
290 - Try  
291 - // Pad Key and IV with zeros as appropriate  
292 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
293 - l_IV := PadWithZeros(v_IV,BlockSize);  
294 -  
295 - // Decode the Base64 encoded string  
296 - l_Data := Base64DecodeStr(p_Data);  
297 -  
298 - // Create the cipher and initialise according to the key length  
299 - l_Cipher := TDCP_rijndael.Create(nil);  
300 - if Length(v_CipherKey) <= 16 then  
301 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
302 - else if Length(v_CipherKey) <= 24 then  
303 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
304 - else  
305 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
306 -  
307 - // Decrypt the data  
308 - l_Cipher.DecryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
309 -  
310 - // Free the cipher and clear sensitive information  
311 - l_Cipher.Free;  
312 - FillChar(l_Key[1],Length(l_Key),0);  
313 -  
314 - // Return the result  
315 - Result := l_Data;  
316 - Except  
317 - log_diario('Erro no Processo de Decriptografia');  
318 - End;  
319 -end;  
320 -  
321 Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String; 214 Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String;
322 var v_strCipherOpenImploded : string; 215 var v_strCipherOpenImploded : string;
323 v_DatFile : TextFile; 216 v_DatFile : TextFile;
@@ -330,13 +223,8 @@ begin @@ -330,13 +223,8 @@ begin
330 Rewrite (v_DatFile); 223 Rewrite (v_DatFile);
331 Append(v_DatFile); 224 Append(v_DatFile);
332 225
333 - //v_Cipher := TDCP_rijndael.Create(nil);  
334 - //v_Cipher.InitStr(v_CipherKey,TDCP_md5);  
335 - v_strCipherOpenImploded := Implode(p_tstrCipherOpened,'=CacicIsFree=');  
336 - //v_strCipherClosed := v_Cipher.EncryptString(v_strCipherOpenImploded);  
337 - v_strCipherClosed := EnCrypt(v_strCipherOpenImploded);  
338 - //v_Cipher.Burn;  
339 - //v_Cipher.Free; 226 + v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);
  227 + v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);
340 228
341 Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto} 229 Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto}
342 230
@@ -345,37 +233,6 @@ begin @@ -345,37 +233,6 @@ begin
345 end; 233 end;
346 end; 234 end;
347 235
348 -Function Explode(Texto, Separador : String) : TStrings;  
349 -var  
350 - strItem : String;  
351 - ListaAuxUTILS : TStrings;  
352 - NumCaracteres,  
353 - TamanhoSeparador,  
354 - I : Integer;  
355 -Begin  
356 - ListaAuxUTILS := TStringList.Create;  
357 - strItem := '';  
358 - NumCaracteres := Length(Texto);  
359 - TamanhoSeparador := Length(Separador);  
360 - I := 1;  
361 - While I <= NumCaracteres Do  
362 - Begin  
363 - If (Copy(Texto,I,TamanhoSeparador) = Separador) or (I = NumCaracteres) Then  
364 - Begin  
365 - if (I = NumCaracteres) then strItem := strItem + Texto[I];  
366 - ListaAuxUTILS.Add(trim(strItem));  
367 - strItem := '';  
368 - I := I + (TamanhoSeparador-1);  
369 - end  
370 - Else  
371 - strItem := strItem + Texto[I];  
372 -  
373 - I := I + 1;  
374 - End;  
375 - Explode := ListaAuxUTILS;  
376 -end;  
377 -  
378 -  
379 Function CipherOpen(p_DatFileName : string) : TStrings; 236 Function CipherOpen(p_DatFileName : string) : TStrings;
380 var v_DatFile : TextFile; 237 var v_DatFile : TextFile;
381 v_strCipherOpened, 238 v_strCipherOpened,
@@ -397,12 +254,12 @@ begin @@ -397,12 +254,12 @@ begin
397 Readln(v_DatFile,v_strCipherClosed); 254 Readln(v_DatFile,v_strCipherClosed);
398 while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed); 255 while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);
399 CloseFile(v_DatFile); 256 CloseFile(v_DatFile);
400 - v_strCipherOpened:= DeCrypt(v_strCipherClosed); 257 + v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);
401 end; 258 end;
402 if (trim(v_strCipherOpened)<>'') then 259 if (trim(v_strCipherOpened)<>'') then
403 - Result := explode(v_strCipherOpened,'=CacicIsFree=') 260 + Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)
404 else 261 else
405 - Result := explode('Configs.ID_SO=CacicIsFree='+ g_oCacic.getWindowsStrId() +'=CacicIsFree=Configs.Endereco_WS=CacicIsFree=/cacic2/ws/','=CacicIsFree='); 262 + Result := g_oCacic.explode('Configs.ID_SO' + g_oCacic.getSeparatorKey + g_oCacic.getWindowsStrId() + g_oCacic.getSeparatorkey + 'Configs.Endereco_WS'+g_oCacic.getSeparatorkey+'/cacic2/ws/',g_oCacic.getSeparatorkey);
406 263
407 if Result.Count mod 2 <> 0 then 264 if Result.Count mod 2 <> 0 then
408 Result.Add(''); 265 Result.Add('');
@@ -462,7 +319,7 @@ var RegEditGet: TRegistry; @@ -462,7 +319,7 @@ var RegEditGet: TRegistry;
462 begin 319 begin
463 try 320 try
464 Result := ''; 321 Result := '';
465 - ListaAuxGet := Explode(Chave, '); 322 + ListaAuxGet := g_oCacic.explode(Chave, ');
466 323
467 strRootKey := ListaAuxGet[0]; 324 strRootKey := ListaAuxGet[0];
468 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\'; 325 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';
@@ -496,8 +353,6 @@ begin @@ -496,8 +353,6 @@ begin
496 end; 353 end;
497 end; 354 end;
498 355
499 -  
500 -  
501 function LastPos(SubStr, S: string): Integer; 356 function LastPos(SubStr, S: string): Integer;
502 var 357 var
503 Found, Len, Pos: integer; 358 Found, Len, Pos: integer;
@@ -542,7 +397,7 @@ begin @@ -542,7 +397,7 @@ begin
542 if (ValorChavePerfis <> '') then 397 if (ValorChavePerfis <> '') then
543 Begin 398 Begin
544 //Atenção, OS ELEMENTOS DEVEM ESTAR DE ACORDO COM A ORDEM QUE SÃO TRATADOS NO MÓDULO GERENTE. 399 //Atenção, OS ELEMENTOS DEVEM ESTAR DE ACORDO COM A ORDEM QUE SÃO TRATADOS NO MÓDULO GERENTE.
545 - tstrTripa2 := Explode(ValorChavePerfis,','); 400 + tstrTripa2 := g_oCacic.explode(ValorChavePerfis,',');
546 if (strAux <> '') then strAux := strAux + '#'; 401 if (strAux <> '') then strAux := strAux + '#';
547 strAux := strAux + trim(tstrTripa2[0]) + ','; 402 strAux := strAux + trim(tstrTripa2[0]) + ',';
548 403
@@ -577,7 +432,7 @@ begin @@ -577,7 +432,7 @@ begin
577 Try 432 Try
578 if (LastPos('/',trim(tstrTripa2[3]))>0) then 433 if (LastPos('/',trim(tstrTripa2[3]))>0) then
579 Begin 434 Begin
580 - tstrTripa3 := Explode(trim(tstrTripa2[3]),'/'); 435 + tstrTripa3 := g_oCacic.explode(trim(tstrTripa2[3]),'/');
581 // 436 //
582 for v1:=1 to length(v_LetrasDrives) do 437 for v1:=1 to length(v_LetrasDrives) do
583 Begin 438 Begin
@@ -762,7 +617,7 @@ begin @@ -762,7 +617,7 @@ begin
762 log_debug('Buscando informação de VERSÃO em '+tstrTripa2[8]); 617 log_debug('Buscando informação de VERSÃO em '+tstrTripa2[8]);
763 if (LastPos('/',trim(tstrTripa2[8]))>0) then 618 if (LastPos('/',trim(tstrTripa2[8]))>0) then
764 Begin 619 Begin
765 - tstrTripa3 := Explode(trim(tstrTripa2[8]),'/'); 620 + tstrTripa3 := g_oCacic.explode(trim(tstrTripa2[8]),'/');
766 // 621 //
767 for v1:=1 to length(v_LetrasDrives) do 622 for v1:=1 to length(v_LetrasDrives) do
768 Begin 623 Begin
@@ -897,7 +752,7 @@ begin @@ -897,7 +752,7 @@ begin
897 End; 752 End;
898 if (strAux1 <> '') then 753 if (strAux1 <> '') then
899 Begin 754 Begin
900 - tstrTripa3 := Explode(getVersionInfo(strAux1), '.'); // Pego só os dois primeiros dígitos. Por exemplo: 6.640.0.1001 vira 6.640. 755 + tstrTripa3 := g_oCacic.explode(getVersionInfo(strAux1), '.'); // Pego só os dois primeiros dígitos. Por exemplo: 6.640.0.1001 vira 6.640.
901 strAux := strAux + tstrTripa3[0] + '.' + tstrTripa3[1]; 756 strAux := strAux + tstrTripa3[0] + '.' + tstrTripa3[1];
902 End; 757 End;
903 End; 758 End;
@@ -943,7 +798,7 @@ begin @@ -943,7 +798,7 @@ begin
943 End; 798 End;
944 if (strAux1 <> '') then 799 if (strAux1 <> '') then
945 Begin 800 Begin
946 - tstrTripa3 := Explode(getVersionInfo(strAux1), '.'); // Pego só os dois primeiros dígitos. Por exemplo: 6.640.0.1001 vira 6.640. 801 + tstrTripa3 := g_oCacic.explode(getVersionInfo(strAux1), '.'); // Pego só os dois primeiros dígitos. Por exemplo: 6.640.0.1001 vira 6.640.
947 strAux := strAux + tstrTripa3[0] + '.' + tstrTripa3[1]; 802 strAux := strAux + tstrTripa3[0] + '.' + tstrTripa3[1];
948 End; 803 End;
949 if (strAux1 = '') then strAux := strAux + ','; 804 if (strAux1 = '') then strAux := strAux + ',';
@@ -960,16 +815,16 @@ begin @@ -960,16 +815,16 @@ begin
960 Begin 815 Begin
961 if (trim(UVC) <> '') then 816 if (trim(UVC) <> '') then
962 begin 817 begin
963 - v_array1 := Explode(strAux, '#'); 818 + v_array1 := g_oCacic.explode(strAux, '#');
964 strAux := ''; 819 strAux := '';
965 - v_array3 := Explode(UVC, '#'); 820 + v_array3 := g_oCacic.explode(UVC, '#');
966 for v1 := 0 to (v_array1.count)-1 do 821 for v1 := 0 to (v_array1.count)-1 do
967 Begin 822 Begin
968 - v_array2 := Explode(v_array1[v1], ','); 823 + v_array2 := g_oCacic.explode(v_array1[v1], ',');
969 v_achei := 0; 824 v_achei := 0;
970 for v3 := 0 to (v_array3.count)-1 do 825 for v3 := 0 to (v_array3.count)-1 do
971 Begin 826 Begin
972 - v_array4 := Explode(v_array3[v3], ','); 827 + v_array4 := g_oCacic.explode(v_array3[v3], ',');
973 if (v_array4=v_array2) then v_achei := 1; 828 if (v_array4=v_array2) then v_achei := 1;
974 End; 829 End;
975 if (v_achei = 0) then 830 if (v_achei = 0) then
@@ -982,20 +837,20 @@ begin @@ -982,20 +837,20 @@ begin
982 log_debug('Coleta anterior: '+UVC); 837 log_debug('Coleta anterior: '+UVC);
983 log_debug('Coleta atual...: '+strAux); 838 log_debug('Coleta atual...: '+strAux);
984 SetValorDatMemoria('Col_Moni.UVC', strAux, v_tstrCipherOpened1); 839 SetValorDatMemoria('Col_Moni.UVC', strAux, v_tstrCipherOpened1);
985 - CipherClose(p_path_cacic + 'temp\col_moni.dat', v_tstrCipherOpened1); 840 + CipherClose(g_oCacic.getCacicPath + 'temp\col_moni.dat', v_tstrCipherOpened1);
986 end 841 end
987 else 842 else
988 Begin 843 Begin
989 log_debug('Nenhuma Coleta Efetuada'); 844 log_debug('Nenhuma Coleta Efetuada');
990 SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1); 845 SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1);
991 - CipherClose(p_path_cacic + 'temp\col_moni.dat', v_tstrCipherOpened1); 846 + CipherClose(g_oCacic.getCacicPath + 'temp\col_moni.dat', v_tstrCipherOpened1);
992 End; 847 End;
993 848
994 Except 849 Except
995 Begin 850 Begin
996 SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1); 851 SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1);
997 SetValorDatMemoria('Col_Moni.Fim', '99999999', v_tstrCipherOpened1); 852 SetValorDatMemoria('Col_Moni.Fim', '99999999', v_tstrCipherOpened1);
998 - CipherClose(p_path_cacic + 'temp\col_moni.dat', v_tstrCipherOpened1); 853 + CipherClose(g_oCacic.getCacicPath + 'temp\col_moni.dat', v_tstrCipherOpened1);
999 End; 854 End;
1000 End; 855 End;
1001 END; 856 END;
@@ -1021,62 +876,44 @@ begin @@ -1021,62 +876,44 @@ begin
1021 end; 876 end;
1022 end; 877 end;
1023 878
1024 -const  
1025 - CACIC_APP_NAME = 'col_moni';  
1026 -  
1027 -var tstrTripa1 : TStrings;  
1028 - intAux : integer;  
1029 -  
1030 begin 879 begin
1031 g_oCacic := TCACIC.Create(); 880 g_oCacic := TCACIC.Create();
1032 881
1033 if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then 882 if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then
1034 if (ParamCount>0) then 883 if (ParamCount>0) then
1035 - Begin  
1036 - For intAux := 1 to ParamCount do  
1037 - Begin  
1038 - if LowerCase(Copy(ParamStr(intAux),1,13)) = '/p_cipherkey=' then  
1039 - v_CipherKey := Trim(Copy(ParamStr(intAux),14,Length((ParamStr(intAux)))));  
1040 - End;  
1041 -  
1042 - if (trim(v_CipherKey)<>'') then  
1043 - Begin 884 + Begin
  885 + //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini
  886 + tstrTripa1 := g_oCacic.explode(ExtractFilePath(ParamStr(0)),'\');
  887 + v_path_cacic := '';
  888 + For intAux := 0 to tstrTripa1.Count -2 do
  889 + begin
  890 + v_path_cacic := v_path_cacic + tstrTripa1[intAux] + '\';
  891 + end;
  892 +
  893 + g_oCacic.setCacicPath(v_path_cacic);
  894 + v_Debugs := false;
  895 + if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
  896 + Begin
  897 + if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
  898 + Begin
  899 + v_Debugs := true;
  900 + log_diario('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
  901 + End;
  902 + End;
1044 903
1045 - //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini  
1046 - tstrTripa1 := explode(ExtractFilePath(ParamStr(0)),'\');  
1047 - p_path_cacic := '';  
1048 - For intAux := 0 to tstrTripa1.Count -2 do  
1049 - begin  
1050 - p_path_cacic := p_path_cacic + tstrTripa1[intAux] + '\';  
1051 - end; 904 + v_tstrCipherOpened := TStrings.Create;
  905 + v_tstrCipherOpened := CipherOpen(g_oCacic.getDatFileName);
1052 906
1053 - v_Debugs := false;  
1054 - if DirectoryExists(p_path_cacic + 'Temp\Debugs') then  
1055 - Begin  
1056 - if (FormatDateTime('ddmmyyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then  
1057 - Begin  
1058 - v_Debugs := true;  
1059 - log_diario('Pasta "' + p_path_cacic + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');  
1060 - End;  
1061 - End; 907 + v_tstrCipherOpened1 := TStrings.Create;
  908 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'temp\col_moni.dat');
1062 909
1063 - // A chave AES foi obtida no parâmetro p_CipherKey. Recomenda-se que cada empresa altere a sua chave.  
1064 - v_IV := 'abcdefghijklmnop';  
1065 - v_DatFileName := p_path_cacic + 'cacic2.dat';  
1066 - v_tstrCipherOpened := TStrings.Create;  
1067 - v_tstrCipherOpened := CipherOpen(v_DatFileName);  
1068 -  
1069 - v_tstrCipherOpened1 := TStrings.Create;  
1070 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'temp\col_moni.dat');  
1071 -  
1072 - Try  
1073 - Executa_Col_moni;  
1074 - Except  
1075 - SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1);  
1076 - CipherClose(p_path_cacic + 'temp\col_moni.dat', v_tstrCipherOpened1);  
1077 - End;  
1078 - End;  
1079 - End; 910 + Try
  911 + Executa_Col_moni;
  912 + Except
  913 + SetValorDatMemoria('Col_Moni.nada', 'nada', v_tstrCipherOpened1);
  914 + CipherClose(g_oCacic.getCacicPath + 'temp\col_moni.dat', v_tstrCipherOpened1);
  915 + End;
  916 + End;
1080 917
1081 g_oCacic.Free(); 918 g_oCacic.Free();
1082 919
col_moni/col_moni.res
View file @d3353de
No preview for this file type
col_patr/col_patr.dpr
  Diff comments   View file @d3353de
@@ -32,12 +32,12 @@ const @@ -32,12 +32,12 @@ const
32 32
33 var 33 var
34 hwind:HWND; 34 hwind:HWND;
35 - oCacic : TCACIC; 35 + g_oCacic : TCACIC;
36 36
37 begin 37 begin
38 - oCacic := TCACIC.Create(); 38 + g_oCacic := TCACIC.Create();
39 39
40 - if( oCacic.isAppRunning( CACIC_APP_NAME ) ) 40 + if( g_oCacic.isAppRunning( CACIC_APP_NAME ) )
41 then begin 41 then begin
42 hwind := 0; 42 hwind := 0;
43 repeat // The string 'My app' must match your App Title (below) 43 repeat // The string 'My app' must match your App Title (below)
@@ -55,6 +55,6 @@ begin @@ -55,6 +55,6 @@ begin
55 Application.Run; 55 Application.Run;
56 end; 56 end;
57 57
58 - oCacic.Free(); 58 + g_oCacic.Free();
59 59
60 end. 60 end.
col_patr/col_patr.res
View file @d3353de
No preview for this file type
col_patr/main_col_patr.pas
  Diff comments   View file @d3353de
@@ -19,46 +19,40 @@ unit main_col_patr; @@ -19,46 +19,40 @@ unit main_col_patr;
19 19
20 interface 20 interface
21 21
22 -uses IniFiles,  
23 - Windows,  
24 - Sysutils, // Deve ser colocado após o Windows acima, nunca antes  
25 - Registry,  
26 - LibXmlParser,  
27 - XML,  
28 - StdCtrls,  
29 - Controls,  
30 - Classes,  
31 - Forms,  
32 - PJVersionInfo,  
33 - DIALOGS,  
34 - DCPcrypt2,  
35 - DCPrijndael,  
36 - DCPbase64,  
37 - ExtCtrls,  
38 - Math,  
39 - CACIC_Library;  
40 -  
41 -var p_path_cacic : String;  
42 - v_Dados_Patrimonio : TStrings;  
43 - v_CipherKey,  
44 - v_IV,  
45 - v_strCipherClosed,  
46 - v_strCipherOpened,  
47 - v_configs,  
48 - v_option : String;  
49 - v_Debugs,  
50 - l_cs_cipher : boolean;  
51 -  
52 -var v_tstrCipherOpened,  
53 - v_tstrCipherOpened1 : TStrings; 22 +uses
  23 + IniFiles,
  24 + Windows,
  25 + Sysutils, // Deve ser colocado após o Windows acima, nunca antes
  26 + Registry,
  27 + LibXmlParser,
  28 + XML,
  29 + StdCtrls,
  30 + Controls,
  31 + Classes,
  32 + Forms,
  33 + PJVersionInfo,
  34 + DIALOGS,
  35 + ExtCtrls,
  36 + Math,
  37 + CACIC_Library;
54 38
55 var 39 var
56 - g_oCacic : TCACIC; 40 + v_Dados_Patrimonio,
  41 + v_tstrCipherOpened,
  42 + v_tstrCipherOpened1 : TStrings;
57 43
58 -// Some constants that are dependant on the cipher being used  
59 -// Assuming MCRYPT_RIJNDAEL_128 (i.e., 128bit blocksize, 256bit keysize)  
60 -const KeySize = 32; // 32 bytes = 256 bits  
61 - BlockSize = 16; // 16 bytes = 128 bits 44 +var
  45 + v_strCipherClosed,
  46 + v_strCipherOpened,
  47 + v_configs,
  48 + v_option : String;
  49 +
  50 +var
  51 + v_Debugs,
  52 + l_cs_cipher : boolean;
  53 +
  54 +var
  55 + g_oCacic : TCACIC;
62 56
63 type 57 type
64 TFormPatrimonio = class(TForm) 58 TFormPatrimonio = class(TForm)
@@ -94,15 +88,9 @@ type @@ -94,15 +88,9 @@ type
94 function GetValorChaveRegEdit(Chave: String): Variant; 88 function GetValorChaveRegEdit(Chave: String): Variant;
95 function GetRootKey(strRootKey: String): HKEY; 89 function GetRootKey(strRootKey: String): HKEY;
96 Function RemoveCaracteresEspeciais(Texto, p_Fill : String; p_start, p_end:integer) : String; 90 Function RemoveCaracteresEspeciais(Texto, p_Fill : String; p_start, p_end:integer) : String;
97 - function HomeDrive : string;  
98 - Function Implode(p_Array : TStrings ; p_Separador : String) : String;  
99 Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String; 91 Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String;
100 - Function Explode(Texto, Separador : String) : TStrings;  
101 Function CipherOpen(p_DatFileName : string) : TStrings; 92 Function CipherOpen(p_DatFileName : string) : TStrings;
102 Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String; 93 Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String;
103 - function PadWithZeros(const str : string; size : integer) : string;  
104 - function EnCrypt(p_Data : String) : String;  
105 - function DeCrypt(p_Data : String) : String;  
106 procedure FormCreate(Sender: TObject); 94 procedure FormCreate(Sender: TObject);
107 procedure MontaCombos; 95 procedure MontaCombos;
108 procedure MontaInterface; 96 procedure MontaInterface;
@@ -175,21 +163,6 @@ var VetorUON1 : TVetorUON1; @@ -175,21 +163,6 @@ var VetorUON1 : TVetorUON1;
175 // Esse array é usado apenas para saber a uon2, após a filtragem pelo uon1 163 // Esse array é usado apenas para saber a uon2, após a filtragem pelo uon1
176 VetorUON2Filtrado : array of String; 164 VetorUON2Filtrado : array of String;
177 165
178 -// Pad a string with zeros so that it is a multiple of size  
179 -function TFormPatrimonio.PadWithZeros(const str : string; size : integer) : string;  
180 -var  
181 - origsize, i : integer;  
182 -begin  
183 - Result := str;  
184 - origsize := Length(Result);  
185 - if ((origsize mod size) <> 0) or (origsize = 0) then  
186 - begin  
187 - SetLength(Result,((origsize div size)+1)*size);  
188 - for i := origsize+1 to Length(Result) do  
189 - Result[i] := #0;  
190 - end;  
191 -end;  
192 -  
193 function TFormPatrimonio.GetFolderDate(Folder: string): TDateTime; 166 function TFormPatrimonio.GetFolderDate(Folder: string): TDateTime;
194 var 167 var
195 Rec: TSearchRec; 168 Rec: TSearchRec;
@@ -211,115 +184,6 @@ begin @@ -211,115 +184,6 @@ begin
211 end; 184 end;
212 end; 185 end;
213 186
214 -// Encrypt a string and return the Base64 encoded result  
215 -function TFormPatrimonio.EnCrypt(p_Data : String) : String;  
216 -var  
217 - l_Cipher : TDCP_rijndael;  
218 - l_Data, l_Key, l_IV : string;  
219 -begin  
220 - Try  
221 - if l_cs_cipher then  
222 - Begin  
223 -  
224 - // Pad Key, IV and Data with zeros as appropriate  
225 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
226 - l_IV := PadWithZeros(v_IV,BlockSize);  
227 - l_Data := PadWithZeros(p_Data,BlockSize);  
228 -  
229 - // Create the cipher and initialise according to the key length  
230 - l_Cipher := TDCP_rijndael.Create(nil);  
231 - if Length(v_CipherKey) <= 16 then  
232 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
233 - else if Length(v_CipherKey) <= 24 then  
234 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
235 - else  
236 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
237 -  
238 - // Encrypt the data  
239 - l_Cipher.EncryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
240 -  
241 - // Free the cipher and clear sensitive information  
242 - l_Cipher.Free;  
243 - FillChar(l_Key[1],Length(l_Key),0);  
244 -  
245 - // Return the Base64 encoded result  
246 - Result := Base64EncodeStr(l_Data);  
247 - End  
248 - else  
249 - Begin  
250 - log_DEBUG('Criptografia(DESATIVADA) de "'+p_Data+'"');  
251 - Result := p_Data;  
252 - End;  
253 - Except  
254 - log_diario('Erro no Processo de Criptografia');  
255 - End;  
256 -end;  
257 -  
258 -function TFormPatrimonio.DeCrypt(p_Data : String) : String;  
259 -var  
260 - l_Cipher : TDCP_rijndael;  
261 - l_Data, l_Key, l_IV : string;  
262 -begin  
263 - Try  
264 - if l_cs_cipher then  
265 - Begin  
266 - // Pad Key and IV with zeros as appropriate  
267 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
268 - l_IV := PadWithZeros(v_IV,BlockSize);  
269 -  
270 - // Decode the Base64 encoded string  
271 - l_Data := Base64DecodeStr(p_Data);  
272 -  
273 - // Create the cipher and initialise according to the key length  
274 - l_Cipher := TDCP_rijndael.Create(nil);  
275 - if Length(v_CipherKey) <= 16 then  
276 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
277 - else if Length(v_CipherKey) <= 24 then  
278 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
279 - else  
280 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
281 -  
282 - // Decrypt the data  
283 - l_Cipher.DecryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
284 -  
285 - // Free the cipher and clear sensitive information  
286 - l_Cipher.Free;  
287 - FillChar(l_Key[1],Length(l_Key),0);  
288 - log_DEBUG('DeCriptografia(ATIVADA) de "'+p_Data+'" => "'+l_Data+'"');  
289 - // Return the result  
290 - Result := trim(l_Data);  
291 - End  
292 - else  
293 - Begin  
294 - log_DEBUG('DeCriptografia(DESATIVADA) de "'+p_Data+'"');  
295 - Result := p_Data;  
296 - End;  
297 - Except  
298 - log_diario('Erro no Processo de Decriptografia');  
299 - End;  
300 -end;  
301 -  
302 -function TFormPatrimonio.HomeDrive : string;  
303 -var  
304 -WinDir : array [0..144] of char;  
305 -begin  
306 -GetWindowsDirectory (WinDir, 144);  
307 -Result := StrPas (WinDir);  
308 -end;  
309 -  
310 -Function TFormPatrimonio.Implode(p_Array : TStrings ; p_Separador : String) : String;  
311 -var intAux : integer;  
312 - strAux : string;  
313 -Begin  
314 - strAux := '';  
315 - For intAux := 0 To p_Array.Count -1 do  
316 - Begin  
317 - if (strAux<>'') then strAux := strAux + p_Separador;  
318 - strAux := strAux + p_Array[intAux];  
319 - End;  
320 - Implode := strAux;  
321 -end;  
322 -  
323 Function TFormPatrimonio.CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String; 187 Function TFormPatrimonio.CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String;
324 var v_strCipherOpenImploded : string; 188 var v_strCipherOpenImploded : string;
325 v_DatFile : TextFile; 189 v_DatFile : TextFile;
@@ -333,11 +197,11 @@ begin @@ -333,11 +197,11 @@ begin
333 Rewrite (v_DatFile); 197 Rewrite (v_DatFile);
334 Append(v_DatFile); 198 Append(v_DatFile);
335 199
336 - v_strCipherOpenImploded := FormPatrimonio.Implode(p_tstrCipherOpened,'=CacicIsFree='); 200 + v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);
337 v_cs_cipher := l_cs_cipher; 201 v_cs_cipher := l_cs_cipher;
338 l_cs_cipher := true; 202 l_cs_cipher := true;
339 log_DEBUG('Rotina de Fechamento do cacic2.dat ATIVANDO criptografia.'); 203 log_DEBUG('Rotina de Fechamento do cacic2.dat ATIVANDO criptografia.');
340 - v_strCipherClosed := EnCrypt(v_strCipherOpenImploded); 204 + v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);
341 l_cs_cipher := v_cs_cipher; 205 l_cs_cipher := v_cs_cipher;
342 log_DEBUG('Rotina de Fechamento do cacic2.dat RESTAURANDO estado da criptografia.'); 206 log_DEBUG('Rotina de Fechamento do cacic2.dat RESTAURANDO estado da criptografia.');
343 207
@@ -348,37 +212,6 @@ begin @@ -348,37 +212,6 @@ begin
348 end; 212 end;
349 end; 213 end;
350 214
351 -Function TFormPatrimonio.Explode(Texto, Separador : String) : TStrings;  
352 -var  
353 - strItem : String;  
354 - ListaAuxUTILS : TStrings;  
355 - NumCaracteres,  
356 - TamanhoSeparador,  
357 - I : Integer;  
358 -Begin  
359 - ListaAuxUTILS := TStringList.Create;  
360 - strItem := '';  
361 - NumCaracteres := Length(Texto);  
362 - TamanhoSeparador := Length(Separador);  
363 - I := 1;  
364 - While I <= NumCaracteres Do  
365 - Begin  
366 - If (Copy(Texto,I,TamanhoSeparador) = Separador) or (I = NumCaracteres) Then  
367 - Begin  
368 - if (I = NumCaracteres) then strItem := strItem + Texto[I];  
369 - ListaAuxUTILS.Add(trim(strItem));  
370 - strItem := '';  
371 - I := I + (TamanhoSeparador-1);  
372 - end  
373 - Else  
374 - strItem := strItem + Texto[I];  
375 -  
376 - I := I + 1;  
377 - End;  
378 - Explode := ListaAuxUTILS;  
379 -end;  
380 -  
381 -  
382 Function TFormPatrimonio.CipherOpen(p_DatFileName : string) : TStrings; 215 Function TFormPatrimonio.CipherOpen(p_DatFileName : string) : TStrings;
383 var v_DatFile : TextFile; 216 var v_DatFile : TextFile;
384 v_strCipherOpened, 217 v_strCipherOpened,
@@ -405,14 +238,14 @@ begin @@ -405,14 +238,14 @@ begin
405 v_cs_cipher := l_cs_cipher; 238 v_cs_cipher := l_cs_cipher;
406 l_cs_cipher := true; 239 l_cs_cipher := true;
407 log_DEBUG('Rotina de Abertura do cacic2.dat ATIVANDO criptografia.'); 240 log_DEBUG('Rotina de Abertura do cacic2.dat ATIVANDO criptografia.');
408 - v_strCipherOpened:= DeCrypt(v_strCipherClosed); 241 + v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);
409 l_cs_cipher := v_cs_cipher; 242 l_cs_cipher := v_cs_cipher;
410 log_DEBUG('Rotina de Abertura do cacic2.dat RESTAURANDO estado da criptografia.'); 243 log_DEBUG('Rotina de Abertura do cacic2.dat RESTAURANDO estado da criptografia.');
411 end; 244 end;
412 if (trim(v_strCipherOpened)<>'') then 245 if (trim(v_strCipherOpened)<>'') then
413 - Result := explode(v_strCipherOpened,'=CacicIsFree=') 246 + Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)
414 else 247 else
415 - Result := explode('Configs.ID_SO=CacicIsFree='+ g_oCacic.getWindowsStrId() +'=CacicIsFree=Configs.Endereco_WS=CacicIsFree=/cacic2/ws/','=CacicIsFree='); 248 + Result := g_oCacic.explode('Configs.ID_SO' + g_oCacic.getSeparatorKey + g_oCacic.getWindowsStrId() + g_oCacic.getSeparatorKey + 'Configs.Endereco_WS' + g_oCacic.getSeparatorKey + '/cacic2/ws/',g_oCacic.getSeparatorKey);
416 249
417 if Result.Count mod 2 = 0 then 250 if Result.Count mod 2 = 0 then
418 Result.Add(''); 251 Result.Add('');
@@ -453,7 +286,7 @@ var RegEditSet: TRegistry; @@ -453,7 +286,7 @@ var RegEditSet: TRegistry;
453 ListaAuxSet : TStrings; 286 ListaAuxSet : TStrings;
454 I : Integer; 287 I : Integer;
455 begin 288 begin
456 - ListaAuxSet := Explode(Chave, '); 289 + ListaAuxSet := g_oCacic.explode(Chave, ');
457 strRootKey := ListaAuxSet[0]; 290 strRootKey := ListaAuxSet[0];
458 For I := 1 To ListaAuxSet.Count - 2 Do strKey := strKey + ListaAuxSet[I] + '\'; 291 For I := 1 To ListaAuxSet.Count - 2 Do strKey := strKey + ListaAuxSet[I] + '\';
459 strValue := ListaAuxSet[ListaAuxSet.Count - 1]; 292 strValue := ListaAuxSet[ListaAuxSet.Count - 1];
@@ -530,8 +363,8 @@ var @@ -530,8 +363,8 @@ var
530 strDataArqLocal, strDataAtual : string; 363 strDataArqLocal, strDataAtual : string;
531 begin 364 begin
532 try 365 try
533 - FileSetAttr (p_path_cacic + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
534 - AssignFile(HistoricoLog,p_path_cacic + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile} 366 + FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
  367 + AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
535 {$IOChecks off} 368 {$IOChecks off}
536 Reset(HistoricoLog); {Abre o arquivo texto} 369 Reset(HistoricoLog); {Abre o arquivo texto}
537 {$IOChecks on} 370 {$IOChecks on}
@@ -541,7 +374,7 @@ begin @@ -541,7 +374,7 @@ begin
541 Append(HistoricoLog); 374 Append(HistoricoLog);
542 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <======================='); 375 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
543 end; 376 end;
544 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(p_path_cacic + 'cacic2.log'))); 377 + DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));
545 DateTimeToString(strDataAtual , 'yyyymmdd', Date); 378 DateTimeToString(strDataAtual , 'yyyymmdd', Date);
546 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual... 379 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
547 begin 380 begin
@@ -581,20 +414,20 @@ end; @@ -581,20 +414,20 @@ end;
581 414
582 procedure TFormPatrimonio.RecuperaValoresAnteriores; 415 procedure TFormPatrimonio.RecuperaValoresAnteriores;
583 begin 416 begin
584 - Etiqueta1.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta1', v_configs));  
585 - Etiqueta1a.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta1a', v_configs)); 417 + Etiqueta1.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta1', v_configs));
  418 + Etiqueta1a.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta1a', v_configs));
586 419
587 var_id_unid_organizacional_nivel1 := GetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel1',v_tstrCipherOpened); 420 var_id_unid_organizacional_nivel1 := GetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel1',v_tstrCipherOpened);
588 - if (var_id_unid_organizacional_nivel1='') then var_id_unid_organizacional_nivel1 := DeCrypt(XML.XML_RetornaValor('ID_UON1', v_configs)); 421 + if (var_id_unid_organizacional_nivel1='') then var_id_unid_organizacional_nivel1 := g_oCacic.deCrypt(XML.XML_RetornaValor('ID_UON1', v_configs));
589 422
590 var_id_unid_organizacional_nivel1a := GetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel1a',v_tstrCipherOpened); 423 var_id_unid_organizacional_nivel1a := GetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel1a',v_tstrCipherOpened);
591 - if (var_id_unid_organizacional_nivel1a='') then var_id_unid_organizacional_nivel1a := DeCrypt(XML.XML_RetornaValor('ID_UON1a', v_configs)); 424 + if (var_id_unid_organizacional_nivel1a='') then var_id_unid_organizacional_nivel1a := g_oCacic.deCrypt(XML.XML_RetornaValor('ID_UON1a', v_configs));
592 425
593 var_id_unid_organizacional_nivel2 := GetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel2',v_tstrCipherOpened); 426 var_id_unid_organizacional_nivel2 := GetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel2',v_tstrCipherOpened);
594 - if (var_id_unid_organizacional_nivel2='') then var_id_unid_organizacional_nivel2 := DeCrypt(XML.XML_RetornaValor('ID_UON2', v_configs)); 427 + if (var_id_unid_organizacional_nivel2='') then var_id_unid_organizacional_nivel2 := g_oCacic.deCrypt(XML.XML_RetornaValor('ID_UON2', v_configs));
595 428
596 var_te_localizacao_complementar := GetValorDatMemoria('Patrimonio.te_localizacao_complementar',v_tstrCipherOpened); 429 var_te_localizacao_complementar := GetValorDatMemoria('Patrimonio.te_localizacao_complementar',v_tstrCipherOpened);
597 - if (var_te_localizacao_complementar='') then var_te_localizacao_complementar := DeCrypt(XML.XML_RetornaValor('TE_LOC_COMPL', v_configs)); 430 + if (var_te_localizacao_complementar='') then var_te_localizacao_complementar := g_oCacic.deCrypt(XML.XML_RetornaValor('TE_LOC_COMPL', v_configs));
598 431
599 // Tentarei buscar informação gravada no Registry 432 // Tentarei buscar informação gravada no Registry
600 var_te_info_patrimonio1 := GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1'); 433 var_te_info_patrimonio1 := GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1');
@@ -602,13 +435,13 @@ begin @@ -602,13 +435,13 @@ begin
602 Begin 435 Begin
603 var_te_info_patrimonio1 := GetValorDatMemoria('Patrimonio.te_info_patrimonio1',v_tstrCipherOpened); 436 var_te_info_patrimonio1 := GetValorDatMemoria('Patrimonio.te_info_patrimonio1',v_tstrCipherOpened);
604 End; 437 End;
605 - if (var_te_info_patrimonio1='') then var_te_info_patrimonio1 := DeCrypt(XML.XML_RetornaValor('TE_INFO1', v_configs)); 438 + if (var_te_info_patrimonio1='') then var_te_info_patrimonio1 := g_oCacic.deCrypt(XML.XML_RetornaValor('TE_INFO1', v_configs));
606 439
607 var_te_info_patrimonio2 := GetValorDatMemoria('Patrimonio.te_info_patrimonio2',v_tstrCipherOpened); 440 var_te_info_patrimonio2 := GetValorDatMemoria('Patrimonio.te_info_patrimonio2',v_tstrCipherOpened);
608 - if (var_te_info_patrimonio2='') then var_te_info_patrimonio2 := DeCrypt(XML.XML_RetornaValor('TE_INFO2', v_configs)); 441 + if (var_te_info_patrimonio2='') then var_te_info_patrimonio2 := g_oCacic.deCrypt(XML.XML_RetornaValor('TE_INFO2', v_configs));
609 442
610 var_te_info_patrimonio3 := GetValorDatMemoria('Patrimonio.te_info_patrimonio3',v_tstrCipherOpened); 443 var_te_info_patrimonio3 := GetValorDatMemoria('Patrimonio.te_info_patrimonio3',v_tstrCipherOpened);
611 - if (var_te_info_patrimonio3='') then var_te_info_patrimonio3 := DeCrypt(XML.XML_RetornaValor('TE_INFO3', v_configs)); 444 + if (var_te_info_patrimonio3='') then var_te_info_patrimonio3 := g_oCacic.deCrypt(XML.XML_RetornaValor('TE_INFO3', v_configs));
612 445
613 // Tentarei buscar informação gravada no Registry 446 // Tentarei buscar informação gravada no Registry
614 var_te_info_patrimonio4 := GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4'); 447 var_te_info_patrimonio4 := GetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4');
@@ -616,13 +449,13 @@ begin @@ -616,13 +449,13 @@ begin
616 Begin 449 Begin
617 var_te_info_patrimonio4 := GetValorDatMemoria('Patrimonio.te_info_patrimonio4',v_tstrCipherOpened); 450 var_te_info_patrimonio4 := GetValorDatMemoria('Patrimonio.te_info_patrimonio4',v_tstrCipherOpened);
618 End; 451 End;
619 - if (var_te_info_patrimonio4='') then var_te_info_patrimonio4 := DeCrypt(XML.XML_RetornaValor('TE_INFO4', v_configs)); 452 + if (var_te_info_patrimonio4='') then var_te_info_patrimonio4 := g_oCacic.deCrypt(XML.XML_RetornaValor('TE_INFO4', v_configs));
620 453
621 var_te_info_patrimonio5 := GetValorDatMemoria('Patrimonio.te_info_patrimonio5',v_tstrCipherOpened); 454 var_te_info_patrimonio5 := GetValorDatMemoria('Patrimonio.te_info_patrimonio5',v_tstrCipherOpened);
622 - if (var_te_info_patrimonio5='') then var_te_info_patrimonio5 := DeCrypt(XML.XML_RetornaValor('TE_INFO5', v_configs)); 455 + if (var_te_info_patrimonio5='') then var_te_info_patrimonio5 := g_oCacic.deCrypt(XML.XML_RetornaValor('TE_INFO5', v_configs));
623 456
624 var_te_info_patrimonio6 := GetValorDatMemoria('Patrimonio.te_info_patrimonio6',v_tstrCipherOpened); 457 var_te_info_patrimonio6 := GetValorDatMemoria('Patrimonio.te_info_patrimonio6',v_tstrCipherOpened);
625 - if (var_te_info_patrimonio6='') then var_te_info_patrimonio6 := DeCrypt(XML.XML_RetornaValor('TE_INFO6', v_configs)); 458 + if (var_te_info_patrimonio6='') then var_te_info_patrimonio6 := g_oCacic.deCrypt(XML.XML_RetornaValor('TE_INFO6', v_configs));
626 459
627 Try 460 Try
628 id_unid_organizacional_nivel1.ItemIndex := id_unid_organizacional_nivel1.Items.IndexOf(RetornaValorVetorUON1(var_id_unid_organizacional_nivel1)); 461 id_unid_organizacional_nivel1.ItemIndex := id_unid_organizacional_nivel1.Items.IndexOf(RetornaValorVetorUON1(var_id_unid_organizacional_nivel1));
@@ -684,7 +517,7 @@ begin @@ -684,7 +517,7 @@ begin
684 strTagName := '' 517 strTagName := ''
685 else if (Parser.CurPartType in [ptContent, ptCData]) and (strTagName='IT1')Then 518 else if (Parser.CurPartType in [ptContent, ptCData]) and (strTagName='IT1')Then
686 Begin 519 Begin
687 - strAux1 := DeCrypt(Parser.CurContent); 520 + strAux1 := g_oCacic.deCrypt(Parser.CurContent);
688 if (strItemName = 'ID1') then 521 if (strItemName = 'ID1') then
689 Begin 522 Begin
690 VetorUON1[i].id1 := strAux1; 523 VetorUON1[i].id1 := strAux1;
@@ -716,7 +549,7 @@ begin @@ -716,7 +549,7 @@ begin
716 strTagName := '' 549 strTagName := ''
717 else if (Parser.CurPartType in [ptContent, ptCData]) and (strTagName='IT1A')Then 550 else if (Parser.CurPartType in [ptContent, ptCData]) and (strTagName='IT1A')Then
718 Begin 551 Begin
719 - strAux1 := DeCrypt(Parser.CurContent); 552 + strAux1 := g_oCacic.deCrypt(Parser.CurContent);
720 if (strItemName = 'ID1') then 553 if (strItemName = 'ID1') then
721 Begin 554 Begin
722 VetorUON1a[i].id1 := strAux1; 555 VetorUON1a[i].id1 := strAux1;
@@ -762,7 +595,7 @@ begin @@ -762,7 +595,7 @@ begin
762 strTagName := '' 595 strTagName := ''
763 else if (Parser.CurPartType in [ptContent, ptCData]) and (strTagName='IT2')Then 596 else if (Parser.CurPartType in [ptContent, ptCData]) and (strTagName='IT2')Then
764 Begin 597 Begin
765 - strAux1 := DeCrypt(Parser.CurContent); 598 + strAux1 := g_oCacic.deCrypt(Parser.CurContent);
766 if (strItemName = 'ID1A') then 599 if (strItemName = 'ID1A') then
767 Begin 600 Begin
768 VetorUON2[i].id1a := strAux1; 601 VetorUON2[i].id1a := strAux1;
@@ -874,7 +707,7 @@ var strIdUON1, @@ -874,7 +707,7 @@ var strIdUON1,
874 tstrAux : TStrings; 707 tstrAux : TStrings;
875 begin 708 begin
876 tstrAux := TStrings.Create; 709 tstrAux := TStrings.Create;
877 - tstrAux := explode(VetorUON2Filtrado[id_unid_organizacional_nivel2.ItemIndex],'#'); 710 + tstrAux := g_oCacic.explode(VetorUON2Filtrado[id_unid_organizacional_nivel2.ItemIndex],'#');
878 Try 711 Try
879 strIdUON1 := VetorUON1[id_unid_organizacional_nivel1.ItemIndex].id1; 712 strIdUON1 := VetorUON1[id_unid_organizacional_nivel1.ItemIndex].id1;
880 strIdUON1a := VetorUON1aFiltrado[id_unid_organizacional_nivel1a.ItemIndex]; 713 strIdUON1a := VetorUON1aFiltrado[id_unid_organizacional_nivel1a.ItemIndex];
@@ -909,12 +742,12 @@ begin @@ -909,12 +742,12 @@ begin
909 SetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4', te_info_patrimonio4.Text); 742 SetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4', te_info_patrimonio4.Text);
910 SetValorDatMemoria('Col_Patr.te_info_patrimonio5' , te_info_patrimonio5.Text, v_tstrCipherOpened1); 743 SetValorDatMemoria('Col_Patr.te_info_patrimonio5' , te_info_patrimonio5.Text, v_tstrCipherOpened1);
911 SetValorDatMemoria('Col_Patr.te_info_patrimonio6' , te_info_patrimonio6.Text, v_tstrCipherOpened1); 744 SetValorDatMemoria('Col_Patr.te_info_patrimonio6' , te_info_patrimonio6.Text, v_tstrCipherOpened1);
912 - CipherClose(p_path_cacic + 'temp\col_patr.dat', v_tstrCipherOpened1); 745 + CipherClose(g_oCacic.getCacicPath + 'temp\col_patr.dat', v_tstrCipherOpened1);
913 end 746 end
914 else 747 else
915 Begin 748 Begin
916 SetValorDatMemoria('Col_Patr.nada', 'nada', v_tstrCipherOpened1); 749 SetValorDatMemoria('Col_Patr.nada', 'nada', v_tstrCipherOpened1);
917 - CipherClose(p_path_cacic + 'temp\col_patr.dat', v_tstrCipherOpened1); 750 + CipherClose(g_oCacic.getCacicPath + 'temp\col_patr.dat', v_tstrCipherOpened1);
918 End; 751 End;
919 Application.Terminate; 752 Application.Terminate;
920 end; 753 end;
@@ -924,21 +757,21 @@ Begin @@ -924,21 +757,21 @@ Begin
924 // Se houve alteração na configuração da interface, atualizo os dados no registro e depois monto a interface. 757 // Se houve alteração na configuração da interface, atualizo os dados no registro e depois monto a interface.
925 // Caso, contrário, pego direto do registro. 758 // Caso, contrário, pego direto do registro.
926 759
927 - Etiqueta1.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta1', v_configs));  
928 - id_unid_organizacional_nivel1.Hint := DeCrypt(XML.XML_RetornaValor('te_help_etiqueta1', v_configs)); 760 + Etiqueta1.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta1', v_configs));
  761 + id_unid_organizacional_nivel1.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta1', v_configs));
929 762
930 - Etiqueta1a.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta1a', v_configs));  
931 - id_unid_organizacional_nivel1a.Hint := DeCrypt(XML.XML_RetornaValor('te_help_etiqueta1a', v_configs)); 763 + Etiqueta1a.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta1a', v_configs));
  764 + id_unid_organizacional_nivel1a.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta1a', v_configs));
932 765
933 - Etiqueta2.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta2', v_configs));  
934 - id_unid_organizacional_nivel2.Hint := DeCrypt(XML.XML_RetornaValor('te_help_etiqueta2', v_configs)); 766 + Etiqueta2.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta2', v_configs));
  767 + id_unid_organizacional_nivel2.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta2', v_configs));
935 768
936 - Etiqueta3.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta3', v_configs)); 769 + Etiqueta3.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta3', v_configs));
937 770
938 - if (DeCrypt(XML.XML_RetornaValor('in_exibir_etiqueta4', v_configs)) = 'S') then 771 + if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta4', v_configs)) = 'S') then
939 begin 772 begin
940 - Etiqueta4.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta4', v_configs));  
941 - te_info_patrimonio1.Hint := DeCrypt(XML.XML_RetornaValor('te_help_etiqueta4', v_configs)); 773 + Etiqueta4.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta4', v_configs));
  774 + te_info_patrimonio1.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta4', v_configs));
942 te_info_patrimonio1.visible := True; 775 te_info_patrimonio1.visible := True;
943 end 776 end
944 else begin 777 else begin
@@ -947,10 +780,10 @@ Begin @@ -947,10 +780,10 @@ Begin
947 780
948 end; 781 end;
949 782
950 - if (DeCrypt(XML.XML_RetornaValor('in_exibir_etiqueta5', v_configs)) = 'S') then 783 + if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta5', v_configs)) = 'S') then
951 begin 784 begin
952 - Etiqueta5.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta5', v_configs));  
953 - te_info_patrimonio2.Hint := DeCrypt(XML.XML_RetornaValor('te_help_etiqueta5', v_configs)); 785 + Etiqueta5.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta5', v_configs));
  786 + te_info_patrimonio2.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta5', v_configs));
954 te_info_patrimonio2.visible := True; 787 te_info_patrimonio2.visible := True;
955 end 788 end
956 else begin 789 else begin
@@ -958,10 +791,10 @@ Begin @@ -958,10 +791,10 @@ Begin
958 te_info_patrimonio2.visible := False; 791 te_info_patrimonio2.visible := False;
959 end; 792 end;
960 793
961 - if (DeCrypt(XML.XML_RetornaValor('in_exibir_etiqueta6', v_configs)) = 'S') then 794 + if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta6', v_configs)) = 'S') then
962 begin 795 begin
963 - Etiqueta6.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta6', v_configs));  
964 - te_info_patrimonio3.Hint := DeCrypt(XML.XML_RetornaValor('te_help_etiqueta6', v_configs)); 796 + Etiqueta6.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta6', v_configs));
  797 + te_info_patrimonio3.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta6', v_configs));
965 te_info_patrimonio3.visible := True; 798 te_info_patrimonio3.visible := True;
966 end 799 end
967 else begin 800 else begin
@@ -969,10 +802,10 @@ Begin @@ -969,10 +802,10 @@ Begin
969 te_info_patrimonio3.visible := False; 802 te_info_patrimonio3.visible := False;
970 end; 803 end;
971 804
972 - if (DeCrypt(XML.XML_RetornaValor('in_exibir_etiqueta7', v_configs)) = 'S') then 805 + if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta7', v_configs)) = 'S') then
973 begin 806 begin
974 - Etiqueta7.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta7', v_configs));  
975 - te_info_patrimonio4.Hint := DeCrypt(XML.XML_RetornaValor('te_help_etiqueta7', v_configs)); 807 + Etiqueta7.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta7', v_configs));
  808 + te_info_patrimonio4.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta7', v_configs));
976 te_info_patrimonio4.visible := True; 809 te_info_patrimonio4.visible := True;
977 end else 810 end else
978 begin 811 begin
@@ -980,10 +813,10 @@ Begin @@ -980,10 +813,10 @@ Begin
980 te_info_patrimonio4.visible := False; 813 te_info_patrimonio4.visible := False;
981 end; 814 end;
982 815
983 - if (DeCrypt(XML.XML_RetornaValor('in_exibir_etiqueta8', v_configs)) = 'S') then 816 + if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta8', v_configs)) = 'S') then
984 begin 817 begin
985 - Etiqueta8.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta8', v_configs));  
986 - te_info_patrimonio5.Hint := DeCrypt(XML.XML_RetornaValor('te_help_etiqueta8', v_configs)); 818 + Etiqueta8.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta8', v_configs));
  819 + te_info_patrimonio5.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta8', v_configs));
987 te_info_patrimonio5.visible := True; 820 te_info_patrimonio5.visible := True;
988 end else 821 end else
989 begin 822 begin
@@ -991,10 +824,10 @@ Begin @@ -991,10 +824,10 @@ Begin
991 te_info_patrimonio5.visible := False; 824 te_info_patrimonio5.visible := False;
992 end; 825 end;
993 826
994 - if (DeCrypt(XML.XML_RetornaValor('in_exibir_etiqueta9', v_configs)) = 'S') then 827 + if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta9', v_configs)) = 'S') then
995 begin 828 begin
996 - Etiqueta9.Caption := DeCrypt(XML.XML_RetornaValor('te_etiqueta9', v_configs));  
997 - te_info_patrimonio6.Hint := DeCrypt(XML.XML_RetornaValor('te_help_etiqueta9', v_configs)); 829 + Etiqueta9.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta9', v_configs));
  830 + te_info_patrimonio6.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta9', v_configs));
998 te_info_patrimonio6.visible := True; 831 te_info_patrimonio6.visible := True;
999 end 832 end
1000 else begin 833 else begin
@@ -1006,7 +839,7 @@ end; @@ -1006,7 +839,7 @@ end;
1006 procedure TFormPatrimonio.FormClose(Sender: TObject; var Action: TCloseAction); 839 procedure TFormPatrimonio.FormClose(Sender: TObject; var Action: TCloseAction);
1007 begin 840 begin
1008 SetValorDatMemoria('Col_Patr.nada', 'nada', v_tstrCipherOpened1); 841 SetValorDatMemoria('Col_Patr.nada', 'nada', v_tstrCipherOpened1);
1009 - CipherClose(p_path_cacic + 'temp\col_patr.dat', v_tstrCipherOpened1); 842 + CipherClose(g_oCacic.getCacicPath + 'temp\col_patr.dat', v_tstrCipherOpened1);
1010 Application.Terminate; 843 Application.Terminate;
1011 end; 844 end;
1012 // Função adaptada de http://www.latiumsoftware.com/en/delphi/00004.php 845 // Função adaptada de http://www.latiumsoftware.com/en/delphi/00004.php
@@ -1020,7 +853,7 @@ var RegEditGet: TRegistry; @@ -1020,7 +853,7 @@ var RegEditGet: TRegistry;
1020 begin 853 begin
1021 try 854 try
1022 Result := ''; 855 Result := '';
1023 - ListaAuxGet := Explode(Chave, '); 856 + ListaAuxGet := g_oCacic.explode(Chave, ');
1024 857
1025 strRootKey := ListaAuxGet[0]; 858 strRootKey := ListaAuxGet[0];
1026 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\'; 859 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';
@@ -1069,104 +902,94 @@ Begin @@ -1069,104 +902,94 @@ Begin
1069 end; 902 end;
1070 903
1071 procedure TFormPatrimonio.FormCreate(Sender: TObject); 904 procedure TFormPatrimonio.FormCreate(Sender: TObject);
1072 -var boolColeta : boolean;  
1073 - tstrTripa1 : TStrings;  
1074 - i,intAux : integer;  
1075 - v_Aux : String; 905 +var boolColeta : boolean;
  906 + tstrTripa1 : TStrings;
  907 + i,intAux : integer;
  908 + v_Aux,
  909 + v_path_cacic : String;
1076 Begin 910 Begin
1077 g_oCacic := TCACIC.Create(); 911 g_oCacic := TCACIC.Create();
1078 912
1079 if (ParamCount>0) then 913 if (ParamCount>0) then
1080 Begin 914 Begin
1081 FormPatrimonio.lbVersao.Caption := 'Versão: ' + GetVersionInfo(ParamStr(0)); 915 FormPatrimonio.lbVersao.Caption := 'Versão: ' + GetVersionInfo(ParamStr(0));
  916 +
  917 + v_option := 'system';
1082 For intAux := 1 to ParamCount do 918 For intAux := 1 to ParamCount do
1083 Begin 919 Begin
1084 - if LowerCase(Copy(ParamStr(intAux),1,13)) = '/p_cipherkey=' then  
1085 - v_CipherKey := Trim(Copy(ParamStr(intAux),14,Length((ParamStr(intAux))))); 920 + if LowerCase(Copy(ParamStr(intAux),1,10)) = '/p_option=' then
  921 + v_option := Trim(Copy(ParamStr(intAux),11,Length((ParamStr(intAux)))));
1086 End; 922 End;
1087 923
1088 - if (trim(v_CipherKey)<>'') then 924 + tstrTripa1 := g_oCacic.explode(ExtractFilePath(Application.Exename),'\'); //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic
  925 + v_path_cacic := '';
  926 + For i := 0 to tstrTripa1.Count -2 do
  927 + v_path_cacic := v_path_cacic + tstrTripa1[i] + '\';
  928 +
  929 + g_oCacic.setCacicPath(v_path_cacic);
  930 + v_Debugs := false;
  931 + if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
  932 + Begin
  933 + if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
  934 + Begin
  935 + v_Debugs := true;
  936 + log_DEBUG('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
  937 + End;
  938 + End;
  939 +
  940 + v_tstrCipherOpened := TStrings.Create;
  941 + v_tstrCipherOpened := CipherOpen(g_oCacic.getCacicPath + 'cacic2.dat');
  942 +
  943 + v_tstrCipherOpened1 := TStrings.Create;
  944 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'temp\col_patr.dat');
  945 +
  946 + // Os valores possíveis serão 0-DESLIGADO 1-LIGADO 2-ESPERA PARA LIGAR (Será transformado em "1") 3-Ainda se comunicará com o Gerente WEB
  947 + l_cs_cipher := false;
  948 + v_Aux := GetValorDatMemoria('Configs.CS_CIPHER', v_tstrCipherOpened);
  949 + if (v_Aux='1')then
  950 + Begin
  951 + l_cs_cipher := true;
  952 + End;
  953 +
  954 + Try
  955 + boolColeta := false;
  956 + if (GetValorDatMemoria('Patrimonio.in_alteracao_fisica',v_tstrCipherOpened)= 'S') then
1089 Begin 957 Begin
1090 - v_option := 'system';  
1091 - For intAux := 1 to ParamCount do  
1092 - Begin  
1093 - if LowerCase(Copy(ParamStr(intAux),1,10)) = '/p_option=' then  
1094 - v_option := Trim(Copy(ParamStr(intAux),11,Length((ParamStr(intAux)))));  
1095 - End; 958 + // Solicita o cadastramento de informações de patrimõnio caso seja detectado remanejamento para uma nova rede.
  959 + MessageDlg('Atenção: foi identificada uma alteração na localização física deste computador. Por favor, confirme as informações que serão apresentadas na tela que será exibida a seguir.', mtInformation, [mbOk], 0);
  960 + boolColeta := true;
  961 + End
  962 + Else if (GetValorDatMemoria('Patrimonio.in_renovacao_informacoes',v_tstrCipherOpened)= 'S') and (v_option='system') then
  963 + Begin
  964 + // Solicita o cadastramento de informações de patrimõnio caso tenha completado o prazo configurado para renovação de informações.
  965 + MessageDlg('Atenção: é necessário o preenchimento/atualização das informações de Patrimônio e Localização Física deste computador. Por favor, confirme as informações que serão apresentadas na tela que será exibida a seguir.', mtInformation, [mbOk], 0);
  966 + boolColeta := true;
  967 + end
  968 + Else if (GetValorDatMemoria('Patrimonio.dt_ultima_renovacao_patrim',v_tstrCipherOpened)= '') then
  969 + Begin
  970 + // Solicita o cadastramento de informações de patrimõnio caso ainda não tenha sido cadastrado.
  971 + boolColeta := true;
  972 + end;
1096 973
1097 - tstrTripa1 := explode(ExtractFilePath(Application.Exename),'\'); //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic  
1098 - p_path_cacic := '';  
1099 - For i := 0 to tstrTripa1.Count -2 do  
1100 - begin  
1101 - p_path_cacic := p_path_cacic + tstrTripa1[i] + '\';  
1102 - end; 974 + if boolColeta then
  975 + Begin
  976 + SetValorDatMemoria('Col_Patr.Inicio', FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);
  977 + log_diario('Coletando informações de Patrimônio e Localização Física.');
  978 + v_configs := GetValorDatMemoria('Patrimonio.Configs',v_tstrCipherOpened);
  979 + log_DEBUG('Configurações obtidas: '+v_configs);
  980 +
  981 + MontaInterface;
  982 + MontaCombos;
  983 + RecuperaValoresAnteriores;
1103 984
1104 - v_Debugs := false;  
1105 - if DirectoryExists(p_path_cacic + 'Temp\Debugs') then  
1106 - Begin  
1107 - if (FormatDateTime('ddmmyyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then  
1108 - Begin  
1109 - v_Debugs := true;  
1110 - log_DEBUG('Pasta "' + p_path_cacic + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');  
1111 - End;  
1112 - End;  
1113 -  
1114 - // A chave AES foi obtida no parâmetro p_CipherKey. Recomenda-se que cada empresa altere a sua chave.  
1115 - v_IV := 'abcdefghijklmnop';  
1116 - v_tstrCipherOpened := TStrings.Create;  
1117 - v_tstrCipherOpened := CipherOpen(p_path_cacic + 'cacic2.dat');  
1118 -  
1119 - v_tstrCipherOpened1 := TStrings.Create;  
1120 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'temp\col_patr.dat');  
1121 -  
1122 - // Os valores possíveis serão 0-DESLIGADO 1-LIGADO 2-ESPERA PARA LIGAR (Será transformado em "1") 3-Ainda se comunicará com o Gerente WEB  
1123 - l_cs_cipher := false;  
1124 - v_Aux := GetValorDatMemoria('Configs.CS_CIPHER', v_tstrCipherOpened);  
1125 - if (v_Aux='1')then  
1126 - Begin  
1127 - l_cs_cipher := true;  
1128 - End;  
1129 -  
1130 - Try  
1131 - boolColeta := false;  
1132 - if (GetValorDatMemoria('Patrimonio.in_alteracao_fisica',v_tstrCipherOpened)= 'S') then  
1133 - Begin  
1134 - // Solicita o cadastramento de informações de patrimõnio caso seja detectado remanejamento para uma nova rede.  
1135 - MessageDlg('Atenção: foi identificada uma alteração na localização física deste computador. Por favor, confirme as informações que serão apresentadas na tela que será exibida a seguir.', mtInformation, [mbOk], 0);  
1136 - boolColeta := true;  
1137 - End  
1138 - Else if (GetValorDatMemoria('Patrimonio.in_renovacao_informacoes',v_tstrCipherOpened)= 'S') and (v_option='system') then  
1139 - Begin  
1140 - // Solicita o cadastramento de informações de patrimõnio caso tenha completado o prazo configurado para renovação de informações.  
1141 - MessageDlg('Atenção: é necessário o preenchimento/atualização das informações de Patrimônio e Localização Física deste computador. Por favor, confirme as informações que serão apresentadas na tela que será exibida a seguir.', mtInformation, [mbOk], 0);  
1142 - boolColeta := true;  
1143 - end  
1144 - Else if (GetValorDatMemoria('Patrimonio.dt_ultima_renovacao_patrim',v_tstrCipherOpened)= '') then  
1145 - Begin  
1146 - // Solicita o cadastramento de informações de patrimõnio caso ainda não tenha sido cadastrado.  
1147 - boolColeta := true;  
1148 - end;  
1149 -  
1150 - if boolColeta then  
1151 - Begin  
1152 - SetValorDatMemoria('Col_Patr.Inicio', FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);  
1153 - log_diario('Coletando informações de Patrimônio e Localização Física.');  
1154 - v_configs := GetValorDatMemoria('Patrimonio.Configs',v_tstrCipherOpened);  
1155 - log_DEBUG('Configurações obtidas: '+v_configs);  
1156 -  
1157 - MontaInterface;  
1158 - MontaCombos;  
1159 - RecuperaValoresAnteriores;  
1160 -  
1161 - End;  
1162 - Except  
1163 - SetValorDatMemoria('Col_Patr.nada','nada', v_tstrCipherOpened1);  
1164 - SetValorDatMemoria('Col_Patr.Fim', '99999999', v_tstrCipherOpened1);  
1165 - CipherClose(p_path_cacic + 'temp\col_patr.dat', v_tstrCipherOpened1);  
1166 - g_oCacic.Free();  
1167 - Application.Terminate;  
1168 End; 985 End;
1169 - End; 986 + Except
  987 + SetValorDatMemoria('Col_Patr.nada','nada', v_tstrCipherOpened1);
  988 + SetValorDatMemoria('Col_Patr.Fim', '99999999', v_tstrCipherOpened1);
  989 + CipherClose(g_oCacic.getCacicPath + 'temp\col_patr.dat', v_tstrCipherOpened1);
  990 + g_oCacic.Free();
  991 + Application.Terminate;
  992 + End;
1170 End; 993 End;
1171 end; 994 end;
1172 995
col_soft/col_soft.res
View file @d3353de
No preview for this file type
col_undi/col_undi.res
View file @d3353de
No preview for this file type
ger_cols/ger_cols.res
View file @d3353de
No preview for this file type
ini_cols/ini_cols.res
View file @d3353de
No preview for this file type
mapa/mapacacic.res
View file @d3353de
No preview for this file type