Download as
Browse Code »

Commit 6af8aaac5fcb5190f2f5952095a0660a5ec17099

Authored by anderson.peterle@previdencia.gov.br
1 parent d3353de5
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@764 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 4 changed files with 608 additions and 1278 deletions   Show diff stats
col_soft/col_soft.dpr
  Diff comments   View file @6af8aaa
@@ -30,45 +30,25 @@ uses @@ -30,45 +30,25 @@ uses
30 MSI_ENGINES, 30 MSI_ENGINES,
31 MSI_OS, 31 MSI_OS,
32 MSI_XML_Reports, 32 MSI_XML_Reports,
33 - DCPcrypt2,  
34 - DCPrijndael,  
35 - DCPbase64,  
36 CACIC_Library in '..\CACIC_Library.pas'; 33 CACIC_Library in '..\CACIC_Library.pas';
37 34
38 -var p_path_cacic,  
39 - v_CipherKey,  
40 - v_IV,  
41 - v_strCipherClosed,  
42 - v_DatFileName : String;  
43 - v_Debugs : boolean;  
44 -var v_tstrCipherOpened,  
45 - v_tstrCipherOpened1 : TStrings;  
46 -  
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  
51 -  
52 -function HomeDrive : string;  
53 var 35 var
54 -WinDir : array [0..144] of char;  
55 -begin  
56 -GetWindowsDirectory (WinDir, 144);  
57 -Result := StrPas (WinDir);  
58 -end; 36 + v_strCipherClosed : String;
  37 + v_Debugs : boolean;
59 38
60 -Function Implode(p_Array : TStrings ; p_Separador : String) : String;  
61 -var intAux : integer;  
62 - strAux : string;  
63 -Begin  
64 - strAux := '';  
65 - For intAux := 0 To p_Array.Count -1 do  
66 - Begin  
67 - if (strAux<>'') then strAux := strAux + p_Separador;  
68 - strAux := strAux + p_Array[intAux];  
69 - End;  
70 - Implode := strAux;  
71 -end; 39 +var
  40 + v_tstrCipherOpened,
  41 + v_tstrCipherOpened1,
  42 + tstrTripa1 : TStrings;
  43 +
  44 +var
  45 + intAux : integer;
  46 +
  47 +var
  48 + g_oCacic : TCACIC;
  49 +
  50 +const
  51 + CACIC_APP_NAME = 'col_soft';
72 52
73 procedure log_diario(strMsg : String); 53 procedure log_diario(strMsg : String);
74 var 54 var
@@ -76,8 +56,8 @@ var @@ -76,8 +56,8 @@ var
76 strDataArqLocal, strDataAtual : string; 56 strDataArqLocal, strDataAtual : string;
77 begin 57 begin
78 try 58 try
79 - FileSetAttr (p_path_cacic + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
80 - AssignFile(HistoricoLog,p_path_cacic + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile} 59 + FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
  60 + AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
81 {$IOChecks off} 61 {$IOChecks off}
82 Reset(HistoricoLog); {Abre o arquivo texto} 62 Reset(HistoricoLog); {Abre o arquivo texto}
83 {$IOChecks on} 63 {$IOChecks on}
@@ -87,7 +67,7 @@ begin @@ -87,7 +67,7 @@ begin
87 Append(HistoricoLog); 67 Append(HistoricoLog);
88 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <======================='); 68 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
89 end; 69 end;
90 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(p_path_cacic + 'cacic2.log'))); 70 + DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));
91 DateTimeToString(strDataAtual , 'yyyymmdd', Date); 71 DateTimeToString(strDataAtual , 'yyyymmdd', Date);
92 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual... 72 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
93 begin 73 begin
@@ -105,94 +85,6 @@ begin @@ -105,94 +85,6 @@ begin
105 end; 85 end;
106 end; 86 end;
107 87
108 -// Pad a string with zeros so that it is a multiple of size  
109 -function PadWithZeros(const str : string; size : integer) : string;  
110 -var  
111 - origsize, i : integer;  
112 -begin  
113 - Result := str;  
114 - origsize := Length(Result);  
115 - if ((origsize mod size) <> 0) or (origsize = 0) then  
116 - begin  
117 - SetLength(Result,((origsize div size)+1)*size);  
118 - for i := origsize+1 to Length(Result) do  
119 - Result[i] := #0;  
120 - end;  
121 -end;  
122 -  
123 -  
124 -// Encrypt a string and return the Base64 encoded result  
125 -function EnCrypt(p_Data : String) : String;  
126 -var  
127 - l_Cipher : TDCP_rijndael;  
128 - l_Data, l_Key, l_IV : string;  
129 -begin  
130 - Try  
131 - // Pad Key, IV and Data with zeros as appropriate  
132 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
133 - l_IV := PadWithZeros(v_IV,BlockSize);  
134 - l_Data := PadWithZeros(p_Data,BlockSize);  
135 -  
136 - // Create the cipher and initialise according to the key length  
137 - l_Cipher := TDCP_rijndael.Create(nil);  
138 - if Length(v_CipherKey) <= 16 then  
139 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
140 - else if Length(v_CipherKey) <= 24 then  
141 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
142 - else  
143 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
144 -  
145 - // Encrypt the data  
146 - l_Cipher.EncryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
147 -  
148 - // Free the cipher and clear sensitive information  
149 - l_Cipher.Free;  
150 - FillChar(l_Key[1],Length(l_Key),0);  
151 -  
152 - // Return the Base64 encoded result  
153 - Result := Base64EncodeStr(l_Data);  
154 - Except  
155 - log_diario('Erro no Processo de Criptografia');  
156 - End;  
157 -end;  
158 -  
159 -function DeCrypt(p_Data : String) : String;  
160 -var  
161 - l_Cipher : TDCP_rijndael;  
162 - l_Data, l_Key, l_IV : string;  
163 -begin  
164 - Try  
165 - // Pad Key and IV with zeros as appropriate  
166 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
167 - l_IV := PadWithZeros(v_IV,BlockSize);  
168 -  
169 - // Decode the Base64 encoded string  
170 - l_Data := Base64DecodeStr(p_Data);  
171 -  
172 - // Create the cipher and initialise according to the key length  
173 - l_Cipher := TDCP_rijndael.Create(nil);  
174 - if Length(v_CipherKey) <= 16 then  
175 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
176 - else if Length(v_CipherKey) <= 24 then  
177 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
178 - else  
179 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
180 -  
181 - // Decrypt the data  
182 - l_Cipher.DecryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
183 -  
184 - // Free the cipher and clear sensitive information  
185 - l_Cipher.Free;  
186 - FillChar(l_Key[1],Length(l_Key),0);  
187 -  
188 - // Return the result  
189 - Result := l_Data;  
190 - Except  
191 - log_diario('Erro no Processo de Decriptografia');  
192 - End;  
193 -end;  
194 -  
195 -  
196 Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String; 88 Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String;
197 var v_strCipherOpenImploded : string; 89 var v_strCipherOpenImploded : string;
198 v_DatFile : TextFile; 90 v_DatFile : TextFile;
@@ -205,13 +97,8 @@ begin @@ -205,13 +97,8 @@ begin
205 Rewrite (v_DatFile); 97 Rewrite (v_DatFile);
206 Append(v_DatFile); 98 Append(v_DatFile);
207 99
208 - //v_Cipher := TDCP_rijndael.Create(nil);  
209 - //v_Cipher.InitStr(v_CipherKey,TDCP_md5);  
210 - v_strCipherOpenImploded := Implode(p_tstrCipherOpened,'=CacicIsFree=');  
211 - v_strCipherClosed := EnCrypt(v_strCipherOpenImploded);  
212 - //v_strCipherClosed := v_Cipher.EncryptString(v_strCipherOpenImploded);  
213 - //v_Cipher.Burn;  
214 - //v_Cipher.Free; 100 + v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);
  101 + v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);
215 102
216 Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto} 103 Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto}
217 104
@@ -220,37 +107,6 @@ begin @@ -220,37 +107,6 @@ begin
220 end; 107 end;
221 end; 108 end;
222 109
223 -Function Explode(Texto, Separador : String) : TStrings;  
224 -var  
225 - strItem : String;  
226 - ListaAuxUTILS : TStrings;  
227 - NumCaracteres,  
228 - TamanhoSeparador,  
229 - I : Integer;  
230 -Begin  
231 - ListaAuxUTILS := TStringList.Create;  
232 - strItem := '';  
233 - NumCaracteres := Length(Texto);  
234 - TamanhoSeparador := Length(Separador);  
235 - I := 1;  
236 - While I <= NumCaracteres Do  
237 - Begin  
238 - If (Copy(Texto,I,TamanhoSeparador) = Separador) or (I = NumCaracteres) Then  
239 - Begin  
240 - if (I = NumCaracteres) then strItem := strItem + Texto[I];  
241 - ListaAuxUTILS.Add(trim(strItem));  
242 - strItem := '';  
243 - I := I + (TamanhoSeparador-1);  
244 - end  
245 - Else  
246 - strItem := strItem + Texto[I];  
247 -  
248 - I := I + 1;  
249 - End;  
250 - Explode := ListaAuxUTILS;  
251 -end;  
252 -  
253 -  
254 Function CipherOpen(p_DatFileName : string) : TStrings; 110 Function CipherOpen(p_DatFileName : string) : TStrings;
255 var v_DatFile : TextFile; 111 var v_DatFile : TextFile;
256 v_strCipherOpened, 112 v_strCipherOpened,
@@ -272,12 +128,12 @@ begin @@ -272,12 +128,12 @@ begin
272 Readln(v_DatFile,v_strCipherClosed); 128 Readln(v_DatFile,v_strCipherClosed);
273 while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed); 129 while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);
274 CloseFile(v_DatFile); 130 CloseFile(v_DatFile);
275 - v_strCipherOpened:= DeCrypt(v_strCipherClosed); 131 + v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);
276 end; 132 end;
277 if (trim(v_strCipherOpened)<>'') then 133 if (trim(v_strCipherOpened)<>'') then
278 - Result := explode(v_strCipherOpened,'=CacicIsFree=') 134 + Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)
279 else 135 else
280 - Result := explode('Configs.Endereco_WS=CacicIsFree=/cacic2/ws/','=CacicIsFree='); 136 + Result := g_oCacic.explode('Configs.Endereco_WS'+g_oCacic.getSeparatorKey+'/cacic2/ws/',g_oCacic.getSeparatorKey);
281 137
282 if Result.Count mod 2 <> 0 then 138 if Result.Count mod 2 <> 0 then
283 Result.Add(''); 139 Result.Add('');
@@ -294,6 +150,7 @@ begin @@ -294,6 +150,7 @@ begin
294 p_tstrCipherOpened.Add(p_Valor); 150 p_tstrCipherOpened.Add(p_Valor);
295 End; 151 End;
296 end; 152 end;
  153 +
297 Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String; 154 Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String;
298 begin 155 begin
299 if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then 156 if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then
@@ -444,7 +301,7 @@ var @@ -444,7 +301,7 @@ var
444 strDataArqLocal, strDataAtual, v_file_debugs : string; 301 strDataArqLocal, strDataAtual, v_file_debugs : string;
445 begin 302 begin
446 try 303 try
447 - v_file_debugs := p_path_cacic + '\Temp\Debugs\debug_'+StringReplace(ExtractFileName(StrUpper(PChar(ParamStr(0)))),'.EXE','',[rfReplaceAll])+'.txt'; 304 + v_file_debugs := g_oCacic.getCacicPath + 'Temp\Debugs\debug_'+StringReplace(ExtractFileName(StrUpper(PChar(ParamStr(0)))),'.EXE','',[rfReplaceAll])+'.txt';
448 FileSetAttr (v_file_debugs,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000 305 FileSetAttr (v_file_debugs,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
449 AssignFile(DebugsFile,v_file_debugs); {Associa o arquivo a uma variável do tipo TextFile} 306 AssignFile(DebugsFile,v_file_debugs); {Associa o arquivo a uma variável do tipo TextFile}
450 307
@@ -509,7 +366,7 @@ var RegEditGet: TRegistry; @@ -509,7 +366,7 @@ var RegEditGet: TRegistry;
509 begin 366 begin
510 try 367 try
511 Result := ''; 368 Result := '';
512 - ListaAuxGet := Explode(Chave, '); 369 + ListaAuxGet := g_oCacic.explode(Chave, ');
513 370
514 strRootKey := ListaAuxGet[0]; 371 strRootKey := ListaAuxGet[0];
515 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\'; 372 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';
@@ -742,12 +599,12 @@ begin @@ -742,12 +599,12 @@ begin
742 SetValorDatMemoria('Col_Soft.te_inventario_softwares' , te_inventario_softwares , v_tstrCipherOpened1); 599 SetValorDatMemoria('Col_Soft.te_inventario_softwares' , te_inventario_softwares , v_tstrCipherOpened1);
743 SetValorDatMemoria('Col_Soft.te_variaveis_ambiente' , te_variaveis_ambiente , v_tstrCipherOpened1); 600 SetValorDatMemoria('Col_Soft.te_variaveis_ambiente' , te_variaveis_ambiente , v_tstrCipherOpened1);
744 SetValorDatMemoria('Col_Soft.UVC' , UVC , v_tstrCipherOpened1); 601 SetValorDatMemoria('Col_Soft.UVC' , UVC , v_tstrCipherOpened1);
745 - CipherClose(p_path_cacic + 'temp\col_soft.dat', v_tstrCipherOpened1); 602 + CipherClose(g_oCacic.getCacicPath + 'temp\col_soft.dat', v_tstrCipherOpened1);
746 end 603 end
747 else 604 else
748 Begin 605 Begin
749 SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1); 606 SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);
750 - CipherClose(p_path_cacic + 'temp\col_soft.dat', v_tstrCipherOpened1); 607 + CipherClose(g_oCacic.getCacicPath + 'temp\col_soft.dat', v_tstrCipherOpened1);
751 End; 608 End;
752 v_ENGINES.Free; 609 v_ENGINES.Free;
753 610
@@ -765,71 +622,49 @@ begin @@ -765,71 +622,49 @@ begin
765 Begin 622 Begin
766 SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1); 623 SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);
767 SetValorDatMemoria('Col_Soft.Fim' , '99999999', v_tstrCipherOpened1); 624 SetValorDatMemoria('Col_Soft.Fim' , '99999999', v_tstrCipherOpened1);
768 - CipherClose(p_path_cacic + 'temp\col_soft.dat', v_tstrCipherOpened1); 625 + CipherClose(g_oCacic.getCacicPath + 'temp\col_soft.dat', v_tstrCipherOpened1);
769 End; 626 End;
770 End; 627 End;
771 end; 628 end;
772 629
773 -const  
774 - CACIC_APP_NAME = 'col_soft';  
775 -  
776 -var  
777 - tstrTripa1 : TStrings;  
778 - intAux : integer;  
779 - oCacic : TCACIC;  
780 - 630 +var v_path_cacic : String;
781 begin 631 begin
782 - oCacic := TCACIC.Create(); 632 + g_oCacic := TCACIC.Create();
783 633
784 - if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then 634 + if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then
785 if (ParamCount>0) then 635 if (ParamCount>0) then
786 - Begin  
787 - For intAux := 1 to ParamCount do  
788 - Begin  
789 - if LowerCase(Copy(ParamStr(intAux),1,13)) = '/p_cipherkey=' then  
790 - v_CipherKey := Trim(Copy(ParamStr(intAux),14,Length((ParamStr(intAux)))));  
791 - End;  
792 -  
793 - if (trim(v_CipherKey)<>'') then  
794 - Begin  
795 -  
796 - //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini  
797 - tstrTripa1 := explode(ExtractFilePath(ParamStr(0)),'\');  
798 - p_path_cacic := '';  
799 - For intAux := 0 to tstrTripa1.Count -2 do  
800 - begin  
801 - p_path_cacic := p_path_cacic + tstrTripa1[intAux] + '\';  
802 - end;  
803 -  
804 - // A chave AES foi obtida no parâmetro p_CipherKey. Recomenda-se que cada empresa altere a sua chave.  
805 - v_IV := 'abcdefghijklmnop';  
806 - v_DatFileName := p_path_cacic + '\cacic2.dat';  
807 - v_tstrCipherOpened := TStrings.Create;  
808 - v_tstrCipherOpened := CipherOpen(v_DatFileName);  
809 -  
810 - v_tstrCipherOpened1 := TStrings.Create;  
811 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'temp\col_soft.dat');  
812 -  
813 - Try  
814 - v_Debugs := false;  
815 -  
816 - if DirectoryExists(p_path_cacic + 'Temp\Debugs') then  
817 - Begin  
818 - if (FormatDateTime('ddmmyyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then  
819 - Begin  
820 - v_Debugs := true;  
821 - log_diario('Pasta "' + p_path_cacic + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');  
822 - End;  
823 - End;  
824 -  
825 - Executa_Col_Soft;  
826 - Except  
827 - SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);  
828 - CipherClose(p_path_cacic + 'temp\col_soft.dat', v_tstrCipherOpened1);  
829 - End;  
830 - End; 636 + Begin
  637 + //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini
  638 + tstrTripa1 := g_oCacic.explode(ExtractFilePath(ParamStr(0)),'\');
  639 + v_path_cacic := '';
  640 + For intAux := 0 to tstrTripa1.Count -2 do
  641 + v_path_cacic := v_path_cacic + tstrTripa1[intAux] + '\';
  642 +
  643 + v_tstrCipherOpened := TStrings.Create;
  644 + v_tstrCipherOpened := CipherOpen(g_oCacic.getDatFileName);
  645 +
  646 + v_tstrCipherOpened1 := TStrings.Create;
  647 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'temp\col_soft.dat');
  648 +
  649 + Try
  650 + v_Debugs := false;
  651 +
  652 + if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
  653 + Begin
  654 + if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
  655 + Begin
  656 + v_Debugs := true;
  657 + log_diario('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
  658 + End;
  659 + End;
  660 +
  661 + Executa_Col_Soft;
  662 + Except
  663 + SetValorDatMemoria('Col_Soft.nada', 'nada', v_tstrCipherOpened1);
  664 + CipherClose(g_oCacic.getCacicPath + 'temp\col_soft.dat', v_tstrCipherOpened1);
  665 + End;
831 End; 666 End;
832 667
833 - oCacic.Free(); 668 + g_oCacic.Free();
834 669
835 end. 670 end.
col_undi/col_undi.dpr
  Diff comments   View file @6af8aaa
@@ -29,56 +29,34 @@ uses @@ -29,56 +29,34 @@ uses
29 Registry, 29 Registry,
30 MSI_DISK, 30 MSI_DISK,
31 MSI_XML_Reports, 31 MSI_XML_Reports,
32 - DCPcrypt2,  
33 - DCPrijndael,  
34 - DCPbase64,  
35 CACIC_Library in '..\CACIC_Library.pas'; 32 CACIC_Library in '..\CACIC_Library.pas';
36 33
37 -var p_path_cacic,  
38 - v_CipherKey,  
39 - v_IV,  
40 - v_strCipherClosed,  
41 - v_DatFileName : String;  
42 - v_debugs : boolean;  
43 -  
44 -var v_tstrCipherOpened,  
45 - v_tstrCipherOpened1 : TStrings; 34 +var
  35 + v_strCipherClosed : String;
  36 + v_debugs : boolean;
46 37
47 -var g_oCacic : TCACIC; 38 +var
  39 + v_tstrCipherOpened,
  40 + v_tstrCipherOpened1,
  41 + tstrTripa1 : TStrings;
48 42
49 -// Some constants that are dependant on the cipher being used  
50 -// Assuming MCRYPT_RIJNDAEL_128 (i.e., 128bit blocksize, 256bit keysize)  
51 -const KeySize = 32; // 32 bytes = 256 bits  
52 - BlockSize = 16; // 16 bytes = 128 bits 43 +var
  44 + intAux : integer;
53 45
54 -function HomeDrive : string;  
55 var 46 var
56 -WinDir : array [0..144] of char;  
57 -begin  
58 -GetWindowsDirectory (WinDir, 144);  
59 -Result := StrPas (WinDir);  
60 -end; 47 + g_oCacic : TCACIC;
  48 +
  49 +const
  50 + CACIC_APP_NAME = 'col_undi';
61 51
62 -Function Implode(p_Array : TStrings ; p_Separador : String) : String;  
63 -var intAux : integer;  
64 - strAux : string;  
65 -Begin  
66 - strAux := '';  
67 - For intAux := 0 To p_Array.Count -1 do  
68 - Begin  
69 - if (strAux<>'') then strAux := strAux + p_Separador;  
70 - strAux := strAux + p_Array[intAux];  
71 - End;  
72 - Implode := strAux;  
73 -end;  
74 procedure log_diario(strMsg : String); 52 procedure log_diario(strMsg : String);
75 var 53 var
76 HistoricoLog : TextFile; 54 HistoricoLog : TextFile;
77 strDataArqLocal, strDataAtual : string; 55 strDataArqLocal, strDataAtual : string;
78 begin 56 begin
79 try 57 try
80 - FileSetAttr (p_path_cacic + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
81 - AssignFile(HistoricoLog,p_path_cacic + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile} 58 + FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
  59 + AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
82 {$IOChecks off} 60 {$IOChecks off}
83 Reset(HistoricoLog); {Abre o arquivo texto} 61 Reset(HistoricoLog); {Abre o arquivo texto}
84 {$IOChecks on} 62 {$IOChecks on}
@@ -88,7 +66,7 @@ begin @@ -88,7 +66,7 @@ begin
88 Append(HistoricoLog); 66 Append(HistoricoLog);
89 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <======================='); 67 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
90 end; 68 end;
91 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(p_path_cacic + 'cacic2.log'))); 69 + DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));
92 DateTimeToString(strDataAtual , 'yyyymmdd', Date); 70 DateTimeToString(strDataAtual , 'yyyymmdd', Date);
93 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual... 71 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
94 begin 72 begin
@@ -103,92 +81,6 @@ begin @@ -103,92 +81,6 @@ begin
103 log_diario('Erro na gravação do log!'); 81 log_diario('Erro na gravação do log!');
104 end; 82 end;
105 end; 83 end;
106 -// Pad a string with zeros so that it is a multiple of size  
107 -function PadWithZeros(const str : string; size : integer) : string;  
108 -var  
109 - origsize, i : integer;  
110 -begin  
111 - Result := str;  
112 - origsize := Length(Result);  
113 - if ((origsize mod size) <> 0) or (origsize = 0) then  
114 - begin  
115 - SetLength(Result,((origsize div size)+1)*size);  
116 - for i := origsize+1 to Length(Result) do  
117 - Result[i] := #0;  
118 - end;  
119 -end;  
120 -  
121 -  
122 -// Encrypt a string and return the Base64 encoded result  
123 -function EnCrypt(p_Data : String) : String;  
124 -var  
125 - l_Cipher : TDCP_rijndael;  
126 - l_Data, l_Key, l_IV : string;  
127 -begin  
128 - Try  
129 - // Pad Key, IV and Data with zeros as appropriate  
130 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
131 - l_IV := PadWithZeros(v_IV,BlockSize);  
132 - l_Data := PadWithZeros(p_Data,BlockSize);  
133 -  
134 - // Create the cipher and initialise according to the key length  
135 - l_Cipher := TDCP_rijndael.Create(nil);  
136 - if Length(v_CipherKey) <= 16 then  
137 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
138 - else if Length(v_CipherKey) <= 24 then  
139 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
140 - else  
141 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
142 -  
143 - // Encrypt the data  
144 - l_Cipher.EncryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
145 -  
146 - // Free the cipher and clear sensitive information  
147 - l_Cipher.Free;  
148 - FillChar(l_Key[1],Length(l_Key),0);  
149 -  
150 - // Return the Base64 encoded result  
151 - Result := Base64EncodeStr(l_Data);  
152 - Except  
153 - log_diario('Erro no Processo de Criptografia');  
154 - End;  
155 -end;  
156 -  
157 -function DeCrypt(p_Data : String) : String;  
158 -var  
159 - l_Cipher : TDCP_rijndael;  
160 - l_Data, l_Key, l_IV : string;  
161 -begin  
162 - Try  
163 - // Pad Key and IV with zeros as appropriate  
164 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
165 - l_IV := PadWithZeros(v_IV,BlockSize);  
166 -  
167 - // Decode the Base64 encoded string  
168 - l_Data := Base64DecodeStr(p_Data);  
169 -  
170 - // Create the cipher and initialise according to the key length  
171 - l_Cipher := TDCP_rijndael.Create(nil);  
172 - if Length(v_CipherKey) <= 16 then  
173 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
174 - else if Length(v_CipherKey) <= 24 then  
175 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
176 - else  
177 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
178 -  
179 - // Decrypt the data  
180 - l_Cipher.DecryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
181 -  
182 - // Free the cipher and clear sensitive information  
183 - l_Cipher.Free;  
184 - FillChar(l_Key[1],Length(l_Key),0);  
185 -  
186 - // Return the result  
187 - Result := l_Data;  
188 - Except  
189 - log_diario('Erro no Processo de Decriptografia');  
190 - End;  
191 -end;  
192 84
193 Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String; 85 Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String;
194 var v_strCipherOpenImploded : string; 86 var v_strCipherOpenImploded : string;
@@ -202,8 +94,8 @@ begin @@ -202,8 +94,8 @@ begin
202 Rewrite (v_DatFile); 94 Rewrite (v_DatFile);
203 Append(v_DatFile); 95 Append(v_DatFile);
204 96
205 - v_strCipherOpenImploded := Implode(p_tstrCipherOpened,'=CacicIsFree=');  
206 - v_strCipherClosed := EnCrypt(v_strCipherOpenImploded); 97 + v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);
  98 + v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);
207 99
208 Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto} 100 Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto}
209 101
@@ -211,35 +103,6 @@ begin @@ -211,35 +103,6 @@ begin
211 except 103 except
212 end; 104 end;
213 end; 105 end;
214 -Function Explode(Texto, Separador : String) : TStrings;  
215 -var  
216 - strItem : String;  
217 - ListaAuxUTILS : TStrings;  
218 - NumCaracteres,  
219 - TamanhoSeparador,  
220 - I : Integer;  
221 -Begin  
222 - ListaAuxUTILS := TStringList.Create;  
223 - strItem := '';  
224 - NumCaracteres := Length(Texto);  
225 - TamanhoSeparador := Length(Separador);  
226 - I := 1;  
227 - While I <= NumCaracteres Do  
228 - Begin  
229 - If (Copy(Texto,I,TamanhoSeparador) = Separador) or (I = NumCaracteres) Then  
230 - Begin  
231 - if (I = NumCaracteres) then strItem := strItem + Texto[I];  
232 - ListaAuxUTILS.Add(trim(strItem));  
233 - strItem := '';  
234 - I := I + (TamanhoSeparador-1);  
235 - end  
236 - Else  
237 - strItem := strItem + Texto[I];  
238 -  
239 - I := I + 1;  
240 - End;  
241 - Explode := ListaAuxUTILS;  
242 -end;  
243 106
244 Function CipherOpen(p_DatFileName : string) : TStrings; 107 Function CipherOpen(p_DatFileName : string) : TStrings;
245 var v_DatFile : TextFile; 108 var v_DatFile : TextFile;
@@ -262,12 +125,12 @@ begin @@ -262,12 +125,12 @@ begin
262 Readln(v_DatFile,v_strCipherClosed); 125 Readln(v_DatFile,v_strCipherClosed);
263 while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed); 126 while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);
264 CloseFile(v_DatFile); 127 CloseFile(v_DatFile);
265 - v_strCipherOpened:= DeCrypt(v_strCipherClosed); 128 + v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);
266 end; 129 end;
267 if (trim(v_strCipherOpened)<>'') then 130 if (trim(v_strCipherOpened)<>'') then
268 - Result := explode(v_strCipherOpened,'=CacicIsFree=') 131 + Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)
269 else 132 else
270 - Result := explode('Configs.ID_SO=CacicIsFree='+ g_oCacic.getWindowsStrId() +'=CacicIsFree=Configs.Endereco_WS=CacicIsFree=/cacic2/ws/','=CacicIsFree='); 133 + 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);
271 134
272 if Result.Count mod 2 <> 0 then 135 if Result.Count mod 2 <> 0 then
273 Result.Add(''); 136 Result.Add('');
@@ -345,7 +208,7 @@ var RegEditGet: TRegistry; @@ -345,7 +208,7 @@ var RegEditGet: TRegistry;
345 begin 208 begin
346 try 209 try
347 Result := ''; 210 Result := '';
348 - ListaAuxGet := Explode(Chave, '); 211 + ListaAuxGet := g_oCacic.explode(Chave, ');
349 212
350 strRootKey := ListaAuxGet[0]; 213 strRootKey := ListaAuxGet[0];
351 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\'; 214 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';
@@ -385,7 +248,7 @@ var @@ -385,7 +248,7 @@ var
385 strDataArqLocal, strDataAtual, v_file_debugs : string; 248 strDataArqLocal, strDataAtual, v_file_debugs : string;
386 begin 249 begin
387 try 250 try
388 - v_file_debugs := p_path_cacic + '\Temp\Debugs\debug_'+StringReplace(ExtractFileName(StrUpper(PChar(ParamStr(0)))),'.EXE','',[rfReplaceAll])+'.txt'; 251 + v_file_debugs := g_oCacic.getCacicPath + '\Temp\Debugs\debug_'+StringReplace(ExtractFileName(StrUpper(PChar(ParamStr(0)))),'.EXE','',[rfReplaceAll])+'.txt';
389 FileSetAttr (v_file_debugs,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000 252 FileSetAttr (v_file_debugs,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
390 AssignFile(DebugsFile,v_file_debugs); {Associa o arquivo a uma variável do tipo TextFile} 253 AssignFile(DebugsFile,v_file_debugs); {Associa o arquivo a uma variável do tipo TextFile}
391 254
@@ -496,12 +359,12 @@ Begin @@ -496,12 +359,12 @@ Begin
496 (strTripaDados <> '') Then 359 (strTripaDados <> '') Then
497 Begin 360 Begin
498 SetValorDatMemoria('Col_Undi.UVC', strTripaDados, v_tstrCipherOpened1); 361 SetValorDatMemoria('Col_Undi.UVC', strTripaDados, v_tstrCipherOpened1);
499 - CipherClose(p_path_cacic + 'temp\col_undi.dat', v_tstrCipherOpened1); 362 + CipherClose(g_oCacic.getCacicPath + 'temp\col_undi.dat', v_tstrCipherOpened1);
500 end 363 end
501 else 364 else
502 Begin 365 Begin
503 SetValorDatMemoria('Col_Undi.nada', 'nada', v_tstrCipherOpened1); 366 SetValorDatMemoria('Col_Undi.nada', 'nada', v_tstrCipherOpened1);
504 - CipherClose(p_path_cacic + 'temp\col_undi.dat', v_tstrCipherOpened1); 367 + CipherClose(g_oCacic.getCacicPath + 'temp\col_undi.dat', v_tstrCipherOpened1);
505 End; 368 End;
506 369
507 // Caso exista a pasta ..temp/debugs, será criado o arquivo diário debug_<coletor>.txt 370 // Caso exista a pasta ..temp/debugs, será criado o arquivo diário debug_<coletor>.txt
@@ -517,69 +380,50 @@ Begin @@ -517,69 +380,50 @@ Begin
517 Except 380 Except
518 SetValorDatMemoria('Col_Undi.nada', 'nada', v_tstrCipherOpened1); 381 SetValorDatMemoria('Col_Undi.nada', 'nada', v_tstrCipherOpened1);
519 SetValorDatMemoria('Col_Undi.Fim', '99999999', v_tstrCipherOpened1); 382 SetValorDatMemoria('Col_Undi.Fim', '99999999', v_tstrCipherOpened1);
520 - CipherClose(p_path_cacic + 'temp\col_undi.dat', v_tstrCipherOpened1); 383 + CipherClose(g_oCacic.getCacicPath + 'temp\col_undi.dat', v_tstrCipherOpened1);
521 log_diario('Problema na coleta de informações de discos.'); 384 log_diario('Problema na coleta de informações de discos.');
522 End; 385 End;
523 end; 386 end;
524 387
525 -const  
526 - CACIC_APP_NAME = 'col_undi';  
527 -  
528 -var  
529 - tstrTripa1 : TStrings;  
530 - intAux : integer;  
531 - 388 +var v_path_cacic : String;
532 begin 389 begin
533 g_oCacic := TCACIC.Create(); 390 g_oCacic := TCACIC.Create();
534 391
535 if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then 392 if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then
536 if (ParamCount>0) then 393 if (ParamCount>0) then
537 - Begin  
538 - For intAux := 1 to ParamCount do  
539 - Begin  
540 - if LowerCase(Copy(ParamStr(intAux),1,13)) = '/p_cipherkey=' then  
541 - v_CipherKey := Trim(Copy(ParamStr(intAux),14,Length((ParamStr(intAux)))));  
542 - End;  
543 -  
544 - if (trim(v_CipherKey)<>'') then  
545 - Begin  
546 -  
547 - //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini  
548 - tstrTripa1 := explode(ExtractFilePath(ParamStr(0)),'\');  
549 - p_path_cacic := '';  
550 - For intAux := 0 to tstrTripa1.Count -2 do  
551 - begin  
552 - p_path_cacic := p_path_cacic + tstrTripa1[intAux] + '\';  
553 - end;  
554 -  
555 - // A chave AES foi obtida no parâmetro p_CipherKey. Recomenda-se que cada empresa altere a sua chave.  
556 - v_IV := 'abcdefghijklmnop';  
557 - v_DatFileName := p_path_cacic + '\cacic2.dat';  
558 - v_tstrCipherOpened := TStrings.Create;  
559 - v_tstrCipherOpened := CipherOpen(v_DatFileName);  
560 -  
561 - v_tstrCipherOpened1 := TStrings.Create;  
562 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'temp\col_undi.dat');  
563 -  
564 - Try  
565 - v_Debugs := false;  
566 - if DirectoryExists(p_path_cacic + 'Temp\Debugs') then 394 + Begin
  395 + //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.ini
  396 + tstrTripa1 := g_oCacic.explode(ExtractFilePath(ParamStr(0)),'\');
  397 + v_path_cacic := '';
  398 + For intAux := 0 to tstrTripa1.Count -2 do
  399 + begin
  400 + v_path_cacic := v_path_cacic + tstrTripa1[intAux] + '\';
  401 + end;
  402 +
  403 + v_tstrCipherOpened := TStrings.Create;
  404 + v_tstrCipherOpened := CipherOpen(g_oCacic.getDatFileName);
  405 +
  406 + v_tstrCipherOpened1 := TStrings.Create;
  407 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'temp\col_undi.dat');
  408 +
  409 + Try
  410 + v_Debugs := false;
  411 + if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
  412 + Begin
  413 + if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
567 Begin 414 Begin
568 - if (FormatDateTime('ddmmyyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then  
569 - Begin  
570 - v_Debugs := true;  
571 - log_diario('Pasta "' + p_path_cacic + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');  
572 - End; 415 + v_Debugs := true;
  416 + log_diario('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
573 End; 417 End;
  418 + End;
574 419
575 - Executa_Col_undi;  
576 - Except  
577 - SetValorDatMemoria('Col_Undi.nada', 'nada', v_tstrCipherOpened1);  
578 - CipherClose(p_path_cacic + 'temp\col_undi.dat', v_tstrCipherOpened1);  
579 - End;  
580 - End; 420 + Executa_Col_undi;
  421 + Except
  422 + SetValorDatMemoria('Col_Undi.nada', 'nada', v_tstrCipherOpened1);
  423 + CipherClose(g_oCacic.getCacicPath + 'temp\col_undi.dat', v_tstrCipherOpened1);
  424 + End;
581 End; 425 End;
582 426
583 g_oCacic.Free(); 427 g_oCacic.Free();
584 - 428 +
585 end. 429 end.
ger_cols/ger_cols.dpr
  Diff comments   View file @6af8aaa
@@ -44,83 +44,53 @@ uses @@ -44,83 +44,53 @@ uses
44 IniFiles, 44 IniFiles,
45 Registry, 45 Registry,
46 LibXmlParser in 'LibXmlParser.pas', 46 LibXmlParser in 'LibXmlParser.pas',
47 - DCPcrypt2,  
48 - DCPrijndael,  
49 - DCPbase64,  
50 ZLibEx, 47 ZLibEx,
51 - md5,  
52 CACIC_Library in '..\CACIC_Library.pas'; 48 CACIC_Library in '..\CACIC_Library.pas';
53 49
54 {$APPTYPE CONSOLE} 50 {$APPTYPE CONSOLE}
55 -var p_path_cacic,  
56 - v_scripter,  
57 - p_Shell_Command,  
58 - v_acao_gercols,  
59 - v_Tamanho_Arquivo,  
60 - v_Endereco_Servidor,  
61 - v_Aux,  
62 - strAux,  
63 - endereco_servidor_cacic,  
64 - v_ModulosOpcoes,  
65 - v_CipherKey,  
66 - v_IV,  
67 - v_DatFileName,  
68 - v_ResultCompress,  
69 - v_ResultUnCompress,  
70 - g_te_so : string;  
71 -  
72 -var v_Aguarde : TextFile;  
73 -  
74 -var CountUPD,  
75 - intAux,  
76 - intMontaBatch,  
77 - intLoop : integer;  
78 -  
79 -var tstrTripa1,  
80 - v_tstrCipherOpened,  
81 - v_tstrCipherOpened1,  
82 - tstringsAux : TStrings;  
83 -  
84 -var v_Debugs,  
85 - l_cs_cipher,  
86 - l_cs_compress,  
87 - v_CS_AUTO_UPDATE : boolean;  
88 -  
89 -var BatchFile,  
90 - Request_Ger_Cols : TStringList; 51 +var
  52 + v_scripter,
  53 + p_Shell_Command,
  54 + v_acao_gercols,
  55 + v_Tamanho_Arquivo,
  56 + v_Endereco_Servidor,
  57 + v_Aux,
  58 + strAux,
  59 + endereco_servidor_cacic,
  60 + v_ModulosOpcoes,
  61 + v_ResultCompress,
  62 + v_ResultUnCompress : string;
91 63
92 var 64 var
93 - g_oCacic: TCACIC; 65 + v_Aguarde : TextFile;
94 66
95 -// Some constants that are dependant on the cipher being used  
96 -// Assuming MCRYPT_RIJNDAEL_128 (i.e., 128bit blocksize, 256bit keysize)  
97 -const KeySize = 32; // 32 bytes = 256 bits  
98 - BlockSize = 16; // 16 bytes = 128 bits 67 +var
  68 + CountUPD,
  69 + intAux,
  70 + intMontaBatch,
  71 + intLoop : integer;
99 72
100 -// Para cálculo de HASH de determinado arquivo.  
101 -// Objetivo principal: Verificar autenticidade de agentes para trabalho cooperativo  
102 -// Anderson Peterle - Dataprev/ES - 08/Maio/2008  
103 -function GetFileHash(strFileName : String) : String;  
104 -Begin  
105 - Result := 'Arquivo "'+strFileName+'" Inexistente!';  
106 - if (FileExists(strFileName)) then  
107 - Result := MD5Print(MD5File(strFileName));  
108 -End; 73 +var
  74 + tstrTripa1,
  75 + v_tstrCipherOpened,
  76 + v_tstrCipherOpened1,
  77 + tstringsAux : TStrings;
109 78
110 -// Pad a string with zeros so that it is a multiple of size  
111 -function PadWithZeros(const str : string; size : integer) : string;  
112 var 79 var
113 - origsize, i : integer;  
114 -begin  
115 - Result := str;  
116 - origsize := Length(Result);  
117 - if ((origsize mod size) <> 0) or (origsize = 0) then  
118 - begin  
119 - SetLength(Result,((origsize div size)+1)*size);  
120 - for i := origsize+1 to Length(Result) do  
121 - Result[i] := #0;  
122 - end;  
123 -end; 80 + v_Debugs,
  81 + l_cs_cipher,
  82 + l_cs_compress,
  83 + v_CS_AUTO_UPDATE : boolean;
  84 +
  85 +var
  86 + BatchFile,
  87 + Request_Ger_Cols : TStringList;
  88 +
  89 +var
  90 + g_oCacic: TCACIC;
  91 +
  92 +const
  93 + CACIC_APP_NAME = 'ger_cols';
124 94
125 procedure log_diario(strMsg : String); 95 procedure log_diario(strMsg : String);
126 var 96 var
@@ -128,8 +98,8 @@ var @@ -128,8 +98,8 @@ var
128 strDataArqLocal, strDataAtual : string; 98 strDataArqLocal, strDataAtual : string;
129 begin 99 begin
130 try 100 try
131 - FileSetAttr (p_path_cacic + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
132 - AssignFile(HistoricoLog,p_path_cacic + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile} 101 + FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
  102 + AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
133 {$IOChecks off} 103 {$IOChecks off}
134 Reset(HistoricoLog); {Abre o arquivo texto} 104 Reset(HistoricoLog); {Abre o arquivo texto}
135 {$IOChecks on} 105 {$IOChecks on}
@@ -139,7 +109,7 @@ begin @@ -139,7 +109,7 @@ begin
139 Append(HistoricoLog); 109 Append(HistoricoLog);
140 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log <======================='); 110 Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log <=======================');
141 end; 111 end;
142 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(p_path_cacic + 'cacic2.log'))); 112 + DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));
143 DateTimeToString(strDataAtual , 'yyyymmdd', Date); 113 DateTimeToString(strDataAtual , 'yyyymmdd', Date);
144 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual... 114 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
145 begin 115 begin
@@ -281,39 +251,8 @@ begin @@ -281,39 +251,8 @@ begin
281 log_DEBUG('XML Parser retornando: "'+Result+'" para Tag "'+Tag+'"'); 251 log_DEBUG('XML Parser retornando: "'+Result+'" para Tag "'+Tag+'"');
282 end; 252 end;
283 253
284 -  
285 -Function Explode(Texto, Separador : String) : TStrings;  
286 -var  
287 - strItem : String;  
288 - ListaAuxUTILS : TStrings;  
289 - NumCaracteres,  
290 - TamanhoSeparador,  
291 - I : Integer;  
292 -Begin  
293 - ListaAuxUTILS := TStringList.Create;  
294 - strItem := '';  
295 - NumCaracteres := Length(Texto);  
296 - TamanhoSeparador := Length(Separador);  
297 - I := 1;  
298 - While I <= NumCaracteres Do  
299 - Begin  
300 - If (Copy(Texto,I,TamanhoSeparador) = Separador) or (I = NumCaracteres) Then  
301 - Begin  
302 - if (I = NumCaracteres) then strItem := strItem + Texto[I];  
303 - ListaAuxUTILS.Add(trim(strItem));  
304 - strItem := '';  
305 - I := I + (TamanhoSeparador-1);  
306 - end  
307 - Else  
308 - strItem := strItem + Texto[I];  
309 -  
310 - I := I + 1;  
311 - End;  
312 - Explode := ListaAuxUTILS;  
313 -end;  
314 -  
315 function StringtoHex(Data: string): string; 254 function StringtoHex(Data: string): string;
316 -var 255 +var
317 i, i2: Integer; 256 i, i2: Integer;
318 s: string; 257 s: string;
319 begin 258 begin
@@ -331,18 +270,6 @@ begin @@ -331,18 +270,6 @@ begin
331 Result := s; 270 Result := s;
332 end; 271 end;
333 272
334 -Function Implode(p_Array : TStrings ; p_Separador : String) : String;  
335 -var intAux : integer;  
336 -Begin  
337 - strAux := '';  
338 - For intAux := 0 To p_Array.Count -1 do  
339 - Begin  
340 - if (strAux<>'') then strAux := strAux + p_Separador;  
341 - strAux := strAux + p_Array[intAux];  
342 - End;  
343 - Implode := strAux;  
344 -end;  
345 -  
346 Procedure SetValorDatMemoria(p_Chave : string; p_Valor : String; p_tstrCipherOpened : TStrings); 273 Procedure SetValorDatMemoria(p_Chave : string; p_Valor : String; p_tstrCipherOpened : TStrings);
347 var v_Aux : string; 274 var v_Aux : string;
348 begin 275 begin
@@ -357,6 +284,7 @@ begin @@ -357,6 +284,7 @@ begin
357 p_tstrCipherOpened.Add(v_Aux); 284 p_tstrCipherOpened.Add(v_Aux);
358 End; 285 End;
359 end; 286 end;
  287 +
360 Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String; 288 Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String;
361 var intTamanhoLista, 289 var intTamanhoLista,
362 intIndiceChave : integer; 290 intIndiceChave : integer;
@@ -367,7 +295,7 @@ begin @@ -367,7 +295,7 @@ begin
367 if (intIndiceChave <> -1) then 295 if (intIndiceChave <> -1) then
368 Begin 296 Begin
369 intTamanhoLista := p_tstrCipherOpened.Count; 297 intTamanhoLista := p_tstrCipherOpened.Count;
370 - log_DEBUG('GetValorDatMemoria - Tamanho da Lista: '+intToStr(intTamanhoLista)); 298 + log_DEBUG('GetValorDatMemoria - Tamanho da Lista: '+intToStr(intTamanhoLista));
371 if ((intIndiceChave + 1) < intTamanhoLista) then 299 if ((intIndiceChave + 1) < intTamanhoLista) then
372 Result := trim(p_tstrCipherOpened[intIndiceChave + 1]) 300 Result := trim(p_tstrCipherOpened[intIndiceChave + 1])
373 else 301 else
@@ -379,111 +307,6 @@ begin @@ -379,111 +307,6 @@ begin
379 log_DEBUG('GetValorDatMemoria - Retornando "'+Result+'"'); 307 log_DEBUG('GetValorDatMemoria - Retornando "'+Result+'"');
380 end; 308 end;
381 309
382 -// Encrypt a string and return the Base64 encoded result  
383 -function EnCrypt(p_Data : String; p_Compress : Boolean) : String;  
384 -var  
385 - l_Cipher : TDCP_rijndael;  
386 - l_Data,  
387 - l_Key,  
388 - l_IV,  
389 - strAux : String;  
390 -begin  
391 - Try  
392 - if l_cs_cipher then  
393 - Begin  
394 - // Pad Key, IV and Data with zeros as appropriate  
395 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
396 - l_IV := PadWithZeros(v_IV,BlockSize);  
397 - l_Data := PadWithZeros(trim(p_Data),BlockSize);  
398 -  
399 - //log_DEBUG('Encrypt - HEXA da CHAVE "'+v_CipherKey+'": "'+StringtoHex(l_Key)+'"');  
400 - //log_DEBUG('Encrypt - HEXA do IV "'+v_IV+'": "'+StringtoHex(l_IV)+'"');  
401 - //log_DEBUG('Encrypt - HEXA do DADO "'+trim(p_Data)+'": "'+StringtoHex(l_Data)+'"');  
402 -  
403 - // Create the cipher and initialise according to the key length  
404 - l_Cipher := TDCP_rijndael.Create(nil);  
405 - if Length(v_CipherKey) <= 16 then  
406 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
407 - else if Length(v_CipherKey) <= 24 then  
408 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
409 - else  
410 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
411 -  
412 - // Encrypt the data  
413 - l_Cipher.EncryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
414 -  
415 - // Free the cipher and clear sensitive information  
416 - l_Cipher.Free;  
417 - FillChar(l_Key[1],Length(l_Key),0);  
418 - log_DEBUG('EnCrypt - Criptografia(ATIVADA) de "'+p_Data+'" => "'+l_Data+'"');  
419 - // Return the Base64 encoded result  
420 -  
421 - Result := trim(Base64EncodeStr(l_Data));  
422 - End  
423 - else  
424 - Begin  
425 - log_DEBUG('EnCrypt - Criptografia(DESATIVADA) de "'+p_Data+'"');  
426 - Result := trim(p_Data);  
427 - End;  
428 - Except  
429 - log_diario('EnCrypt - Erro no Processo de Criptografia');  
430 - End;  
431 - if (p_Compress) and (l_cs_compress) then  
432 - Result := Compress(Result);  
433 -end;  
434 -  
435 -function DeCrypt(p_Data : String ; p_DeCompress : Boolean) : String;  
436 -var  
437 - l_Cipher : TDCP_rijndael;  
438 - l_Data, l_Key, l_IV, v_Data : string;  
439 -begin  
440 - Try  
441 - v_Data := p_Data;  
442 - if (p_DeCompress) and (l_cs_compress) then  
443 - v_Data := DeCompress(p_Data);  
444 -  
445 - if l_cs_cipher then  
446 - Begin  
447 - // Pad Key and IV with zeros as appropriate  
448 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
449 - l_IV := PadWithZeros(v_IV,BlockSize);  
450 -  
451 - // Decode the Base64 encoded string  
452 - l_Data := Base64DecodeStr(trim(v_Data));  
453 -  
454 - //log_DEBUG('Decrypt - HEXA da CHAVE "'+v_CipherKey+'": "'+StringtoHex(l_Key)+'"');  
455 - //log_DEBUG('Decrypt - HEXA do IV "'+v_IV+'": "'+StringtoHex(l_IV)+'"');  
456 - //log_DEBUG('Decrypt - HEXA do DADO "'+trim(p_Data)+'": "'+StringtoHex(l_Data)+'"');  
457 -  
458 - // Create the cipher and initialise according to the key length  
459 - l_Cipher := TDCP_rijndael.Create(nil);  
460 - if Length(v_CipherKey) <= 16 then  
461 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
462 - else if Length(v_CipherKey) <= 24 then  
463 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
464 - else  
465 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
466 -  
467 - // Decrypt the data  
468 - l_Cipher.DecryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
469 -  
470 - // Free the cipher and clear sensitive information  
471 - l_Cipher.Free;  
472 - FillChar(l_Key[1],Length(l_Key),0);  
473 - log_DEBUG('DeCrypt - DeCriptografia(ATIVADA) de "'+v_Data+'" => "'+l_Data+'"');  
474 - // Return the result  
475 - Result := trim(RemoveZerosFimString(l_Data));  
476 - End  
477 - else  
478 - Begin  
479 - log_DEBUG('DeCrypt - DeCriptografia(DESATIVADA) de "'+v_Data+'"');  
480 - Result := trim(v_Data);  
481 - End;  
482 - Except  
483 - log_diario('DeCrypt - Erro no Processo de DeCriptografia. Dado = '+v_Data);  
484 - End;  
485 -end;  
486 -  
487 procedure Matar(v_dir,v_files: string); 310 procedure Matar(v_dir,v_files: string);
488 var SearchRec: TSearchRec; 311 var SearchRec: TSearchRec;
489 Result: Integer; 312 Result: Integer;
@@ -525,19 +348,19 @@ begin @@ -525,19 +348,19 @@ begin
525 Append(v_DatFileDebug); 348 Append(v_DatFileDebug);
526 End; 349 End;
527 350
528 - v_strCipherOpenImploded := Implode(p_tstrCipherOpened,'=CacicIsFree='); 351 + v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);
529 352
530 v_cs_cipher := l_cs_cipher; 353 v_cs_cipher := l_cs_cipher;
531 l_cs_cipher := true; 354 l_cs_cipher := true;
532 log_DEBUG('Rotina de Fechamento do cacic2.dat ATIVANDO criptografia.'); 355 log_DEBUG('Rotina de Fechamento do cacic2.dat ATIVANDO criptografia.');
533 - v_strCipherClosed := EnCrypt(v_strCipherOpenImploded, false); 356 + v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);
534 357
535 l_cs_cipher := v_cs_cipher; 358 l_cs_cipher := v_cs_cipher;
536 log_DEBUG('Rotina de Fechamento do cacic2.dat RESTAURANDO estado da criptografia.'); 359 log_DEBUG('Rotina de Fechamento do cacic2.dat RESTAURANDO estado da criptografia.');
537 Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto} 360 Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto}
538 if v_Debugs then 361 if v_Debugs then
539 Begin 362 Begin
540 - Writeln(v_DatFileDebug,StringReplace(v_strCipherOpenImploded,'=CacicIsFree=',#13#10,[rfReplaceAll])); 363 + Writeln(v_DatFileDebug,StringReplace(v_strCipherOpenImploded,g_oCacic.getSeparatorKey,#13#10,[rfReplaceAll]));
541 CloseFile(v_DatFileDebug); 364 CloseFile(v_DatFileDebug);
542 End; 365 End;
543 CloseFile(v_DatFile); 366 CloseFile(v_DatFile);
@@ -575,14 +398,14 @@ begin @@ -575,14 +398,14 @@ begin
575 v_cs_cipher := l_cs_cipher; 398 v_cs_cipher := l_cs_cipher;
576 l_cs_cipher := true; 399 l_cs_cipher := true;
577 log_DEBUG('Rotina de Abertura do cacic2.dat ATIVANDO criptografia.'); 400 log_DEBUG('Rotina de Abertura do cacic2.dat ATIVANDO criptografia.');
578 - v_strCipherOpened:= DeCrypt(v_strCipherClosed,false); 401 + v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);
579 l_cs_cipher := v_cs_cipher; 402 l_cs_cipher := v_cs_cipher;
580 log_DEBUG('Rotina de Abertura do cacic2.dat RESTAURANDO estado da criptografia.'); 403 log_DEBUG('Rotina de Abertura do cacic2.dat RESTAURANDO estado da criptografia.');
581 end; 404 end;
582 if (trim(v_strCipherOpened)<>'') then 405 if (trim(v_strCipherOpened)<>'') then
583 - Result := explode(v_strCipherOpened,'=CacicIsFree=') 406 + Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)
584 else 407 else
585 - Result := explode('Configs.ID_SO=CacicIsFree='+g_oCacic.getWindowsStrId()+'=CacicIsFree=Configs.Endereco_WS=CacicIsFree=/cacic2/ws/','=CacicIsFree='); 408 + 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);
586 409
587 if Result.Count mod 2 = 0 then 410 if Result.Count mod 2 = 0 then
588 Result.Add(''); 411 Result.Add('');
@@ -591,13 +414,13 @@ end; @@ -591,13 +414,13 @@ end;
591 414
592 procedure Apaga_Temps; 415 procedure Apaga_Temps;
593 begin 416 begin
594 - Matar(p_path_cacic + 'temp\','*.vbs');  
595 - Matar(p_path_cacic + 'temp\','*.txt'); 417 + Matar(g_oCacic.getCacicPath + 'temp\','*.vbs');
  418 + Matar(g_oCacic.getCacicPath + 'temp\','*.txt');
596 end; 419 end;
597 420
598 procedure Finalizar(p_pausa:boolean); 421 procedure Finalizar(p_pausa:boolean);
599 Begin 422 Begin
600 - CipherClose(v_DatFileName, v_tstrCipherOpened); 423 + CipherClose(g_oCacic.getDatFileName, v_tstrCipherOpened);
601 Apaga_Temps; 424 Apaga_Temps;
602 if p_pausa then sleep(2000); // Pausa de 2 segundos para conclusão de operações de arquivos. 425 if p_pausa then sleep(2000); // Pausa de 2 segundos para conclusão de operações de arquivos.
603 End; 426 End;
@@ -730,7 +553,7 @@ var RegEditGet: TRegistry; @@ -730,7 +553,7 @@ var RegEditGet: TRegistry;
730 begin 553 begin
731 try 554 try
732 Result := ''; 555 Result := '';
733 - ListaAuxGet := Explode(Chave, '); 556 + ListaAuxGet := g_oCacic.explode(Chave, ');
734 557
735 strRootKey := ListaAuxGet[0]; 558 strRootKey := ListaAuxGet[0];
736 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\'; 559 For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';
@@ -770,7 +593,7 @@ var RegEditSet: TRegistry; @@ -770,7 +593,7 @@ var RegEditSet: TRegistry;
770 ListaAuxSet : TStrings; 593 ListaAuxSet : TStrings;
771 I : Integer; 594 I : Integer;
772 begin 595 begin
773 - ListaAuxSet := Explode(Chave, '); 596 + ListaAuxSet := g_oCacic.explode(Chave, ');
774 strRootKey := ListaAuxSet[0]; 597 strRootKey := ListaAuxSet[0];
775 For I := 1 To ListaAuxSet.Count - 2 Do strKey := strKey + ListaAuxSet[I] + '\'; 598 For I := 1 To ListaAuxSet.Count - 2 Do strKey := strKey + ListaAuxSet[I] + '\';
776 strValue := ListaAuxSet[ListaAuxSet.Count - 1]; 599 strValue := ListaAuxSet[ListaAuxSet.Count - 1];
@@ -814,7 +637,7 @@ var RegDelValorReg: TRegistry; @@ -814,7 +637,7 @@ var RegDelValorReg: TRegistry;
814 ListaAuxDel : TStrings; 637 ListaAuxDel : TStrings;
815 I : Integer; 638 I : Integer;
816 begin 639 begin
817 - ListaAuxDel := Explode(Chave, '); 640 + ListaAuxDel := g_oCacic.explode(Chave, ');
818 strRootKey := ListaAuxDel[0]; 641 strRootKey := ListaAuxDel[0];
819 For I := 1 To ListaAuxDel.Count - 2 Do strKey := strKey + ListaAuxDel[I] + '\'; 642 For I := 1 To ListaAuxDel.Count - 2 Do strKey := strKey + ListaAuxDel[I] + '\';
820 strValue := ListaAuxDel[ListaAuxDel.Count - 1]; 643 strValue := ListaAuxDel[ListaAuxDel.Count - 1];
@@ -941,7 +764,7 @@ begin @@ -941,7 +764,7 @@ begin
941 Begin 764 Begin
942 Try 765 Try
943 strAux := GetValorChaveRegEdit('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Last Domain'); 766 strAux := GetValorChaveRegEdit('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Last Domain');
944 - listaAux_GWG := Explode(strAux, ','); 767 + listaAux_GWG := g_oCacic.explode(strAux, ',');
945 Result := Trim(listaAux_GWG[2]); 768 Result := Trim(listaAux_GWG[2]);
946 listaAux_GWG.Free; 769 listaAux_GWG.Free;
947 Except 770 Except
@@ -984,8 +807,8 @@ var L1_GIR, L2_GIR : TStrings; @@ -984,8 +807,8 @@ var L1_GIR, L2_GIR : TStrings;
984 end; 807 end;
985 begin 808 begin
986 Try 809 Try
987 - L1_GIR := Explode(IP_Computador, '.');  
988 - L2_GIR := Explode(MascaraRede, '.'); 810 + L1_GIR := g_oCacic.explode(IP_Computador, '.');
  811 + L2_GIR := g_oCacic.explode(MascaraRede, '.');
989 812
990 //Percorre cada um dos 4 octetos dos endereços 813 //Percorre cada um dos 4 octetos dos endereços
991 for i := 0 to 3 do 814 for i := 0 to 3 do
@@ -1041,7 +864,7 @@ begin @@ -1041,7 +864,7 @@ begin
1041 Result := ''; 864 Result := '';
1042 if (p_SectionName <> '') then 865 if (p_SectionName <> '') then
1043 Begin 866 Begin
1044 - v_array_SectionName := explode(p_SectionName,'/'); 867 + v_array_SectionName := g_oCacic.explode(p_SectionName,'/');
1045 v_array_SectionName_Count := v_array_SectionName.Count; 868 v_array_SectionName_Count := v_array_SectionName.Count;
1046 End 869 End
1047 else v_array_SectionName_Count := 0; 870 else v_array_SectionName_Count := 0;
@@ -1100,7 +923,7 @@ var @@ -1100,7 +923,7 @@ var
1100 strDataArqLocal, strDataAtual, v_file_debugs : string; 923 strDataArqLocal, strDataAtual, v_file_debugs : string;
1101 begin 924 begin
1102 try 925 try
1103 - v_file_debugs := p_path_cacic + '\Temp\Debugs\debug_'+StringReplace(ExtractFileName(StrUpper(PChar(ParamStr(0)))),'.EXE','',[rfReplaceAll])+'.txt'; 926 + v_file_debugs := g_oCacic.getCacicPath + '\Temp\Debugs\debug_'+StringReplace(ExtractFileName(StrUpper(PChar(ParamStr(0)))),'.EXE','',[rfReplaceAll])+'.txt';
1104 FileSetAttr (v_file_debugs,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000 927 FileSetAttr (v_file_debugs,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
1105 AssignFile(DebugsFile,v_file_debugs); {Associa o arquivo a uma variável do tipo TextFile} 928 AssignFile(DebugsFile,v_file_debugs); {Associa o arquivo a uma variável do tipo TextFile}
1106 929
@@ -1177,16 +1000,15 @@ Begin @@ -1177,16 +1000,15 @@ Begin
1177 strAux := 'A.B.C.D'; // Apenas para forçar que o Gerente extraia via _SERVER[REMOTE_ADDR] 1000 strAux := 'A.B.C.D'; // Apenas para forçar que o Gerente extraia via _SERVER[REMOTE_ADDR]
1178 1001
1179 // Tratamentos de valores para tráfego POST: 1002 // Tratamentos de valores para tráfego POST:
1180 - v_AuxRequest.Values['te_node_address'] := StringReplace(EnCrypt(GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS' , v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1181 - v_AuxRequest.Values['id_so'] := StringReplace(EnCrypt(g_oCacic.getWindowsStrId() ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1182 - v_AuxRequest.Values['te_so'] := StringReplace(EnCrypt(g_te_so ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1183 - v_AuxRequest.Values['te_ip'] := StringReplace(EnCrypt(strAux ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1184 - v_AuxRequest.Values['id_ip_rede'] := StringReplace(EnCrypt(GetValorDatMemoria('TcpIp.ID_IP_REDE' , v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1185 - v_AuxRequest.Values['te_workgroup'] := StringReplace(EnCrypt(GetValorDatMemoria('TcpIp.TE_WORKGROUP' , v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1186 - v_AuxRequest.Values['te_nome_computador']:= StringReplace(EnCrypt(GetValorDatMemoria('TcpIp.TE_NOME_COMPUTADOR', v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1187 - v_AuxRequest.Values['id_ip_estacao'] := StringReplace(EnCrypt(GetIP ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1188 - v_AuxRequest.Values['te_versao_cacic'] := StringReplace(EnCrypt(getVersionInfo(p_path_cacic + 'cacic2.exe') ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1189 - v_AuxRequest.Values['te_versao_gercols'] := StringReplace(EnCrypt(getVersionInfo(ParamStr(0)) ,l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 1003 + v_AuxRequest.Values['te_node_address'] := StringReplace(g_oCacic.EnCrypt(GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS' , v_tstrCipherOpened)),'+','<MAIS>',[rfReplaceAll]);
  1004 + v_AuxRequest.Values['te_so'] := StringReplace(g_oCacic.EnCrypt(g_oCacic.getWindowsStrId() ),'+','<MAIS>',[rfReplaceAll]);
  1005 + v_AuxRequest.Values['te_ip'] := StringReplace(g_oCacic.EnCrypt(strAux ),'+','<MAIS>',[rfReplaceAll]);
  1006 + v_AuxRequest.Values['id_ip_rede'] := StringReplace(g_oCacic.EnCrypt(GetValorDatMemoria('TcpIp.ID_IP_REDE' , v_tstrCipherOpened)),'+','<MAIS>',[rfReplaceAll]);
  1007 + v_AuxRequest.Values['te_workgroup'] := StringReplace(g_oCacic.EnCrypt(GetValorDatMemoria('TcpIp.TE_WORKGROUP' , v_tstrCipherOpened)),'+','<MAIS>',[rfReplaceAll]);
  1008 + v_AuxRequest.Values['te_nome_computador']:= StringReplace(g_oCacic.EnCrypt(GetValorDatMemoria('TcpIp.TE_NOME_COMPUTADOR', v_tstrCipherOpened)),'+','<MAIS>',[rfReplaceAll]);
  1009 + v_AuxRequest.Values['id_ip_estacao'] := StringReplace(g_oCacic.EnCrypt(GetIP ),'+','<MAIS>',[rfReplaceAll]);
  1010 + v_AuxRequest.Values['te_versao_cacic'] := StringReplace(g_oCacic.EnCrypt(getVersionInfo(g_oCacic.getCacicPath + 'cacic2.exe') ),'+','<MAIS>',[rfReplaceAll]);
  1011 + v_AuxRequest.Values['te_versao_gercols'] := StringReplace(g_oCacic.EnCrypt(getVersionInfo(ParamStr(0)) ),'+','<MAIS>',[rfReplaceAll]);
1190 1012
1191 v_Endereco_WS := GetValorDatMemoria('Configs.Endereco_WS', v_tstrCipherOpened); 1013 v_Endereco_WS := GetValorDatMemoria('Configs.Endereco_WS', v_tstrCipherOpened);
1192 v_Endereco_Servidor := GetValorDatMemoria('Configs.EnderecoServidor', v_tstrCipherOpened); 1014 v_Endereco_Servidor := GetValorDatMemoria('Configs.EnderecoServidor', v_tstrCipherOpened);
@@ -1198,7 +1020,7 @@ Begin @@ -1198,7 +1020,7 @@ Begin
1198 End; 1020 End;
1199 1021
1200 if (trim(v_Endereco_Servidor)='') then 1022 if (trim(v_Endereco_Servidor)='') then
1201 - v_Endereco_Servidor := Trim(GetValorChaveRegIni('Configs','EnderecoServidor',p_path_cacic + 'cacic2.ini')); 1023 + v_Endereco_Servidor := Trim(GetValorChaveRegIni('Configs','EnderecoServidor',g_oCacic.getCacicPath + 'cacic2.ini'));
1202 1024
1203 strEndereco := 'http://' + v_Endereco_Servidor + v_Endereco_WS + URL; 1025 strEndereco := 'http://' + v_Endereco_Servidor + v_Endereco_WS + URL;
1204 1026
@@ -1223,9 +1045,9 @@ Begin @@ -1223,9 +1045,9 @@ Begin
1223 idHTTP1.ProxyParams.ProxyPort := 0; 1045 idHTTP1.ProxyParams.ProxyPort := 0;
1224 idHTTP1.ReadTimeout := 0; 1046 idHTTP1.ReadTimeout := 0;
1225 idHTTP1.RedirectMaximum := 15; 1047 idHTTP1.RedirectMaximum := 15;
1226 - idHTTP1.Request.UserAgent := StringReplace(EnCrypt('AGENTE_CACIC',l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1227 - idHTTP1.Request.Username := StringReplace(EnCrypt('USER_CACIC',l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1228 - idHTTP1.Request.Password := StringReplace(EnCrypt('PW_CACIC',l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 1048 + idHTTP1.Request.UserAgent := StringReplace(g_oCacic.enCrypt('AGENTE_CACIC'),'+','<MAIS>',[rfReplaceAll]);
  1049 + idHTTP1.Request.Username := StringReplace(g_oCacic.enCrypt('USER_CACIC'),'+','<MAIS>',[rfReplaceAll]);
  1050 + idHTTP1.Request.Password := StringReplace(g_oCacic.enCrypt('PW_CACIC'),'+','<MAIS>',[rfReplaceAll]);
1229 idHTTP1.Request.Accept := 'text/html, */*'; 1051 idHTTP1.Request.Accept := 'text/html, */*';
1230 idHTTP1.Request.BasicAuthentication := true; 1052 idHTTP1.Request.BasicAuthentication := true;
1231 idHTTP1.Request.ContentLength := -1; 1053 idHTTP1.Request.ContentLength := -1;
@@ -1240,7 +1062,7 @@ Begin @@ -1240,7 +1062,7 @@ Begin
1240 1062
1241 if v_Debugs then 1063 if v_Debugs then
1242 Begin 1064 Begin
1243 - Log_Debug('te_so => '+g_te_so); 1065 + Log_Debug('te_so => '+g_oCacic.getWindowsStrId);
1244 Log_Debug('Valores de REQUEST para envio ao Gerente WEB:'); 1066 Log_Debug('Valores de REQUEST para envio ao Gerente WEB:');
1245 for intAux := 0 to v_AuxRequest.count -1 do 1067 for intAux := 0 to v_AuxRequest.count -1 do
1246 Log_Debug('#'+inttostr(intAux)+': '+v_AuxRequest[intAux]); 1068 Log_Debug('#'+inttostr(intAux)+': '+v_AuxRequest[intAux]);
@@ -1295,7 +1117,7 @@ Begin @@ -1295,7 +1117,7 @@ Begin
1295 1117
1296 strRetorno := ComunicaServidor('get_patrimonio.php', Request_Ger_Cols, '.'); 1118 strRetorno := ComunicaServidor('get_patrimonio.php', Request_Ger_Cols, '.');
1297 SetValorDatMemoria('Patrimonio.Configs', strRetorno, v_tstrCipherOpened); 1119 SetValorDatMemoria('Patrimonio.Configs', strRetorno, v_tstrCipherOpened);
1298 - SetValorDatMemoria('Patrimonio.cs_abre_janela_patr', DeCrypt(XML_RetornaValor('cs_abre_janela_patr', strRetorno),true), v_tstrCipherOpened); 1120 + SetValorDatMemoria('Patrimonio.cs_abre_janela_patr', g_oCacic.deCrypt(XML_RetornaValor('cs_abre_janela_patr', strRetorno)), v_tstrCipherOpened);
1299 1121
1300 Request_Ger_Cols.Free; 1122 Request_Ger_Cols.Free;
1301 1123
@@ -1360,11 +1182,11 @@ var intAux1, intAux2, intAux3, intAux4, v_conta, v_conta_EXCECOES : integer; @@ -1360,11 +1182,11 @@ var intAux1, intAux2, intAux3, intAux4, v_conta, v_conta_EXCECOES : integer;
1360 1182
1361 Begin 1183 Begin
1362 Result := ''; 1184 Result := '';
1363 - tstrOR := Explode(p_tripa,';'); // OR 1185 + tstrOR := g_oCacic.explode(p_tripa,';'); // OR
1364 1186
1365 for intAux1 := 0 to tstrOR.Count-1 Do 1187 for intAux1 := 0 to tstrOR.Count-1 Do
1366 Begin 1188 Begin
1367 - tstrAND := Explode(tstrOR[intAux1],','); // AND 1189 + tstrAND := g_oCacic.explode(tstrOR[intAux1],','); // AND
1368 for intAux2 := 0 to p_array_campos.Count-1 Do 1190 for intAux2 := 0 to p_array_campos.Count-1 Do
1369 Begin 1191 Begin
1370 v_conta := 0; 1192 v_conta := 0;
@@ -1380,7 +1202,7 @@ Begin @@ -1380,7 +1202,7 @@ Begin
1380 v_conta_EXCECOES := 0; 1202 v_conta_EXCECOES := 0;
1381 if (p_excecao <> '') then 1203 if (p_excecao <> '') then
1382 Begin 1204 Begin
1383 - tstrEXCECOES := Explode(p_excecao,','); // Excecoes a serem tratadas 1205 + tstrEXCECOES := g_oCacic.explode(p_excecao,','); // Excecoes a serem tratadas
1384 for intAux4 := 0 to tstrEXCECOES.Count-1 Do 1206 for intAux4 := 0 to tstrEXCECOES.Count-1 Do
1385 Begin 1207 Begin
1386 if (rat(tstrEXCECOES[intAux4],p_array_valores[intAux2]) > 0) then 1208 if (rat(tstrEXCECOES[intAux4],p_array_valores[intAux2]) > 0) then
@@ -1483,7 +1305,7 @@ Begin @@ -1483,7 +1305,7 @@ Begin
1483 End 1305 End
1484 else 1306 else
1485 Begin 1307 Begin
1486 - v_Dir_Temp := p_path_cacic + p_Dir_Temp; 1308 + v_Dir_Temp := g_oCacic.getCacicPath + p_Dir_Temp;
1487 End; 1309 End;
1488 1310
1489 v_versao_disponivel := ''; 1311 v_versao_disponivel := '';
@@ -1523,7 +1345,7 @@ Begin @@ -1523,7 +1345,7 @@ Begin
1523 End 1345 End
1524 else 1346 else
1525 Begin 1347 Begin
1526 - strHashLocal := GetFileHash(p_Dir_Inst + p_File + '.exe'); 1348 + strHashLocal := g_oCacic.getFileHash(p_Dir_Inst + p_File + '.exe');
1527 strHashRemoto := GetValorDatMemoria('Configs.TE_HASH_'+UpperCase(p_File), v_tstrCipherOpened); 1349 strHashRemoto := GetValorDatMemoria('Configs.TE_HASH_'+UpperCase(p_File), v_tstrCipherOpened);
1528 // TESTE 1350 // TESTE
1529 //if (UpperCase(p_File) = 'GER_COLS') or (UpperCase(p_File) = 'CACIC2') then 1351 //if (UpperCase(p_File) = 'GER_COLS') or (UpperCase(p_File) = 'CACIC2') then
@@ -1577,22 +1399,13 @@ Begin @@ -1577,22 +1399,13 @@ Begin
1577 end; 1399 end;
1578 Except 1400 Except
1579 Begin 1401 Begin
1580 - CriaTXT(p_path_cacic,'ger_erro'); 1402 + CriaTXT(g_oCacic.getCacicPath,'ger_erro');
1581 SetValorDatMemoria('Erro_Fatal','PROBLEMAS COM ROTINA DE EXECUÇÃO DE UPDATES DE VERSÕES. Não foi possível baixar o módulo '+ p_Nome_Modulo + '.', v_tstrCipherOpened); 1403 SetValorDatMemoria('Erro_Fatal','PROBLEMAS COM ROTINA DE EXECUÇÃO DE UPDATES DE VERSÕES. Não foi possível baixar o módulo '+ p_Nome_Modulo + '.', v_tstrCipherOpened);
1582 log_diario('PROBLEMAS COM ROTINA DE EXECUÇÃO DE UPDATES DE VERSÕES.'); 1404 log_diario('PROBLEMAS COM ROTINA DE EXECUÇÃO DE UPDATES DE VERSÕES.');
1583 End; 1405 End;
1584 End; 1406 End;
1585 End; 1407 End;
1586 1408
1587 -  
1588 -function PegaWinDir(Sender: TObject) : string;  
1589 -var WinPath: array[0..MAX_PATH + 1] of char;  
1590 -begin  
1591 - GetWindowsDirectory(WinPath,MAX_PATH);  
1592 - Result := WinPath  
1593 -end;  
1594 -  
1595 -  
1596 function GetNetworkUserName : String; 1409 function GetNetworkUserName : String;
1597 // Gets the name of the user currently logged into the network on 1410 // Gets the name of the user currently logged into the network on
1598 // the local PC 1411 // the local PC
@@ -1744,15 +1557,14 @@ End; @@ -1744,15 +1557,14 @@ End;
1744 procedure Patrimnio1Click(Sender: TObject); 1557 procedure Patrimnio1Click(Sender: TObject);
1745 begin 1558 begin
1746 SetValorDatMemoria('Patrimonio.dt_ultima_renovacao_patrim','', v_tstrCipherOpened); 1559 SetValorDatMemoria('Patrimonio.dt_ultima_renovacao_patrim','', v_tstrCipherOpened);
1747 - if ChecaAgente(p_path_cacic + 'modulos', 'ini_cols.exe') then  
1748 - g_oCacic.createSampleProcess( p_path_cacic + 'modulos\ini_cols.exe /p_CipherKey=' + v_CipherKey +  
1749 - ' /p_ModulosOpcoes=col_patr,wait,user#', CACIC_PROCESS_WAIT ); 1560 + if ChecaAgente(g_oCacic.getCacicPath + 'modulos', 'ini_cols.exe') then
  1561 + g_oCacic.createSampleProcess( g_oCacic.getCacicPath + 'modulos\ini_cols.exe /p_ModulosOpcoes=col_patr,wait,user#', CACIC_PROCESS_WAIT );
1750 1562
1751 - if (FileExists(p_path_cacic + 'Temp\col_patr.dat')) then 1563 + if (FileExists(g_oCacic.getCacicPath + 'Temp\col_patr.dat')) then
1752 Begin 1564 Begin
1753 - log_DEBUG('Indicador '+p_path_cacic + 'Temp\col_patr.dat encontrado.'); 1565 + log_DEBUG('Indicador '+g_oCacic.getCacicPath + 'Temp\col_patr.dat encontrado.');
1754 v_acao_gercols := '* Preparando envio de informações de Patrimônio.'; 1566 v_acao_gercols := '* Preparando envio de informações de Patrimônio.';
1755 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'Temp\col_patr.dat'); 1567 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'Temp\col_patr.dat');
1756 1568
1757 // Armazeno dados para informações de coletas na data, via menu popup do Systray 1569 // Armazeno dados para informações de coletas na data, via menu popup do Systray
1758 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações Patrimoniais', v_tstrCipherOpened); 1570 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações Patrimoniais', v_tstrCipherOpened);
@@ -1764,16 +1576,16 @@ begin @@ -1764,16 +1576,16 @@ begin
1764 if (GetValorDatMemoria('Col_Patr.nada',v_tstrCipherOpened1)='') then 1576 if (GetValorDatMemoria('Col_Patr.nada',v_tstrCipherOpened1)='') then
1765 Begin 1577 Begin
1766 // Preparação para envio... 1578 // Preparação para envio...
1767 - Request_Ger_Cols.Values['id_unid_organizacional_nivel1'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel1' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1768 - Request_Ger_Cols.Values['id_unid_organizacional_nivel1a'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel1a' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1769 - Request_Ger_Cols.Values['id_unid_organizacional_nivel2'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel2' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1770 - Request_Ger_Cols.Values['te_localizacao_complementar' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_localizacao_complementar' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1771 - Request_Ger_Cols.Values['te_info_patrimonio1' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio1' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1772 - Request_Ger_Cols.Values['te_info_patrimonio2' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio2' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1773 - Request_Ger_Cols.Values['te_info_patrimonio3' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio3' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1774 - Request_Ger_Cols.Values['te_info_patrimonio4' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio4' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1775 - Request_Ger_Cols.Values['te_info_patrimonio5' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio5' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
1776 - Request_Ger_Cols.Values['te_info_patrimonio6' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio6' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 1579 + Request_Ger_Cols.Values['id_unid_organizacional_nivel1'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel1' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  1580 + Request_Ger_Cols.Values['id_unid_organizacional_nivel1a'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel1a' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  1581 + Request_Ger_Cols.Values['id_unid_organizacional_nivel2'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel2' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  1582 + Request_Ger_Cols.Values['te_localizacao_complementar' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_localizacao_complementar' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  1583 + Request_Ger_Cols.Values['te_info_patrimonio1' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio1' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  1584 + Request_Ger_Cols.Values['te_info_patrimonio2' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio2' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  1585 + Request_Ger_Cols.Values['te_info_patrimonio3' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio3' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  1586 + Request_Ger_Cols.Values['te_info_patrimonio4' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio4' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  1587 + Request_Ger_Cols.Values['te_info_patrimonio5' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio5' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  1588 + Request_Ger_Cols.Values['te_info_patrimonio6' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio6' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
1777 1589
1778 if v_Debugs then 1590 if v_Debugs then
1779 For intLoop := 0 to Request_Ger_Cols.Count-1 do 1591 For intLoop := 0 to Request_Ger_Cols.Count-1 do
@@ -1808,7 +1620,7 @@ begin @@ -1808,7 +1620,7 @@ begin
1808 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened); 1620 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened);
1809 1621
1810 Request_Ger_Cols.Clear; 1622 Request_Ger_Cols.Clear;
1811 - Matar(p_path_cacic+'Temp,'col_patr.dat'); 1623 + Matar(g_oCacic.getCacicPath+'Temp,'col_patr.dat');
1812 End; 1624 End;
1813 end; 1625 end;
1814 1626
@@ -1924,7 +1736,7 @@ Begin @@ -1924,7 +1736,7 @@ Begin
1924 1736
1925 // Verifico comunicação com o Módulo Gerente WEB. 1737 // Verifico comunicação com o Módulo Gerente WEB.
1926 Request_SVG := TStringList.Create; 1738 Request_SVG := TStringList.Create;
1927 - Request_SVG.Values['in_teste'] := StringReplace(EnCrypt('OK',l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 1739 + Request_SVG.Values['in_teste'] := StringReplace(g_oCacic.enCrypt('OK'),'+','<MAIS>',[rfReplaceAll]);
1928 1740
1929 v_acao_gercols := 'Preparando teste de comunicação com Módulo Gerente WEB.'; 1741 v_acao_gercols := 'Preparando teste de comunicação com Módulo Gerente WEB.';
1930 1742
@@ -1946,11 +1758,11 @@ Begin @@ -1946,11 +1758,11 @@ Begin
1946 Seta_l_cs_cipher(strRetorno); 1758 Seta_l_cs_cipher(strRetorno);
1947 Seta_l_cs_compress(strRetorno); 1759 Seta_l_cs_compress(strRetorno);
1948 1760
1949 - v_Aux := DeCrypt(XML_RetornaValor('te_serv_cacic', strRetorno),l_cs_compress); 1761 + v_Aux := g_oCacic.deCrypt(XML_RetornaValor('te_serv_cacic', strRetorno));
1950 if (v_te_serv_cacic <> v_Aux) and (v_Aux <> '') then 1762 if (v_te_serv_cacic <> v_Aux) and (v_Aux <> '') then
1951 SetValorDatMemoria('Configs.EnderecoServidor',v_Aux, v_tstrCipherOpened); 1763 SetValorDatMemoria('Configs.EnderecoServidor',v_Aux, v_tstrCipherOpened);
1952 1764
1953 - if (strRetorno <> '0') and (DeCrypt(XML_RetornaValor('te_rede_ok', strRetorno),l_cs_compress)<>'N') Then 1765 + if (strRetorno <> '0') and (g_oCacic.deCrypt(XML_RetornaValor('te_rede_ok', strRetorno))<>'N') Then
1954 Begin 1766 Begin
1955 v_acao_gercols := 'IP/Máscara usados: ' + v_tcpip.Adapter[v_index_ethernet].IPAddress[intAux1]+'/'+v_tcpip.Adapter[v_index_ethernet].IPAddressMask[intAux1]+' validados pelo Módulo Gerente WEB.'; 1767 v_acao_gercols := 'IP/Máscara usados: ' + v_tcpip.Adapter[v_index_ethernet].IPAddress[intAux1]+'/'+v_tcpip.Adapter[v_index_ethernet].IPAddressMask[intAux1]+' validados pelo Módulo Gerente WEB.';
1956 te_ip := v_tcpip.Adapter[v_index_ethernet].IPAddress[intAux1]; 1768 te_ip := v_tcpip.Adapter[v_index_ethernet].IPAddress[intAux1];
@@ -1968,17 +1780,17 @@ Begin @@ -1968,17 +1780,17 @@ Begin
1968 // Nova tentativa, preciso reinicializar o objeto devido aos restos da operação anterior... (Eu acho!) :) 1780 // Nova tentativa, preciso reinicializar o objeto devido aos restos da operação anterior... (Eu acho!) :)
1969 Request_SVG.Free; 1781 Request_SVG.Free;
1970 Request_SVG := TStringList.Create; 1782 Request_SVG := TStringList.Create;
1971 - Request_SVG.Values['in_teste'] := StringReplace(EnCrypt('OK',l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 1783 + Request_SVG.Values['in_teste'] := StringReplace(g_oCacic.enCrypt('OK'),'+','<MAIS>',[rfReplaceAll]);
1972 Try 1784 Try
1973 strRetorno := ComunicaServidor('get_config.php', Request_SVG, 'Teste de comunicação com o Módulo Gerente WEB.'); 1785 strRetorno := ComunicaServidor('get_config.php', Request_SVG, 'Teste de comunicação com o Módulo Gerente WEB.');
1974 Seta_l_cs_cipher(strRetorno); 1786 Seta_l_cs_cipher(strRetorno);
1975 Seta_l_cs_compress(strRetorno); 1787 Seta_l_cs_compress(strRetorno);
1976 1788
1977 - v_Aux := DeCrypt(XML_RetornaValor('te_serv_cacic', strRetorno),l_cs_compress); 1789 + v_Aux := g_oCacic.deCrypt(XML_RetornaValor('te_serv_cacic', strRetorno));
1978 if (v_te_serv_cacic <> v_Aux) and (v_Aux <> '') then 1790 if (v_te_serv_cacic <> v_Aux) and (v_Aux <> '') then
1979 SetValorDatMemoria('Configs.EnderecoServidor',v_Aux, v_tstrCipherOpened); 1791 SetValorDatMemoria('Configs.EnderecoServidor',v_Aux, v_tstrCipherOpened);
1980 1792
1981 - if (strRetorno <> '0') and (DeCrypt(XML_RetornaValor('te_rede_ok', strRetorno),l_cs_compress)<>'N') Then 1793 + if (strRetorno <> '0') and (g_oCacic.deCrypt(XML_RetornaValor('te_rede_ok', strRetorno))<>'N') Then
1982 Begin 1794 Begin
1983 v_acao_gercols := 'IP validado pelo Módulo Gerente WEB.'; 1795 v_acao_gercols := 'IP validado pelo Módulo Gerente WEB.';
1984 log_diario(v_acao_gercols); 1796 log_diario(v_acao_gercols);
@@ -2013,19 +1825,19 @@ Begin @@ -2013,19 +1825,19 @@ Begin
2013 v_acao_gercols := 'Contabilizando necessidade de Updates...'; 1825 v_acao_gercols := 'Contabilizando necessidade de Updates...';
2014 1826
2015 // O valor "true" para o 5º parâmetro da função Ver_UPD informa para apenas verificar a necessidade de FTP do referido objeto. 1827 // O valor "true" para o 5º parâmetro da função Ver_UPD informa para apenas verificar a necessidade de FTP do referido objeto.
2016 - CountUPD := CountUPD + Ver_UPD('ini_cols' ,'Inicializador de Coletas' ,p_path_cacic + 'modulos\','',true);  
2017 - CountUPD := CountUPD + Ver_UPD(StringReplace(v_scripter,'.exe','',[rfReplaceAll]) ,'Interpretador VBS' ,p_path_cacic + 'modulos\','',true);  
2018 - CountUPD := CountUPD + Ver_UPD('chksis' ,'Verificador de Integridade do Sistema' ,PegaWinDir(nil)+'\','',true);  
2019 - CountUPD := CountUPD + Ver_UPD('cacic2' ,'Agente Principal' ,p_path_cacic,'Temp',true);  
2020 - CountUPD := CountUPD + Ver_UPD('srcacicsrv' ,'Suporte Remoto Seguro' ,p_path_cacic + 'modulos\','',true);  
2021 - CountUPD := CountUPD + Ver_UPD('ger_cols' ,'Gerente de Coletas' ,p_path_cacic + 'modulos\','Temp',true);  
2022 - CountUPD := CountUPD + Ver_UPD('col_anvi' ,'Coletor de Informações de Anti-Vírus OfficeScan' ,p_path_cacic + 'modulos\','',true);  
2023 - CountUPD := CountUPD + Ver_UPD('col_comp' ,'Coletor de Informações de Compartilhamentos' ,p_path_cacic + 'modulos\','',true);  
2024 - CountUPD := CountUPD + Ver_UPD('col_hard' ,'Coletor de Informações de Hardware' ,p_path_cacic + 'modulos\','',true);  
2025 - CountUPD := CountUPD + Ver_UPD('col_patr' ,'Coletor de Informações de Patrimônio/Loc.Fís.' ,p_path_cacic + 'modulos\','',true);  
2026 - CountUPD := CountUPD + Ver_UPD('col_moni' ,'Coletor de Informações de Sistemas Monitorados' ,p_path_cacic + 'modulos\','',true);  
2027 - CountUPD := CountUPD + Ver_UPD('col_soft' ,'Coletor de Informações de Softwares Básicos' ,p_path_cacic + 'modulos\','',true);  
2028 - CountUPD := CountUPD + Ver_UPD('col_undi' ,'Coletor de Informações de Unidades de Disco' ,p_path_cacic + 'modulos\','',true); 1828 + CountUPD := CountUPD + Ver_UPD('ini_cols' ,'Inicializador de Coletas' ,g_oCacic.getCacicPath + 'modulos\','',true);
  1829 + CountUPD := CountUPD + Ver_UPD(StringReplace(v_scripter,'.exe','',[rfReplaceAll]) ,'Interpretador VBS' ,g_oCacic.getCacicPath + 'modulos\','',true);
  1830 + CountUPD := CountUPD + Ver_UPD('chksis' ,'Verificador de Integridade do Sistema' ,g_oCacic.getWinDir ,'',true);
  1831 + CountUPD := CountUPD + Ver_UPD('cacic2' ,'Agente Principal' ,g_oCacic.getCacicPath ,'Temp',true);
  1832 + CountUPD := CountUPD + Ver_UPD('srcacicsrv' ,'Suporte Remoto Seguro' ,g_oCacic.getCacicPath + 'modulos\','',true);
  1833 + CountUPD := CountUPD + Ver_UPD('ger_cols' ,'Gerente de Coletas' ,g_oCacic.getCacicPath + 'modulos\','Temp',true);
  1834 + CountUPD := CountUPD + Ver_UPD('col_anvi' ,'Coletor de Informações de Anti-Vírus OfficeScan' ,g_oCacic.getCacicPath + 'modulos\','',true);
  1835 + CountUPD := CountUPD + Ver_UPD('col_comp' ,'Coletor de Informações de Compartilhamentos' ,g_oCacic.getCacicPath + 'modulos\','',true);
  1836 + CountUPD := CountUPD + Ver_UPD('col_hard' ,'Coletor de Informações de Hardware' ,g_oCacic.getCacicPath + 'modulos\','',true);
  1837 + CountUPD := CountUPD + Ver_UPD('col_patr' ,'Coletor de Informações de Patrimônio/Loc.Fís.' ,g_oCacic.getCacicPath + 'modulos\','',true);
  1838 + CountUPD := CountUPD + Ver_UPD('col_moni' ,'Coletor de Informações de Sistemas Monitorados' ,g_oCacic.getCacicPath + 'modulos\','',true);
  1839 + CountUPD := CountUPD + Ver_UPD('col_soft' ,'Coletor de Informações de Softwares Básicos' ,g_oCacic.getCacicPath + 'modulos\','',true);
  1840 + CountUPD := CountUPD + Ver_UPD('col_undi' ,'Coletor de Informações de Unidades de Disco' ,g_oCacic.getCacicPath + 'modulos\','',true);
2029 1841
2030 1842
2031 1843
@@ -2042,8 +1854,8 @@ Begin @@ -2042,8 +1854,8 @@ Begin
2042 log_DEBUG('Preparando contato com módulo Gerente WEB para Downloads.'); 1854 log_DEBUG('Preparando contato com módulo Gerente WEB para Downloads.');
2043 v_acao_gercols := 'Contactando o módulo Gerente WEB: get_config.php...'; 1855 v_acao_gercols := 'Contactando o módulo Gerente WEB: get_config.php...';
2044 Request_SVG := TStringList.Create; 1856 Request_SVG := TStringList.Create;
2045 - Request_SVG.Values['in_chkcacic'] := StringReplace(EnCrypt('chkcacic',l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2046 - Request_SVG.Values['te_fila_ftp'] := StringReplace(EnCrypt('1',l_cs_compress),'+','<MAIS>',[rfReplaceAll]); // Indicará que o agente quer entrar no grupo para FTP 1857 + Request_SVG.Values['in_chkcacic'] := StringReplace(g_oCacic.enCrypt('chkcacic'),'+','<MAIS>',[rfReplaceAll]);
  1858 + Request_SVG.Values['te_fila_ftp'] := StringReplace(g_oCacic.enCrypt('1'),'+','<MAIS>',[rfReplaceAll]); // Indicará que o agente quer entrar no grupo para FTP
2047 //Request_SVG.Values['id_ip_estacao'] := EnCrypt(GetIP,l_cs_compress); // Informará o IP para registro na tabela redes_grupos_FTP 1859 //Request_SVG.Values['id_ip_estacao'] := EnCrypt(GetIP,l_cs_compress); // Informará o IP para registro na tabela redes_grupos_FTP
2048 1860
2049 log_DEBUG(v_acao_gercols + ' Parâmetros: in_chkcacic="'+Request_SVG.Values['in_chkcacic']+'", te_fila_ftp="'+Request_SVG.Values['te_fila_ftp']+'" e id_ip_estacao="'+Request_SVG.Values['id_ip_estacao']+'"'); 1861 log_DEBUG(v_acao_gercols + ' Parâmetros: in_chkcacic="'+Request_SVG.Values['in_chkcacic']+'", te_fila_ftp="'+Request_SVG.Values['te_fila_ftp']+'" e id_ip_estacao="'+Request_SVG.Values['id_ip_estacao']+'"');
@@ -2051,17 +1863,19 @@ Begin @@ -2051,17 +1863,19 @@ Begin
2051 Seta_l_cs_cipher(strRetorno); 1863 Seta_l_cs_cipher(strRetorno);
2052 Seta_l_cs_compress(strRetorno); 1864 Seta_l_cs_compress(strRetorno);
2053 1865
  1866 +
  1867 +
2054 Request_SVG.Free; 1868 Request_SVG.Free;
2055 if (strRetorno <> '0') Then 1869 if (strRetorno <> '0') Then
2056 Begin 1870 Begin
2057 - SetValorDatMemoria('Configs.TE_SERV_UPDATES' ,DeCrypt(XML_RetornaValor('te_serv_updates' , strRetorno),true), v_tstrCipherOpened);  
2058 - SetValorDatMemoria('Configs.NM_USUARIO_LOGIN_SERV_UPDATES',DeCrypt(XML_RetornaValor('nm_usuario_login_serv_updates' , strRetorno),true), v_tstrCipherOpened);  
2059 - SetValorDatMemoria('Configs.TE_SENHA_LOGIN_SERV_UPDATES' ,DeCrypt(XML_RetornaValor('te_senha_login_serv_updates' , strRetorno),true), v_tstrCipherOpened);  
2060 - SetValorDatMemoria('Configs.TE_PATH_SERV_UPDATES' ,DeCrypt(XML_RetornaValor('te_path_serv_updates' , strRetorno),true), v_tstrCipherOpened);  
2061 - SetValorDatMemoria('Configs.NU_PORTA_SERV_UPDATES' ,DeCrypt(XML_RetornaValor('nu_porta_serv_updates' , strRetorno),true), v_tstrCipherOpened);  
2062 - SetValorDatMemoria('Configs.TE_FILA_FTP' ,DeCrypt(XML_RetornaValor('te_fila_ftp' , strRetorno),true), v_tstrCipherOpened);  
2063 - SetValorDatMemoria('Configs.ID_FTP' ,DeCrypt(XML_RetornaValor('id_ftp' , strRetorno),true), v_tstrCipherOpened);  
2064 - SetValorDatMemoria('TcpIp.TE_ENDERECOS_MAC_INVALIDOS' ,DeCrypt(XML_RetornaValor('te_enderecos_mac_invalidos' , strRetorno),true), v_tstrCipherOpened); 1871 + SetValorDatMemoria('Configs.TE_SERV_UPDATES' ,g_oCacic.deCrypt(XML_RetornaValor('te_serv_updates' , strRetorno)), v_tstrCipherOpened);
  1872 + SetValorDatMemoria('Configs.NM_USUARIO_LOGIN_SERV_UPDATES',g_oCacic.DeCrypt(XML_RetornaValor('nm_usuario_login_serv_updates' , strRetorno)), v_tstrCipherOpened);
  1873 + SetValorDatMemoria('Configs.TE_SENHA_LOGIN_SERV_UPDATES' ,g_oCacic.DeCrypt(XML_RetornaValor('te_senha_login_serv_updates' , strRetorno)), v_tstrCipherOpened);
  1874 + SetValorDatMemoria('Configs.TE_PATH_SERV_UPDATES' ,g_oCacic.DeCrypt(XML_RetornaValor('te_path_serv_updates' , strRetorno)), v_tstrCipherOpened);
  1875 + SetValorDatMemoria('Configs.NU_PORTA_SERV_UPDATES' ,g_oCacic.DeCrypt(XML_RetornaValor('nu_porta_serv_updates' , strRetorno)), v_tstrCipherOpened);
  1876 + SetValorDatMemoria('Configs.TE_FILA_FTP' ,g_oCacic.DeCrypt(XML_RetornaValor('te_fila_ftp' , strRetorno)), v_tstrCipherOpened);
  1877 + SetValorDatMemoria('Configs.ID_FTP' ,g_oCacic.DeCrypt(XML_RetornaValor('id_ftp' , strRetorno)), v_tstrCipherOpened);
  1878 + SetValorDatMemoria('TcpIp.TE_ENDERECOS_MAC_INVALIDOS' ,g_oCacic.DeCrypt(XML_RetornaValor('te_enderecos_mac_invalidos' , strRetorno)), v_tstrCipherOpened);
2065 End; 1879 End;
2066 End; 1880 End;
2067 1881
@@ -2077,23 +1891,23 @@ Begin @@ -2077,23 +1891,23 @@ Begin
2077 v_acao_gercols := 'Verificando versões do scripter e chksis'; 1891 v_acao_gercols := 'Verificando versões do scripter e chksis';
2078 log_DEBUG(''+v_acao_gercols); 1892 log_DEBUG(''+v_acao_gercols);
2079 1893
2080 - Ver_UPD(StringReplace(v_scripter,'.exe','',[rfReplaceAll]),'Interpretador VBS' ,p_path_cacic + 'modulos\','',false);  
2081 - Ver_UPD('chksis' ,'Verificador de Integridade do Sistema',PegaWinDir(nil)+'\' ,'',false); 1894 + Ver_UPD(StringReplace(v_scripter,'.exe','',[rfReplaceAll]),'Interpretador VBS' ,g_oCacic.getCacicPath + 'modulos\','',false);
  1895 + Ver_UPD('chksis' ,'Verificador de Integridade do Sistema',g_oCacic.getWinDir +'\' ,'',false);
2082 1896
2083 // O módulo de Suporte Remoto é opcional, através da opção Administração / Módulos 1897 // O módulo de Suporte Remoto é opcional, através da opção Administração / Módulos
2084 { 1898 {
2085 log_diario('Verificando nova versão para módulo Suporte Remoto Seguro.'); 1899 log_diario('Verificando nova versão para módulo Suporte Remoto Seguro.');
2086 // Caso encontre nova versão de srCACICsrv esta será gravada em modulos. 1900 // Caso encontre nova versão de srCACICsrv esta será gravada em modulos.
2087 - Ver_UPD('srcacicsrv','Suporte Remoto Seguro',p_path_cacic + 'modulos,'',false); 1901 + Ver_UPD('srcacicsrv','Suporte Remoto Seguro',g_oCacic.getCacicPath + 'modulos,'',false);
2088 } 1902 }
2089 1903
2090 // Verifico existência do chksis.ini 1904 // Verifico existência do chksis.ini
2091 - if not (FileExists(PegaWinDir(nil) + 'chksis.ini')) then 1905 + if not (FileExists(g_oCacic.getWinDir + 'chksis.ini')) then
2092 Begin 1906 Begin
2093 Try 1907 Try
2094 v_acao_gercols := 'chksis.ini inexistente, recriando...'; 1908 v_acao_gercols := 'chksis.ini inexistente, recriando...';
2095 - tstrTripa1 := Explode(p_path_cacic,'\');  
2096 - AssignFile(chksis_ini,PegaWinDir(nil) + '\chksis.ini'); {Associa o arquivo a uma variável do tipo TextFile} 1909 + tstrTripa1 := g_oCacic.explode(g_oCacic.getCacicPath,'\');
  1910 + AssignFile(chksis_ini,g_oCacic.getWinDir + 'chksis.ini'); {Associa o arquivo a uma variável do tipo TextFile}
2097 Rewrite(chksis_ini); // Recria o arquivo... 1911 Rewrite(chksis_ini); // Recria o arquivo...
2098 Append(chksis_ini); 1912 Append(chksis_ini);
2099 Writeln(chksis_ini,'[Cacic2]'); 1913 Writeln(chksis_ini,'[Cacic2]');
@@ -2115,7 +1929,7 @@ Begin @@ -2115,7 +1929,7 @@ Begin
2115 (te_nome_host='') or (te_serv_dhcp='' ) or (te_dns_primario='') or (te_wins_primario='') or 1929 (te_nome_host='') or (te_serv_dhcp='' ) or (te_dns_primario='') or (te_wins_primario='') or
2116 (te_wins_secundario='') then 1930 (te_wins_secundario='') then
2117 Begin 1931 Begin
2118 - v_nome_arquivo := p_path_cacic + 'Temp\ipconfig.txt'; 1932 + v_nome_arquivo := g_oCacic.getCacicPath + 'Temp\ipconfig.txt';
2119 v_metodo_obtencao := 'WMI Object'; 1933 v_metodo_obtencao := 'WMI Object';
2120 v_acao_gercols := 'Criando batch para obtenção de IPCONFIG via WMI...'; 1934 v_acao_gercols := 'Criando batch para obtenção de IPCONFIG via WMI...';
2121 Try 1935 Try
@@ -2148,17 +1962,17 @@ Begin @@ -2148,17 +1962,17 @@ Begin
2148 Batchfile.Add('IPConfigFile.Close'); 1962 Batchfile.Add('IPConfigFile.Close');
2149 Batchfile.Add('if v_ok = "OK" then'); 1963 Batchfile.Add('if v_ok = "OK" then');
2150 Batchfile.Add(' Set FileSysOK = WScript.CreateObject("Scripting.FileSystemObject")'); 1964 Batchfile.Add(' Set FileSysOK = WScript.CreateObject("Scripting.FileSystemObject")');
2151 - Batchfile.Add(' Set IPConfigFileOK = FileSysOK.CreateTextFile("'+p_path_cacic + 'Temp\ipconfi1.txt", True)'); 1965 + Batchfile.Add(' Set IPConfigFileOK = FileSysOK.CreateTextFile("'+g_oCacic.getCacicPath + 'Temp\ipconfi1.txt", True)');
2152 Batchfile.Add(' IPConfigFileOK.Close'); 1966 Batchfile.Add(' IPConfigFileOK.Close');
2153 Batchfile.Add('end if'); 1967 Batchfile.Add('end if');
2154 Batchfile.Add('WScript.Quit'); 1968 Batchfile.Add('WScript.Quit');
2155 - Batchfile.SaveToFile(p_path_cacic + 'Temp\ipconfig.vbs'); 1969 + Batchfile.SaveToFile(g_oCacic.getCacicPath + 'Temp\ipconfig.vbs');
2156 BatchFile.Free; 1970 BatchFile.Free;
2157 v_acao_gercols := 'Invocando execução de VBS para obtenção de IPCONFIG...'; 1971 v_acao_gercols := 'Invocando execução de VBS para obtenção de IPCONFIG...';
2158 - log_DEBUG('Executando "'+p_path_cacic + 'modulos\' + v_scripter + ' //b ' + p_path_cacic + 'temp\ipconfig.vbs"'); 1972 + log_DEBUG('Executando "'+g_oCacic.getCacicPath + 'modulos\' + v_scripter + ' //b ' + g_oCacic.getCacicPath + 'temp\ipconfig.vbs"');
2159 1973
2160 - if ChecaAgente(p_path_cacic + 'modulos', v_scripter) then  
2161 - WinExec(PChar(p_path_cacic + 'modulos\' + v_scripter + ' //b ' + p_path_cacic + 'temp\ipconfig.vbs'), SW_HIDE); 1974 + if ChecaAgente(g_oCacic.getCacicPath + 'modulos', v_scripter) then
  1975 + WinExec(PChar(g_oCacic.getCacicPath + 'modulos\' + v_scripter + ' //b ' + g_oCacic.getCacicPath + 'temp\ipconfig.vbs'), SW_HIDE);
2162 Except 1976 Except
2163 Begin 1977 Begin
2164 log_diario('Erro na geração do ipconfig.txt pelo ' + v_metodo_obtencao+'.'); 1978 log_diario('Erro na geração do ipconfig.txt pelo ' + v_metodo_obtencao+'.');
@@ -2168,13 +1982,13 @@ Begin @@ -2168,13 +1982,13 @@ Begin
2168 // Para aguardar o processamento acima, caso aconteça 1982 // Para aguardar o processamento acima, caso aconteça
2169 sleep(5000); 1983 sleep(5000);
2170 1984
2171 - v_Tamanho_Arquivo := Get_File_Size(p_path_cacic + 'Temp\ipconfig.txt',true);  
2172 - if not (FileExists(p_path_cacic + 'Temp\ipconfi1.txt')) or (v_Tamanho_Arquivo='0') then // O arquivo ipconfig.txt foi gerado vazio, tentarei IPConfig ou WinIPcfg! 1985 + v_Tamanho_Arquivo := Get_File_Size(g_oCacic.getCacicPath + 'Temp\ipconfig.txt',true);
  1986 + if not (FileExists(g_oCacic.getCacicPath + 'Temp\ipconfi1.txt')) or (v_Tamanho_Arquivo='0') then // O arquivo ipconfig.txt foi gerado vazio, tentarei IPConfig ou WinIPcfg!
2173 Begin 1987 Begin
2174 Try 1988 Try
2175 - v_win_dir := PegaWinDir(nil);  
2176 - v_win_dir_command := PegaWinDir(nil);  
2177 - v_win_dir_ipcfg := PegaWinDir(nil); 1989 + v_win_dir := g_oCacic.getWinDir;
  1990 + v_win_dir_command := g_oCacic.getWinDir;
  1991 + v_win_dir_ipcfg := g_oCacic.getWinDir;
2178 v_dir_command := ''; 1992 v_dir_command := '';
2179 v_dir_ipcfg := ''; 1993 v_dir_ipcfg := '';
2180 1994
@@ -2321,7 +2135,7 @@ Begin @@ -2321,7 +2135,7 @@ Begin
2321 v_conta_EXCECOES := 0; 2135 v_conta_EXCECOES := 0;
2322 if (v_enderecos_mac_invalidos <> '') then 2136 if (v_enderecos_mac_invalidos <> '') then
2323 Begin 2137 Begin
2324 - tstrEXCECOES := Explode(v_enderecos_mac_invalidos,','); // Excecoes a serem tratadas 2138 + tstrEXCECOES := g_oCacic.explode(v_enderecos_mac_invalidos,','); // Excecoes a serem tratadas
2325 for intAux4 := 0 to tstrEXCECOES.Count-1 Do 2139 for intAux4 := 0 to tstrEXCECOES.Count-1 Do
2326 Begin 2140 Begin
2327 if (rat(tstrEXCECOES[intAux4],v_mac_address) > 0) then 2141 if (rat(tstrEXCECOES[intAux4],v_mac_address) > 0) then
@@ -2346,11 +2160,11 @@ Begin @@ -2346,11 +2160,11 @@ Begin
2346 log_DEBUG('Excluindo: "'+v_nome_arquivo+'"'); 2160 log_DEBUG('Excluindo: "'+v_nome_arquivo+'"');
2347 DeleteFile(v_nome_arquivo); 2161 DeleteFile(v_nome_arquivo);
2348 2162
2349 - v_acao_gercols := 'Excluindo arquivo '+p_path_cacic + 'Temp\ipconfi1.txt, usado na obtenção de IPCONFIG...';  
2350 - Matar(p_path_cacic+'Temp\','ipconfi1.txt'); 2163 + v_acao_gercols := 'Excluindo arquivo '+g_oCacic.getCacicPath + 'Temp\ipconfi1.txt, usado na obtenção de IPCONFIG...';
  2164 + Matar(g_oCacic.getCacicPath+'Temp\','ipconfi1.txt');
2351 2165
2352 - v_acao_gercols := 'Excluindo arquivo '+p_path_cacic + 'Temp\ipconfig.vbs, usado na obtenção de IPCONFIG...';  
2353 - Matar(p_path_cacic+'Temp\','ipconfig.vbs'); 2166 + v_acao_gercols := 'Excluindo arquivo '+g_oCacic.getCacicPath + 'Temp\ipconfig.vbs, usado na obtenção de IPCONFIG...';
  2167 + Matar(g_oCacic.getCacicPath+'Temp\','ipconfig.vbs');
2354 End; 2168 End;
2355 2169
2356 v_mascara := te_mascara; 2170 v_mascara := te_mascara;
@@ -2406,10 +2220,10 @@ Begin @@ -2406,10 +2220,10 @@ Begin
2406 2220
2407 if (ValorChaveRegistro <> '') then 2221 if (ValorChaveRegistro <> '') then
2408 Begin 2222 Begin
2409 - tstrTripa1 := Explode(ValorChaveRegistro,'#'); 2223 + tstrTripa1 := g_oCacic.explode(ValorChaveRegistro,'#');
2410 for intAux1 := 0 to tstrTripa1.Count-1 Do 2224 for intAux1 := 0 to tstrTripa1.Count-1 Do
2411 Begin 2225 Begin
2412 - tstrTripa2 := Explode(tstrTripa1[intAux1],','); 2226 + tstrTripa2 := g_oCacic.explode(tstrTripa1[intAux1],',');
2413 //Apenas os dois primeiros itens, id_aplicativo e dt_atualizacao 2227 //Apenas os dois primeiros itens, id_aplicativo e dt_atualizacao
2414 strTripa := strTripa + tstrTripa2[0] + ',' + tstrTripa2[1]+'#'; 2228 strTripa := strTripa + tstrTripa2[0] + ',' + tstrTripa2[1]+'#';
2415 end; 2229 end;
@@ -2418,7 +2232,7 @@ Begin @@ -2418,7 +2232,7 @@ Begin
2418 end; //While 2232 end; //While
2419 2233
2420 // Proposital, para forçar a chegada dos perfis, solução temporária... 2234 // Proposital, para forçar a chegada dos perfis, solução temporária...
2421 - Request_SVG.Values['te_tripa_perfis'] := StringReplace(EnCrypt('',l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 2235 + Request_SVG.Values['te_tripa_perfis'] := StringReplace(g_oCacic.enCrypt(''),'+','<MAIS>',[rfReplaceAll]);
2422 2236
2423 // Gero e armazeno uma palavra-chave e a envio ao Gerente WEB para atualização no BD. 2237 // Gero e armazeno uma palavra-chave e a envio ao Gerente WEB para atualização no BD.
2424 // Essa palavra-chave será usada para o acesso ao Agente Principal 2238 // Essa palavra-chave será usada para o acesso ao Agente Principal
@@ -2427,9 +2241,9 @@ Begin @@ -2427,9 +2241,9 @@ Begin
2427 SetValorDatMemoria('Configs.te_palavra_chave',strAux, v_tstrCipherOpened); 2241 SetValorDatMemoria('Configs.te_palavra_chave',strAux, v_tstrCipherOpened);
2428 2242
2429 // Verifico se srCACIC está em execução e em caso positivo entrego a chave atualizada 2243 // Verifico se srCACIC está em execução e em caso positivo entrego a chave atualizada
2430 - Matar(p_path_cacic+'Temp,'aguarde_SRCACIC.txt'); 2244 + Matar(g_oCacic.getCacicPath+'Temp,'aguarde_SRCACIC.txt');
2431 sleep(2000); 2245 sleep(2000);
2432 - if (FileExists(p_path_cacic + 'Temp\aguarde_SRCACIC.txt')) then 2246 + if (FileExists(g_oCacic.getCacicPath + 'Temp\aguarde_SRCACIC.txt')) then
2433 Begin 2247 Begin
2434 // Alguns cuidados necessários ao tráfego e recepção de valores pelo Gerente WEB 2248 // Alguns cuidados necessários ao tráfego e recepção de valores pelo Gerente WEB
2435 // Some cares about send and receive at Gerente WEB 2249 // Some cares about send and receive at Gerente WEB
@@ -2437,14 +2251,14 @@ Begin @@ -2437,14 +2251,14 @@ Begin
2437 v_Aux := StringReplace(v_Aux ,'"' ,'<AD>' ,[rfReplaceAll]); 2251 v_Aux := StringReplace(v_Aux ,'"' ,'<AD>' ,[rfReplaceAll]);
2438 v_Aux := StringReplace(v_Aux ,'''','<AS>' ,[rfReplaceAll]); 2252 v_Aux := StringReplace(v_Aux ,'''','<AS>' ,[rfReplaceAll]);
2439 v_Aux := StringReplace(v_Aux ,'\' ,'<BarrInv>' ,[rfReplaceAll]); 2253 v_Aux := StringReplace(v_Aux ,'\' ,'<BarrInv>' ,[rfReplaceAll]);
2440 - v_Aux := StringReplace(EnCrypt(v_Aux,l_cs_compress) ,'+' ,'<MAIS>' ,[rfReplaceAll]); 2254 + v_Aux := StringReplace(g_oCacic.enCrypt(v_Aux) ,'+' ,'<MAIS>' ,[rfReplaceAll]);
2441 2255
2442 - log_DEBUG('Invocando "'+p_path_cacic + 'modulos\srcacicsrv.exe -update [' + v_Aux + ']' );  
2443 - WinExec(PChar(p_path_cacic + 'modulos\srcacicsrv.exe -update [' + v_Aux + ']'),SW_NORMAL); 2256 + log_DEBUG('Invocando "'+g_oCacic.getCacicPath + 'modulos\srcacicsrv.exe -update [' + v_Aux + ']' );
  2257 + WinExec(PChar(g_oCacic.getCacicPath + 'modulos\srcacicsrv.exe -update [' + v_Aux + ']'),SW_NORMAL);
2444 End; 2258 End;
2445 2259
2446 2260
2447 - Request_SVG.Values['te_palavra_chave'] := EnCrypt(strAux,l_cs_compress); 2261 + Request_SVG.Values['te_palavra_chave'] := g_oCacic.enCrypt(strAux);
2448 v_te_serv_cacic := GetValorDatMemoria('Configs.EnderecoServidor', v_tstrCipherOpened); 2262 v_te_serv_cacic := GetValorDatMemoria('Configs.EnderecoServidor', v_tstrCipherOpened);
2449 2263
2450 strRetorno := ComunicaServidor('get_config.php', Request_SVG, v_mensagem_log); 2264 strRetorno := ComunicaServidor('get_config.php', Request_SVG, v_mensagem_log);
@@ -2455,7 +2269,7 @@ Begin @@ -2455,7 +2269,7 @@ Begin
2455 // A versão com compressão do Módulo Gerente WEB retornará o valor cs_compress=1(Quando receber "1") ou cs_compress=2(Quando receber "3") 2269 // A versão com compressão do Módulo Gerente WEB retornará o valor cs_compress=1(Quando receber "1") ou cs_compress=2(Quando receber "3")
2456 Seta_l_cs_compress(strRetorno); 2270 Seta_l_cs_compress(strRetorno);
2457 2271
2458 - v_te_serv_cacic := DeCrypt(XML_RetornaValor('te_serv_cacic',strRetorno),true); 2272 + v_te_serv_cacic := g_oCacic.deCrypt(XML_RetornaValor('te_serv_cacic',strRetorno));
2459 2273
2460 if (strRetorno <> '0') and 2274 if (strRetorno <> '0') and
2461 (v_te_serv_cacic<>'') and 2275 (v_te_serv_cacic<>'') and
@@ -2471,7 +2285,7 @@ Begin @@ -2471,7 +2285,7 @@ Begin
2471 // Solicito do servidor a configuração que foi definida pelo administrador do CACIC. 2285 // Solicito do servidor a configuração que foi definida pelo administrador do CACIC.
2472 Request_SVG.Free; 2286 Request_SVG.Free;
2473 Request_SVG := TStringList.Create; 2287 Request_SVG := TStringList.Create;
2474 - Request_SVG.Values['te_tripa_perfis'] := StringReplace(EnCrypt('',l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 2288 + Request_SVG.Values['te_tripa_perfis'] := StringReplace(g_oCacic.enCrypt(''),'+','<MAIS>',[rfReplaceAll]);
2475 strRetorno := ComunicaServidor('get_config.php', Request_SVG, v_mensagem_log); 2289 strRetorno := ComunicaServidor('get_config.php', Request_SVG, v_mensagem_log);
2476 Seta_l_cs_cipher(strRetorno); 2290 Seta_l_cs_cipher(strRetorno);
2477 Seta_l_cs_compress(strRetorno); 2291 Seta_l_cs_compress(strRetorno);
@@ -2481,7 +2295,7 @@ Begin @@ -2481,7 +2295,7 @@ Begin
2481 2295
2482 if (strRetorno <> '0') Then 2296 if (strRetorno <> '0') Then
2483 Begin 2297 Begin
2484 - ValorRetornado := DeCrypt(XML_RetornaValor('SISTEMAS_MONITORADOS_PERFIS', strRetorno),true); 2298 + ValorRetornado := g_oCacic.deCrypt(XML_RetornaValor('SISTEMAS_MONITORADOS_PERFIS', strRetorno));
2485 log_DEBUG('Valor Retornado para Sistemas Monitorados: "'+ValorRetornado+'"'); 2299 log_DEBUG('Valor Retornado para Sistemas Monitorados: "'+ValorRetornado+'"');
2486 IF (ValorRetornado <> '') then 2300 IF (ValorRetornado <> '') then
2487 Begin 2301 Begin
@@ -2499,18 +2313,18 @@ Begin @@ -2499,18 +2313,18 @@ Begin
2499 end; 2313 end;
2500 2314
2501 intAux4 := 0; 2315 intAux4 := 0;
2502 - tstrTripa3 := Explode(ValorRetornado,'#'); 2316 + tstrTripa3 := g_oCacic.explode(ValorRetornado,'#');
2503 for intAux3 := 0 to tstrTripa3.Count-1 Do 2317 for intAux3 := 0 to tstrTripa3.Count-1 Do
2504 Begin 2318 Begin
2505 strAux3 := 'SIS' + trim(inttostr(intAux4)); 2319 strAux3 := 'SIS' + trim(inttostr(intAux4));
2506 - tstrTripa4 := Explode(tstrTripa3[intAux3],','); 2320 + tstrTripa4 := g_oCacic.explode(tstrTripa3[intAux3],',');
2507 while strAux3 <> '' do 2321 while strAux3 <> '' do
2508 begin 2322 begin
2509 intAux4 := intAux4 + 1; 2323 intAux4 := intAux4 + 1;
2510 strAux3 := GetValorDatMemoria('Coletas.SIS' + trim(inttostr(intAux4)), v_tstrCipherOpened); 2324 strAux3 := GetValorDatMemoria('Coletas.SIS' + trim(inttostr(intAux4)), v_tstrCipherOpened);
2511 if (trim(strAux3)<>'') then 2325 if (trim(strAux3)<>'') then
2512 Begin 2326 Begin
2513 - tstrTripa5 := Explode(strAux3,','); 2327 + tstrTripa5 := g_oCacic.explode(strAux3,',');
2514 if (tstrTripa5[0] = tstrTripa4[0]) then strAux3 := ''; 2328 if (tstrTripa5[0] = tstrTripa4[0]) then strAux3 := '';
2515 End; 2329 End;
2516 end; 2330 end;
@@ -2525,62 +2339,62 @@ Begin @@ -2525,62 +2339,62 @@ Begin
2525 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 2339 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
2526 //Gravação no CACIC2.DAT dos valores de REDE, COMPUTADOR e EXECUÇÃO obtidos, para consulta pelos outros módulos... 2340 //Gravação no CACIC2.DAT dos valores de REDE, COMPUTADOR e EXECUÇÃO obtidos, para consulta pelos outros módulos...
2527 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 2341 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
2528 - SetValorDatMemoria('Configs.CS_AUTO_UPDATE' ,UpperCase(DeCrypt(XML_RetornaValor('cs_auto_update' , strRetorno),true)), v_tstrCipherOpened);  
2529 - SetValorDatMemoria('Configs.CS_COLETA_HARDWARE' ,UpperCase(DeCrypt(XML_RetornaValor('cs_coleta_hardware' , strRetorno),true)), v_tstrCipherOpened);  
2530 - SetValorDatMemoria('Configs.CS_COLETA_SOFTWARE' ,UpperCase(DeCrypt(XML_RetornaValor('cs_coleta_software' , strRetorno),true)), v_tstrCipherOpened);  
2531 - SetValorDatMemoria('Configs.CS_COLETA_MONITORADO' ,UpperCase(DeCrypt(XML_RetornaValor('cs_coleta_monitorado' , strRetorno),true)), v_tstrCipherOpened);  
2532 - SetValorDatMemoria('Configs.CS_COLETA_OFFICESCAN' ,UpperCase(DeCrypt(XML_RetornaValor('cs_coleta_officescan' , strRetorno),true)), v_tstrCipherOpened);  
2533 - SetValorDatMemoria('Configs.CS_COLETA_COMPARTILHAMENTOS' ,UpperCase(DeCrypt(XML_RetornaValor('cs_coleta_compart' , strRetorno),true)), v_tstrCipherOpened);  
2534 - SetValorDatMemoria('Configs.CS_COLETA_UNID_DISC' ,UpperCase(DeCrypt(XML_RetornaValor('cs_coleta_unid_disc' , strRetorno),true)), v_tstrCipherOpened);  
2535 - SetValorDatMemoria('Configs.CS_COLETA_PATRIMONIO' ,UpperCase(DeCrypt(XML_RetornaValor('cs_coleta_patrimonio' , strRetorno),true)), v_tstrCipherOpened);  
2536 - SetValorDatMemoria('Configs.CS_SUPORTE_REMOTO' ,UpperCase(DeCrypt(XML_RetornaValor('cs_suporte_remoto' , strRetorno),true)), v_tstrCipherOpened);  
2537 - SetValorDatMemoria('Configs.DT_VERSAO_CACIC2_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_cacic2_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2538 - SetValorDatMemoria('Configs.TE_HASH_CACIC2' ,DeCrypt(XML_RetornaValor('te_hash_cacic2' , strRetorno),true) , v_tstrCipherOpened);  
2539 - SetValorDatMemoria('Configs.DT_VERSAO_GER_COLS_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_ger_cols_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2540 - SetValorDatMemoria('Configs.TE_HASH_GER_COLS' ,DeCrypt(XML_RetornaValor('te_hash_ger_cols' , strRetorno),true) , v_tstrCipherOpened);  
2541 - SetValorDatMemoria('Configs.DT_VERSAO_CHKSIS_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_chksis_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2542 - SetValorDatMemoria('Configs.TE_HASH_CHKSIS' ,DeCrypt(XML_RetornaValor('te_hash_chksis' , strRetorno),true) , v_tstrCipherOpened);  
2543 - SetValorDatMemoria('Configs.DT_VERSAO_COL_ANVI_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_col_anvi_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2544 - SetValorDatMemoria('Configs.TE_HASH_COL_ANVI' ,DeCrypt(XML_RetornaValor('te_hash_col_anvi' , strRetorno),true) , v_tstrCipherOpened);  
2545 - SetValorDatMemoria('Configs.DT_VERSAO_COL_COMP_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_col_comp_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2546 - SetValorDatMemoria('Configs.TE_HASH_COL_COMP' ,DeCrypt(XML_RetornaValor('te_hash_col_comp' , strRetorno),true) , v_tstrCipherOpened);  
2547 - SetValorDatMemoria('Configs.DT_VERSAO_COL_HARD_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_col_hard_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2548 - SetValorDatMemoria('Configs.TE_HASH_COL_HARD' ,DeCrypt(XML_RetornaValor('te_hash_col_hard' , strRetorno),true) , v_tstrCipherOpened);  
2549 - SetValorDatMemoria('Configs.DT_VERSAO_COL_MONI_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_col_moni_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2550 - SetValorDatMemoria('Configs.TE_HASH_COL_MONI' ,DeCrypt(XML_RetornaValor('te_hash_col_moni' , strRetorno),true) , v_tstrCipherOpened);  
2551 - SetValorDatMemoria('Configs.DT_VERSAO_COL_PATR_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_col_patr_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2552 - SetValorDatMemoria('Configs.TE_HASH_COL_PATR' ,DeCrypt(XML_RetornaValor('te_hash_col_patr' , strRetorno),true) , v_tstrCipherOpened);  
2553 - SetValorDatMemoria('Configs.DT_VERSAO_COL_SOFT_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_col_soft_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2554 - SetValorDatMemoria('Configs.TE_HASH_COL_SOFT' ,DeCrypt(XML_RetornaValor('te_hash_col_soft' , strRetorno),true) , v_tstrCipherOpened);  
2555 - SetValorDatMemoria('Configs.DT_VERSAO_COL_UNDI_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_col_undi_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2556 - SetValorDatMemoria('Configs.TE_HASH_COL_UNDI' ,DeCrypt(XML_RetornaValor('te_hash_col_undi' , strRetorno),true) , v_tstrCipherOpened);  
2557 - SetValorDatMemoria('Configs.DT_VERSAO_INI_COLS_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_ini_cols_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2558 - SetValorDatMemoria('Configs.TE_HASH_INI_COLS' ,DeCrypt(XML_RetornaValor('te_hash_ini_cols' , strRetorno),true) , v_tstrCipherOpened);  
2559 - SetValorDatMemoria('Configs.DT_VERSAO_INI_COLS_DISPONIVEL' ,DeCrypt(XML_RetornaValor('dt_versao_ini_cols_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2560 - SetValorDatMemoria('Configs.TE_HASH_SRCACICSRV' ,DeCrypt(XML_RetornaValor('te_hash_srcacicsrv' , strRetorno),true) , v_tstrCipherOpened);  
2561 - SetValorDatMemoria('Configs.DT_VERSAO_SRCACICSRV_DISPONIVEL',DeCrypt(XML_RetornaValor('dt_versao_srcacicsrv_disponivel' , strRetorno),true) , v_tstrCipherOpened);  
2562 - SetValorDatMemoria('Configs.TE_HASH_'+StringReplace(v_scripter,'.exe','',[rfReplaceAll]),DeCrypt(XML_RetornaValor('te_hash_'+StringReplace(v_scripter,'.exe','',[rfReplaceAll]),strRetorno),true) , v_tstrCipherOpened);  
2563 - SetValorDatMemoria('Configs.TE_SERV_UPDATES' ,DeCrypt(XML_RetornaValor('te_serv_updates' , strRetorno),true) , v_tstrCipherOpened);  
2564 - SetValorDatMemoria('Configs.NU_PORTA_SERV_UPDATES' ,DeCrypt(XML_RetornaValor('nu_porta_serv_updates' , strRetorno),true) , v_tstrCipherOpened);  
2565 - SetValorDatMemoria('Configs.TE_PATH_SERV_UPDATES' ,DeCrypt(XML_RetornaValor('te_path_serv_updates' , strRetorno),true) , v_tstrCipherOpened);  
2566 - SetValorDatMemoria('Configs.NM_USUARIO_LOGIN_SERV_UPDATES' ,DeCrypt(XML_RetornaValor('nm_usuario_login_serv_updates' , strRetorno),true) , v_tstrCipherOpened);  
2567 - SetValorDatMemoria('Configs.TE_SENHA_LOGIN_SERV_UPDATES' ,DeCrypt(XML_RetornaValor('te_senha_login_serv_updates' , strRetorno),true) , v_tstrCipherOpened);  
2568 - SetValorDatMemoria('Configs.IN_EXIBE_ERROS_CRITICOS' ,UpperCase(DeCrypt(XML_RetornaValor('in_exibe_erros_criticos' , strRetorno),true)), v_tstrCipherOpened);  
2569 - SetValorDatMemoria('Configs.TE_SENHA_ADM_AGENTE' ,DeCrypt(XML_RetornaValor('te_senha_adm_agente' , strRetorno),true) , v_tstrCipherOpened);  
2570 - SetValorDatMemoria('Configs.NU_INTERVALO_RENOVACAO_PATRIM' ,DeCrypt(XML_RetornaValor('nu_intervalo_renovacao_patrim' , strRetorno),true) , v_tstrCipherOpened);  
2571 - SetValorDatMemoria('Configs.NU_INTERVALO_EXEC' ,DeCrypt(XML_RetornaValor('nu_intervalo_exec' , strRetorno),true) , v_tstrCipherOpened);  
2572 - SetValorDatMemoria('Configs.NU_EXEC_APOS' ,DeCrypt(XML_RetornaValor('nu_exec_apos' , strRetorno),true) , v_tstrCipherOpened);  
2573 - SetValorDatMemoria('Configs.IN_EXIBE_BANDEJA' ,UpperCase(DeCrypt(XML_RetornaValor('in_exibe_bandeja' , strRetorno),true)), v_tstrCipherOpened);  
2574 - SetValorDatMemoria('Configs.TE_JANELAS_EXCECAO' ,DeCrypt(XML_RetornaValor('te_janelas_excecao' , strRetorno),true) , v_tstrCipherOpened);  
2575 - SetValorDatMemoria('TcpIp.TE_ENDERECOS_MAC_INVALIDOS' ,DeCrypt(XML_RetornaValor('te_enderecos_mac_invalidos' , strRetorno),true) , v_tstrCipherOpened);  
2576 - SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA' ,stringreplace(stringreplace(stringreplace(DeCrypt(XML_RetornaValor('dt_hr_coleta_forcada' , strRetorno),true),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);  
2577 - SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_ANVI' ,stringreplace(stringreplace(stringreplace(DeCrypt(XML_RetornaValor('dt_hr_coleta_forcada_anvi', strRetorno),true),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);  
2578 - SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_COMP' ,stringreplace(stringreplace(stringreplace(DeCrypt(XML_RetornaValor('dt_hr_coleta_forcada_comp', strRetorno),true),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);  
2579 - SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_HARD' ,stringreplace(stringreplace(stringreplace(DeCrypt(XML_RetornaValor('dt_hr_coleta_forcada_hard', strRetorno),true),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);  
2580 - SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_MONI' ,stringreplace(stringreplace(stringreplace(DeCrypt(XML_RetornaValor('dt_hr_coleta_forcada_moni', strRetorno),true),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);  
2581 - SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_PATR' ,stringreplace(stringreplace(stringreplace(DeCrypt(XML_RetornaValor('dt_hr_coleta_forcada_patr', strRetorno),true),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);  
2582 - SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_SOFT' ,stringreplace(stringreplace(stringreplace(DeCrypt(XML_RetornaValor('dt_hr_coleta_forcada_soft', strRetorno),true),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);  
2583 - SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_UNDI' ,stringreplace(stringreplace(stringreplace(DeCrypt(XML_RetornaValor('dt_hr_coleta_forcada_undi', strRetorno),true),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened); 2342 + SetValorDatMemoria('Configs.CS_AUTO_UPDATE' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('cs_auto_update' , strRetorno))), v_tstrCipherOpened);
  2343 + SetValorDatMemoria('Configs.CS_COLETA_HARDWARE' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('cs_coleta_hardware' , strRetorno))), v_tstrCipherOpened);
  2344 + SetValorDatMemoria('Configs.CS_COLETA_SOFTWARE' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('cs_coleta_software' , strRetorno))), v_tstrCipherOpened);
  2345 + SetValorDatMemoria('Configs.CS_COLETA_MONITORADO' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('cs_coleta_monitorado' , strRetorno))), v_tstrCipherOpened);
  2346 + SetValorDatMemoria('Configs.CS_COLETA_OFFICESCAN' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('cs_coleta_officescan' , strRetorno))), v_tstrCipherOpened);
  2347 + SetValorDatMemoria('Configs.CS_COLETA_COMPARTILHAMENTOS' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('cs_coleta_compart' , strRetorno))), v_tstrCipherOpened);
  2348 + SetValorDatMemoria('Configs.CS_COLETA_UNID_DISC' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('cs_coleta_unid_disc' , strRetorno))), v_tstrCipherOpened);
  2349 + SetValorDatMemoria('Configs.CS_COLETA_PATRIMONIO' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('cs_coleta_patrimonio' , strRetorno))), v_tstrCipherOpened);
  2350 + SetValorDatMemoria('Configs.CS_SUPORTE_REMOTO' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('cs_suporte_remoto' , strRetorno))), v_tstrCipherOpened);
  2351 + SetValorDatMemoria('Configs.DT_VERSAO_CACIC2_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_cacic2_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2352 + SetValorDatMemoria('Configs.TE_HASH_CACIC2' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_cacic2' , strRetorno)) , v_tstrCipherOpened);
  2353 + SetValorDatMemoria('Configs.DT_VERSAO_GER_COLS_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_ger_cols_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2354 + SetValorDatMemoria('Configs.TE_HASH_GER_COLS' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_ger_cols' , strRetorno)) , v_tstrCipherOpened);
  2355 + SetValorDatMemoria('Configs.DT_VERSAO_CHKSIS_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_chksis_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2356 + SetValorDatMemoria('Configs.TE_HASH_CHKSIS' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_chksis' , strRetorno)) , v_tstrCipherOpened);
  2357 + SetValorDatMemoria('Configs.DT_VERSAO_COL_ANVI_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_col_anvi_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2358 + SetValorDatMemoria('Configs.TE_HASH_COL_ANVI' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_col_anvi' , strRetorno)) , v_tstrCipherOpened);
  2359 + SetValorDatMemoria('Configs.DT_VERSAO_COL_COMP_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_col_comp_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2360 + SetValorDatMemoria('Configs.TE_HASH_COL_COMP' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_col_comp' , strRetorno)) , v_tstrCipherOpened);
  2361 + SetValorDatMemoria('Configs.DT_VERSAO_COL_HARD_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_col_hard_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2362 + SetValorDatMemoria('Configs.TE_HASH_COL_HARD' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_col_hard' , strRetorno)) , v_tstrCipherOpened);
  2363 + SetValorDatMemoria('Configs.DT_VERSAO_COL_MONI_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_col_moni_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2364 + SetValorDatMemoria('Configs.TE_HASH_COL_MONI' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_col_moni' , strRetorno)) , v_tstrCipherOpened);
  2365 + SetValorDatMemoria('Configs.DT_VERSAO_COL_PATR_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_col_patr_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2366 + SetValorDatMemoria('Configs.TE_HASH_COL_PATR' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_col_patr' , strRetorno)) , v_tstrCipherOpened);
  2367 + SetValorDatMemoria('Configs.DT_VERSAO_COL_SOFT_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_col_soft_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2368 + SetValorDatMemoria('Configs.TE_HASH_COL_SOFT' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_col_soft' , strRetorno)) , v_tstrCipherOpened);
  2369 + SetValorDatMemoria('Configs.DT_VERSAO_COL_UNDI_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_col_undi_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2370 + SetValorDatMemoria('Configs.TE_HASH_COL_UNDI' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_col_undi' , strRetorno)) , v_tstrCipherOpened);
  2371 + SetValorDatMemoria('Configs.DT_VERSAO_INI_COLS_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_ini_cols_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2372 + SetValorDatMemoria('Configs.TE_HASH_INI_COLS' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_ini_cols' , strRetorno)) , v_tstrCipherOpened);
  2373 + SetValorDatMemoria('Configs.DT_VERSAO_INI_COLS_DISPONIVEL' ,g_oCacic.deCrypt(XML_RetornaValor('dt_versao_ini_cols_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2374 + SetValorDatMemoria('Configs.TE_HASH_SRCACICSRV' ,g_oCacic.deCrypt(XML_RetornaValor('te_hash_srcacicsrv' , strRetorno)) , v_tstrCipherOpened);
  2375 + SetValorDatMemoria('Configs.DT_VERSAO_SRCACICSRV_DISPONIVEL',g_oCacic.deCrypt(XML_RetornaValor('dt_versao_srcacicsrv_disponivel' , strRetorno)) , v_tstrCipherOpened);
  2376 + SetValorDatMemoria('Configs.TE_HASH_'+StringReplace(v_scripter,'.exe','',[rfReplaceAll]),g_oCacic.deCrypt(XML_RetornaValor('te_hash_'+StringReplace(v_scripter,'.exe','',[rfReplaceAll]),strRetorno)) , v_tstrCipherOpened);
  2377 + SetValorDatMemoria('Configs.TE_SERV_UPDATES' ,g_oCacic.deCrypt(XML_RetornaValor('te_serv_updates' , strRetorno)) , v_tstrCipherOpened);
  2378 + SetValorDatMemoria('Configs.NU_PORTA_SERV_UPDATES' ,g_oCacic.deCrypt(XML_RetornaValor('nu_porta_serv_updates' , strRetorno)) , v_tstrCipherOpened);
  2379 + SetValorDatMemoria('Configs.TE_PATH_SERV_UPDATES' ,g_oCacic.deCrypt(XML_RetornaValor('te_path_serv_updates' , strRetorno)) , v_tstrCipherOpened);
  2380 + SetValorDatMemoria('Configs.NM_USUARIO_LOGIN_SERV_UPDATES' ,g_oCacic.deCrypt(XML_RetornaValor('nm_usuario_login_serv_updates' , strRetorno)) , v_tstrCipherOpened);
  2381 + SetValorDatMemoria('Configs.TE_SENHA_LOGIN_SERV_UPDATES' ,g_oCacic.deCrypt(XML_RetornaValor('te_senha_login_serv_updates' , strRetorno)) , v_tstrCipherOpened);
  2382 + SetValorDatMemoria('Configs.IN_EXIBE_ERROS_CRITICOS' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('in_exibe_erros_criticos' , strRetorno))), v_tstrCipherOpened);
  2383 + SetValorDatMemoria('Configs.TE_SENHA_ADM_AGENTE' ,g_oCacic.deCrypt(XML_RetornaValor('te_senha_adm_agente' , strRetorno)) , v_tstrCipherOpened);
  2384 + SetValorDatMemoria('Configs.NU_INTERVALO_RENOVACAO_PATRIM' ,g_oCacic.deCrypt(XML_RetornaValor('nu_intervalo_renovacao_patrim' , strRetorno)) , v_tstrCipherOpened);
  2385 + SetValorDatMemoria('Configs.NU_INTERVALO_EXEC' ,g_oCacic.deCrypt(XML_RetornaValor('nu_intervalo_exec' , strRetorno)) , v_tstrCipherOpened);
  2386 + SetValorDatMemoria('Configs.NU_EXEC_APOS' ,g_oCacic.deCrypt(XML_RetornaValor('nu_exec_apos' , strRetorno)) , v_tstrCipherOpened);
  2387 + SetValorDatMemoria('Configs.IN_EXIBE_BANDEJA' ,UpperCase(g_oCacic.deCrypt(XML_RetornaValor('in_exibe_bandeja' , strRetorno))), v_tstrCipherOpened);
  2388 + SetValorDatMemoria('Configs.TE_JANELAS_EXCECAO' ,g_oCacic.deCrypt(XML_RetornaValor('te_janelas_excecao' , strRetorno)) , v_tstrCipherOpened);
  2389 + SetValorDatMemoria('TcpIp.TE_ENDERECOS_MAC_INVALIDOS' ,g_oCacic.deCrypt(XML_RetornaValor('te_enderecos_mac_invalidos' , strRetorno)) , v_tstrCipherOpened);
  2390 + SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA' ,stringreplace(stringreplace(stringreplace(g_oCacic.deCrypt(XML_RetornaValor('dt_hr_coleta_forcada' , strRetorno)),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);
  2391 + SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_ANVI' ,stringreplace(stringreplace(stringreplace(g_oCacic.deCrypt(XML_RetornaValor('dt_hr_coleta_forcada_anvi', strRetorno)),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);
  2392 + SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_COMP' ,stringreplace(stringreplace(stringreplace(g_oCacic.deCrypt(XML_RetornaValor('dt_hr_coleta_forcada_comp', strRetorno)),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);
  2393 + SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_HARD' ,stringreplace(stringreplace(stringreplace(g_oCacic.deCrypt(XML_RetornaValor('dt_hr_coleta_forcada_hard', strRetorno)),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);
  2394 + SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_MONI' ,stringreplace(stringreplace(stringreplace(g_oCacic.deCrypt(XML_RetornaValor('dt_hr_coleta_forcada_moni', strRetorno)),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);
  2395 + SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_PATR' ,stringreplace(stringreplace(stringreplace(g_oCacic.deCrypt(XML_RetornaValor('dt_hr_coleta_forcada_patr', strRetorno)),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);
  2396 + SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_SOFT' ,stringreplace(stringreplace(stringreplace(g_oCacic.deCrypt(XML_RetornaValor('dt_hr_coleta_forcada_soft', strRetorno)),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);
  2397 + SetValorDatMemoria('Configs.DT_HR_COLETA_FORCADA_UNDI' ,stringreplace(stringreplace(stringreplace(g_oCacic.deCrypt(XML_RetornaValor('dt_hr_coleta_forcada_undi', strRetorno)),'-','',[rfReplaceAll]),' ','',[rfReplaceAll]),':','',[rfReplaceAll]), v_tstrCipherOpened);
2584 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 2398 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
2585 end; 2399 end;
2586 2400
@@ -2598,17 +2412,17 @@ Begin @@ -2598,17 +2412,17 @@ Begin
2598 End; 2412 End;
2599 2413
2600 Request_SVG := TStringList.Create; 2414 Request_SVG := TStringList.Create;
2601 - Request_SVG.Values['te_mascara'] := StringReplace(EnCrypt(te_mascara,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2602 - Request_SVG.Values['te_gateway'] := StringReplace(EnCrypt(te_gateway,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2603 - Request_SVG.Values['te_serv_dhcp'] := StringReplace(EnCrypt(te_serv_dhcp,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2604 - Request_SVG.Values['te_dns_primario'] := StringReplace(EnCrypt(te_dns_primario,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2605 - Request_SVG.Values['te_dns_secundario'] := StringReplace(EnCrypt(te_dns_secundario,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2606 - Request_SVG.Values['te_wins_primario'] := StringReplace(EnCrypt(te_wins_primario,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2607 - Request_SVG.Values['te_wins_secundario'] := StringReplace(EnCrypt(te_wins_secundario,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2608 - Request_SVG.Values['te_nome_host'] := StringReplace(EnCrypt(te_nome_host,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2609 - Request_SVG.Values['te_dominio_dns'] := StringReplace(EnCrypt(te_dominio_dns,l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2610 - Request_SVG.Values['te_origem_mac'] := StringReplace(EnCrypt(GetValorDatMemoria('TcpIp.TE_ORIGEM_MAC', v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2611 - Request_SVG.Values['te_dominio_windows'] := StringReplace(EnCrypt(te_dominio_windows,l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 2415 + Request_SVG.Values['te_mascara'] := StringReplace(g_oCacic.enCrypt(te_mascara),'+','<MAIS>',[rfReplaceAll]);
  2416 + Request_SVG.Values['te_gateway'] := StringReplace(g_oCacic.enCrypt(te_gateway),'+','<MAIS>',[rfReplaceAll]);
  2417 + Request_SVG.Values['te_serv_dhcp'] := StringReplace(g_oCacic.enCrypt(te_serv_dhcp),'+','<MAIS>',[rfReplaceAll]);
  2418 + Request_SVG.Values['te_dns_primario'] := StringReplace(g_oCacic.enCrypt(te_dns_primario),'+','<MAIS>',[rfReplaceAll]);
  2419 + Request_SVG.Values['te_dns_secundario'] := StringReplace(g_oCacic.enCrypt(te_dns_secundario),'+','<MAIS>',[rfReplaceAll]);
  2420 + Request_SVG.Values['te_wins_primario'] := StringReplace(g_oCacic.enCrypt(te_wins_primario),'+','<MAIS>',[rfReplaceAll]);
  2421 + Request_SVG.Values['te_wins_secundario'] := StringReplace(g_oCacic.enCrypt(te_wins_secundario),'+','<MAIS>',[rfReplaceAll]);
  2422 + Request_SVG.Values['te_nome_host'] := StringReplace(g_oCacic.enCrypt(te_nome_host),'+','<MAIS>',[rfReplaceAll]);
  2423 + Request_SVG.Values['te_dominio_dns'] := StringReplace(g_oCacic.enCrypt(te_dominio_dns),'+','<MAIS>',[rfReplaceAll]);
  2424 + Request_SVG.Values['te_origem_mac'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('TcpIp.TE_ORIGEM_MAC', v_tstrCipherOpened)),'+','<MAIS>',[rfReplaceAll]);
  2425 + Request_SVG.Values['te_dominio_windows'] := StringReplace(g_oCacic.enCrypt(te_dominio_windows),'+','<MAIS>',[rfReplaceAll]);
2612 2426
2613 v_acao_gercols := 'Contactando módulo Gerente WEB: set_tcp_ip.php'; 2427 v_acao_gercols := 'Contactando módulo Gerente WEB: set_tcp_ip.php';
2614 2428
@@ -2653,17 +2467,17 @@ Begin @@ -2653,17 +2467,17 @@ Begin
2653 log_DEBUG('Opção /UpdatePrincipal recebida...'); 2467 log_DEBUG('Opção /UpdatePrincipal recebida...');
2654 // 15 segundos de tempo total até a execução do novo cacic2.exe 2468 // 15 segundos de tempo total até a execução do novo cacic2.exe
2655 sleep(7000); 2469 sleep(7000);
2656 - v_acao_gercols := 'Atualização do Agente Principal - Excluindo '+p_path_cacic + 'cacic2.exe';  
2657 - Matar(p_path_cacic,'cacic2.exe'); 2470 + v_acao_gercols := 'Atualização do Agente Principal - Excluindo '+g_oCacic.getCacicPath + 'cacic2.exe';
  2471 + Matar(g_oCacic.getCacicPath,'cacic2.exe');
2658 sleep(2000); 2472 sleep(2000);
2659 2473
2660 - v_acao_gercols := 'Atualização do Agente Principal - Copiando '+p_path_cacic + 'temp\cacic2.exe para '+p_path_cacic + 'cacic2.exe';  
2661 - log_DEBUG('Copiando '+p_path_cacic + 'temp\cacic2.exe para '+p_path_cacic + 'cacic2.exe');  
2662 - CopyFile(pChar(p_path_cacic + 'temp\cacic2.exe'),pChar(p_path_cacic + 'cacic2.exe'),FALSE {Fail if Exists}); 2474 + v_acao_gercols := 'Atualização do Agente Principal - Copiando '+g_oCacic.getCacicPath + 'temp\cacic2.exe para '+g_oCacic.getCacicPath + 'cacic2.exe';
  2475 + log_DEBUG('Copiando '+g_oCacic.getCacicPath + 'temp\cacic2.exe para '+g_oCacic.getCacicPath + 'cacic2.exe');
  2476 + CopyFile(pChar(g_oCacic.getCacicPath + 'temp\cacic2.exe'),pChar(g_oCacic.getCacicPath + 'cacic2.exe'),FALSE {Fail if Exists});
2663 sleep(2000); 2477 sleep(2000);
2664 2478
2665 - v_acao_gercols := 'Atualização do Agente Principal - Excluindo '+p_path_cacic + 'temp\cacic2.exe';  
2666 - Matar(p_path_cacic+'temp\','cacic2.exe'); 2479 + v_acao_gercols := 'Atualização do Agente Principal - Excluindo '+g_oCacic.getCacicPath + 'temp\cacic2.exe';
  2480 + Matar(g_oCacic.getCacicPath+'temp\','cacic2.exe');
2667 sleep(2000); 2481 sleep(2000);
2668 2482
2669 SetValorDatMemoria('Configs.NU_EXEC_APOS','12345', v_tstrCipherOpened); // Para que o Agente Principal comande a coleta logo após 1 minuto... 2483 SetValorDatMemoria('Configs.NU_EXEC_APOS','12345', v_tstrCipherOpened); // Para que o Agente Principal comande a coleta logo após 1 minuto...
@@ -2671,11 +2485,11 @@ Begin @@ -2671,11 +2485,11 @@ Begin
2671 2485
2672 log_DEBUG('Invocando atualização do Agente Principal...'); 2486 log_DEBUG('Invocando atualização do Agente Principal...');
2673 2487
2674 - v_acao_gercols := 'Atualização do Agente Principal - Invocando '+p_path_cacic + 'cacic2.exe /atualizacao'; 2488 + v_acao_gercols := 'Atualização do Agente Principal - Invocando '+g_oCacic.getCacicPath + 'cacic2.exe /atualizacao';
2675 Finalizar(false); 2489 Finalizar(false);
2676 2490
2677 - if ChecaAgente(p_path_cacic, 'cacic2.exe') then  
2678 - WinExec(PChar(p_path_cacic + 'cacic2.exe /atualizacao'), SW_MINIMIZE); 2491 + if ChecaAgente(g_oCacic.getCacicPath, 'cacic2.exe') then
  2492 + WinExec(PChar(g_oCacic.getCacicPath + 'cacic2.exe /atualizacao'), SW_MINIMIZE);
2679 Sair; 2493 Sair;
2680 end; 2494 end;
2681 2495
@@ -2718,7 +2532,7 @@ Begin @@ -2718,7 +2532,7 @@ Begin
2718 log_DEBUG('Chamando Coletor de Patrimônio...'); 2532 log_DEBUG('Chamando Coletor de Patrimônio...');
2719 Patrimnio1Click(Nil); 2533 Patrimnio1Click(Nil);
2720 Finalizar(false); 2534 Finalizar(false);
2721 - CriaTXT(p_path_cacic+'temp','coletas'); 2535 + CriaTXT(g_oCacic.getCacicPath+'temp','coletas');
2722 Sair; 2536 Sair;
2723 End; 2537 End;
2724 2538
@@ -2729,7 +2543,7 @@ Begin @@ -2729,7 +2543,7 @@ Begin
2729 Batchfile := TStringList.Create; 2543 Batchfile := TStringList.Create;
2730 Batchfile.Add('*** Simulação de cookie para cacic2.exe recarregar os valores de configurações ***'); 2544 Batchfile.Add('*** Simulação de cookie para cacic2.exe recarregar os valores de configurações ***');
2731 // A existência deste arquivo forçará o Cacic2.exe a recarregar valores das configurações obtidas e gravadas no Cacic2.DAT 2545 // A existência deste arquivo forçará o Cacic2.exe a recarregar valores das configurações obtidas e gravadas no Cacic2.DAT
2732 - Batchfile.SaveToFile(p_path_cacic + 'Temp\reset.txt'); 2546 + Batchfile.SaveToFile(g_oCacic.getCacicPath + 'Temp\reset.txt');
2733 BatchFile.Free; 2547 BatchFile.Free;
2734 log_DEBUG('Configurações apanhadas no módulo Gerente WEB. Retornando ao Agente Principal...'); 2548 log_DEBUG('Configurações apanhadas no módulo Gerente WEB. Retornando ao Agente Principal...');
2735 Finalizar(false); 2549 Finalizar(false);
@@ -2762,22 +2576,22 @@ Begin @@ -2762,22 +2576,22 @@ Begin
2762 // Caso encontre nova versão de cacic2.exe esta será gravada em temp e ocorrerá o autoupdate em sua próxima tentativa de chamada ao Ger_Cols. 2576 // Caso encontre nova versão de cacic2.exe esta será gravada em temp e ocorrerá o autoupdate em sua próxima tentativa de chamada ao Ger_Cols.
2763 v_acao_gercols := 'Verificando versão do Agente Principal'; 2577 v_acao_gercols := 'Verificando versão do Agente Principal';
2764 log_diario('Verificando nova versão para módulo Principal.'); 2578 log_diario('Verificando nova versão para módulo Principal.');
2765 - Ver_UPD('cacic2','Agente Principal',p_path_cacic,'Temp',false); 2579 + Ver_UPD('cacic2','Agente Principal',g_oCacic.getCacicPath,'Temp',false);
2766 2580
2767 log_diario('Verificando nova versão para módulo Gerente de Coletas.'); 2581 log_diario('Verificando nova versão para módulo Gerente de Coletas.');
2768 // Caso encontre nova versão de Ger_Cols esta será gravada em temp e ocorrerá o autoupdate. 2582 // Caso encontre nova versão de Ger_Cols esta será gravada em temp e ocorrerá o autoupdate.
2769 - Ver_UPD('ger_cols','Gerente de Coletas',p_path_cacic + 'modulos,'Temp',false); 2583 + Ver_UPD('ger_cols','Gerente de Coletas',g_oCacic.getCacicPath + 'modulos,'Temp',false);
2770 2584
2771 // O módulo de Suporte Remoto é opcional... 2585 // O módulo de Suporte Remoto é opcional...
2772 if (GetValorDatMemoria('Configs.CS_SUPORTE_REMOTO' , v_tstrCipherOpened) = 'S') then 2586 if (GetValorDatMemoria('Configs.CS_SUPORTE_REMOTO' , v_tstrCipherOpened) = 'S') then
2773 Begin 2587 Begin
2774 log_diario('Verificando nova versão para módulo Suporte Remoto Seguro.'); 2588 log_diario('Verificando nova versão para módulo Suporte Remoto Seguro.');
2775 // Caso encontre nova versão de srCACICsrv esta será gravada em modulos. 2589 // Caso encontre nova versão de srCACICsrv esta será gravada em modulos.
2776 - Ver_UPD('srcacicsrv','Suporte Remoto Seguro',p_path_cacic + 'modulos,'Modulos',false); 2590 + Ver_UPD('srcacicsrv','Suporte Remoto Seguro',g_oCacic.getCacicPath + 'modulos,'Modulos',false);
2777 End; 2591 End;
2778 2592
2779 - if (FileExists(p_path_cacic + 'Temp\ger_cols.exe')) or  
2780 - (FileExists(p_path_cacic + 'Temp\cacic2.exe')) then 2593 + if (FileExists(g_oCacic.getCacicPath + 'Temp\ger_cols.exe')) or
  2594 + (FileExists(g_oCacic.getCacicPath + 'Temp\cacic2.exe')) then
2781 Begin 2595 Begin
2782 log_diario('Finalizando... (Update em ± 1 minuto).'); 2596 log_diario('Finalizando... (Update em ± 1 minuto).');
2783 Finalizar(false); 2597 Finalizar(false);
@@ -2791,7 +2605,7 @@ Begin @@ -2791,7 +2605,7 @@ Begin
2791 (GetValorDatMemoria('Configs.CS_COLETA_OFFICESCAN' , v_tstrCipherOpened) = 'S') or 2605 (GetValorDatMemoria('Configs.CS_COLETA_OFFICESCAN' , v_tstrCipherOpened) = 'S') or
2792 (GetValorDatMemoria('Configs.CS_COLETA_COMPARTILHAMENTOS', v_tstrCipherOpened) = 'S') or 2606 (GetValorDatMemoria('Configs.CS_COLETA_COMPARTILHAMENTOS', v_tstrCipherOpened) = 'S') or
2793 (GetValorDatMemoria('Configs.CS_COLETA_UNID_DISC' , v_tstrCipherOpened) = 'S')) and 2607 (GetValorDatMemoria('Configs.CS_COLETA_UNID_DISC' , v_tstrCipherOpened) = 'S')) and
2794 - not FileExists(p_path_cacic + 'Temp\ger_cols.exe') then 2608 + not FileExists(g_oCacic.getCacicPath + 'Temp\ger_cols.exe') then
2795 begin 2609 begin
2796 v_acao_gercols := 'Montando script de coletas'; 2610 v_acao_gercols := 'Montando script de coletas';
2797 // Monto o batch de coletas de acordo com as configurações 2611 // Monto o batch de coletas de acordo com as configurações
@@ -2817,8 +2631,8 @@ Begin @@ -2817,8 +2631,8 @@ Begin
2817 else 2631 else
2818 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_PATR','N', v_tstrCipherOpened); 2632 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_PATR','N', v_tstrCipherOpened);
2819 2633
2820 - if (v_CS_AUTO_UPDATE) then Ver_UPD('col_patr','Coletor de Informações de Patrimônio/Loc.Fís.',p_path_cacic + 'modulos\','',false);  
2821 - if (FileExists(p_path_cacic + 'Modulos\col_patr.exe')) then 2634 + if (v_CS_AUTO_UPDATE) then Ver_UPD('col_patr','Coletor de Informações de Patrimônio/Loc.Fís.',g_oCacic.getCacicPath + 'modulos\','',false);
  2635 + if (FileExists(g_oCacic.getCacicPath + 'Modulos\col_patr.exe')) then
2822 Begin 2636 Begin
2823 GetInfoPatrimonio; 2637 GetInfoPatrimonio;
2824 // Só chamo o Coletor de Patrimônio caso haja alteração de localização(e esteja configurado no módulo gerente WEB a abertura automática da janela) 2638 // Só chamo o Coletor de Patrimônio caso haja alteração de localização(e esteja configurado no módulo gerente WEB a abertura automática da janela)
@@ -2847,8 +2661,8 @@ Begin @@ -2847,8 +2661,8 @@ Begin
2847 else 2661 else
2848 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_ANVI','N', v_tstrCipherOpened); 2662 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_ANVI','N', v_tstrCipherOpened);
2849 2663
2850 - if (v_CS_AUTO_UPDATE) then Ver_UPD('col_anvi','Coletor de Informações de Anti-Vírus OfficeScan',p_path_cacic + 'modulos\','',false);  
2851 - if (FileExists(p_path_cacic + 'Modulos\col_anvi.exe')) then 2664 + if (v_CS_AUTO_UPDATE) then Ver_UPD('col_anvi','Coletor de Informações de Anti-Vírus OfficeScan',g_oCacic.getCacicPath + 'modulos\','',false);
  2665 + if (FileExists(g_oCacic.getCacicPath + 'Modulos\col_anvi.exe')) then
2852 Begin 2666 Begin
2853 intMontaBatch := 1; 2667 intMontaBatch := 1;
2854 v_ModulosOpcoes := v_ModulosOpcoes + 'col_anvi,nowait,system'; 2668 v_ModulosOpcoes := v_ModulosOpcoes + 'col_anvi,nowait,system';
@@ -2868,8 +2682,8 @@ Begin @@ -2868,8 +2682,8 @@ Begin
2868 else 2682 else
2869 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_COMP','N', v_tstrCipherOpened); 2683 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_COMP','N', v_tstrCipherOpened);
2870 2684
2871 - if (v_CS_AUTO_UPDATE) then Ver_UPD('col_comp','Coletor de Informações de Compartilhamentos',p_path_cacic + 'modulos\','',false);  
2872 - if (FileExists(p_path_cacic + 'Modulos\col_comp.exe')) then 2685 + if (v_CS_AUTO_UPDATE) then Ver_UPD('col_comp','Coletor de Informações de Compartilhamentos',g_oCacic.getCacicPath + 'modulos\','',false);
  2686 + if (FileExists(g_oCacic.getCacicPath + 'Modulos\col_comp.exe')) then
2873 Begin 2687 Begin
2874 intMontaBatch := 1; 2688 intMontaBatch := 1;
2875 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#'; 2689 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#';
@@ -2890,8 +2704,8 @@ Begin @@ -2890,8 +2704,8 @@ Begin
2890 else 2704 else
2891 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_HARD','N', v_tstrCipherOpened); 2705 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_HARD','N', v_tstrCipherOpened);
2892 2706
2893 - if (v_CS_AUTO_UPDATE) then Ver_UPD('col_hard','Coletor de Informações de Hardware',p_path_cacic + 'modulos\','',false);  
2894 - if (FileExists(p_path_cacic + 'Modulos\col_hard.exe')) then 2707 + if (v_CS_AUTO_UPDATE) then Ver_UPD('col_hard','Coletor de Informações de Hardware',g_oCacic.getCacicPath + 'modulos\','',false);
  2708 + if (FileExists(g_oCacic.getCacicPath + 'Modulos\col_hard.exe')) then
2895 Begin 2709 Begin
2896 intMontaBatch := 1; 2710 intMontaBatch := 1;
2897 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#'; 2711 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#';
@@ -2913,8 +2727,8 @@ Begin @@ -2913,8 +2727,8 @@ Begin
2913 else 2727 else
2914 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_MONI','N', v_tstrCipherOpened); 2728 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_MONI','N', v_tstrCipherOpened);
2915 2729
2916 - if (v_CS_AUTO_UPDATE) then Ver_UPD('col_moni','Coletor de Informações de Sistemas Monitorados',p_path_cacic + 'modulos\','',false);  
2917 - if (FileExists(p_path_cacic + 'Modulos\col_moni.exe')) then 2730 + if (v_CS_AUTO_UPDATE) then Ver_UPD('col_moni','Coletor de Informações de Sistemas Monitorados',g_oCacic.getCacicPath + 'modulos\','',false);
  2731 + if (FileExists(g_oCacic.getCacicPath + 'Modulos\col_moni.exe')) then
2918 Begin 2732 Begin
2919 intMontaBatch := 1; 2733 intMontaBatch := 1;
2920 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#'; 2734 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#';
@@ -2935,8 +2749,8 @@ Begin @@ -2935,8 +2749,8 @@ Begin
2935 else 2749 else
2936 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_SOFT','N', v_tstrCipherOpened); 2750 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_SOFT','N', v_tstrCipherOpened);
2937 2751
2938 - if (v_CS_AUTO_UPDATE) then Ver_UPD('col_soft','Coletor de Informações de Softwares Básicos',p_path_cacic + 'modulos\','',false);  
2939 - if (FileExists(p_path_cacic + 'Modulos\col_soft.exe')) then 2752 + if (v_CS_AUTO_UPDATE) then Ver_UPD('col_soft','Coletor de Informações de Softwares Básicos',g_oCacic.getCacicPath + 'modulos\','',false);
  2753 + if (FileExists(g_oCacic.getCacicPath + 'Modulos\col_soft.exe')) then
2940 Begin 2754 Begin
2941 intMontaBatch := 1; 2755 intMontaBatch := 1;
2942 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#'; 2756 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#';
@@ -2957,8 +2771,8 @@ Begin @@ -2957,8 +2771,8 @@ Begin
2957 else 2771 else
2958 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_UNDI','N', v_tstrCipherOpened); 2772 SetValorDatMemoria('Configs.IN_COLETA_FORCADA_UNDI','N', v_tstrCipherOpened);
2959 2773
2960 - if (v_CS_AUTO_UPDATE) then Ver_UPD('col_undi','Coletor de Informações de Unidades de Disco',p_path_cacic + 'modulos\','',false);  
2961 - if (FileExists(p_path_cacic + 'Modulos\col_undi.exe')) then 2774 + if (v_CS_AUTO_UPDATE) then Ver_UPD('col_undi','Coletor de Informações de Unidades de Disco',g_oCacic.getCacicPath + 'modulos\','',false);
  2775 + if (FileExists(g_oCacic.getCacicPath + 'Modulos\col_undi.exe')) then
2962 Begin 2776 Begin
2963 intMontaBatch := 1; 2777 intMontaBatch := 1;
2964 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#'; 2778 if (v_ModulosOpcoes<>'') then v_ModulosOpcoes := v_ModulosOpcoes + '#';
@@ -2971,29 +2785,28 @@ Begin @@ -2971,29 +2785,28 @@ Begin
2971 (GetValorDatMemoria('Configs.ID_FTP',v_tstrCipherOpened)<>'') then 2785 (GetValorDatMemoria('Configs.ID_FTP',v_tstrCipherOpened)<>'') then
2972 Begin 2786 Begin
2973 Request_Ger_Cols := TStringList.Create; 2787 Request_Ger_Cols := TStringList.Create;
2974 - Request_Ger_Cols.Values['in_chkcacic'] := StringReplace(EnCrypt('chkcacic',l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
2975 - Request_Ger_Cols.Values['te_fila_ftp'] := StringReplace(EnCrypt('2',l_cs_compress),'+','<MAIS>',[rfReplaceAll]); // Indicará sucesso na operação de FTP e liberará lugar para o próximo  
2976 - Request_Ger_Cols.Values['id_ftp'] := StringReplace(EnCrypt(GetValorDatMemoria('Configs.ID_FTP',v_tstrCipherOpened),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); // Indicará sucesso na operação de FTP e liberará lugar para o próximo 2788 + Request_Ger_Cols.Values['in_chkcacic'] := StringReplace(g_oCacic.enCrypt('chkcacic'),'+','<MAIS>',[rfReplaceAll]);
  2789 + Request_Ger_Cols.Values['te_fila_ftp'] := StringReplace(g_oCacic.enCrypt('2'),'+','<MAIS>',[rfReplaceAll]); // Indicará sucesso na operação de FTP e liberará lugar para o próximo
  2790 + Request_Ger_Cols.Values['id_ftp'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Configs.ID_FTP',v_tstrCipherOpened)),'+','<MAIS>',[rfReplaceAll]); // Indicará sucesso na operação de FTP e liberará lugar para o próximo
2977 ComunicaServidor('get_config.php', Request_Ger_Cols, '>> Liberando Grupo FTP!...'); 2791 ComunicaServidor('get_config.php', Request_Ger_Cols, '>> Liberando Grupo FTP!...');
2978 Request_Ger_Cols.Free; 2792 Request_Ger_Cols.Free;
2979 SetValorDatMemoria('Configs.ID_FTP','', v_tstrCipherOpened) 2793 SetValorDatMemoria('Configs.ID_FTP','', v_tstrCipherOpened)
2980 End; 2794 End;
2981 if (intMontaBatch > 0) then 2795 if (intMontaBatch > 0) then
2982 Begin 2796 Begin
2983 - Ver_UPD('ini_cols','Inicializador de Coletas',p_path_cacic + 'modulos,'',false); 2797 + Ver_UPD('ini_cols','Inicializador de Coletas',g_oCacic.getCacicPath + 'modulos,'',false);
2984 log_diario('Iniciando coletas.'); 2798 log_diario('Iniciando coletas.');
2985 Finalizar(false); 2799 Finalizar(false);
2986 - Matar(p_path_cacic + 'temp\','*.dat');  
2987 - CriaTXT(p_path_cacic+'temp','coletas');  
2988 - g_oCacic.createSampleProcess( p_path_cacic + 'modulos\ini_cols.exe /p_CipherKey=' + v_CipherKey +  
2989 - ' /p_ModulosOpcoes=' + v_ModulosOpcoes, CACIC_PROCESS_WAIT ); 2800 + Matar(g_oCacic.getCacicPath + 'temp\','*.dat');
  2801 + CriaTXT(g_oCacic.getCacicPath+'temp','coletas');
  2802 + g_oCacic.createSampleProcess( g_oCacic.getCacicPath + 'modulos\ini_cols.exe /p_ModulosOpcoes=' + v_ModulosOpcoes, CACIC_PROCESS_WAIT );
2990 End; 2803 End;
2991 2804
2992 end 2805 end
2993 else 2806 else
2994 begin 2807 begin
2995 - if not FileExists(p_path_cacic + 'Temp\ger_cols.exe') and  
2996 - not FileExists(p_path_cacic + 'modulos\ger_cols.exe') then 2808 + if not FileExists(g_oCacic.getCacicPath + 'Temp\ger_cols.exe') and
  2809 + not FileExists(g_oCacic.getCacicPath + 'modulos\ger_cols.exe') then
2997 log_diario('Módulo Gerente de Coletas inexistente.') 2810 log_diario('Módulo Gerente de Coletas inexistente.')
2998 else log_diario('Nenhuma coleta configurada para essa subrede / estação / S.O.'); 2811 else log_diario('Nenhuma coleta configurada para essa subrede / estação / S.O.');
2999 end; 2812 end;
@@ -3001,7 +2814,7 @@ Begin @@ -3001,7 +2814,7 @@ Begin
3001 end; 2814 end;
3002 2815
3003 // Caso não existam os arquivos abaixo, será finalizado. 2816 // Caso não existam os arquivos abaixo, será finalizado.
3004 - if (FileExists(p_path_cacic + 'Temp\coletas.txt')) or (FileExists(p_path_cacic + 'Temp\coletas.bat')) then 2817 + if (FileExists(g_oCacic.getCacicPath + 'Temp\coletas.txt')) or (FileExists(g_oCacic.getCacicPath + 'Temp\coletas.bat')) then
3005 begin 2818 begin
3006 log_DEBUG('Encontrado indicador de Coletas - Realizando leituras...'); 2819 log_DEBUG('Encontrado indicador de Coletas - Realizando leituras...');
3007 v_tstrCipherOpened1 := TStrings.Create; 2820 v_tstrCipherOpened1 := TStrings.Create;
@@ -3010,11 +2823,11 @@ Begin @@ -3010,11 +2823,11 @@ Begin
3010 Request_Ger_Cols:=TStringList.Create; 2823 Request_Ger_Cols:=TStringList.Create;
3011 intAux := 0; 2824 intAux := 0;
3012 2825
3013 - if (FileExists(p_path_cacic + 'Temp\col_anvi.dat')) then 2826 + if (FileExists(g_oCacic.getCacicPath + 'Temp\col_anvi.dat')) then
3014 Begin 2827 Begin
3015 - log_DEBUG('Indicador '+p_path_cacic + 'Temp\col_anvi.dat encontrado.'); 2828 + log_DEBUG('Indicador '+g_oCacic.getCacicPath + 'Temp\col_anvi.dat encontrado.');
3016 v_acao_gercols := '* Preparando envio de informações de Anti-Vírus.'; 2829 v_acao_gercols := '* Preparando envio de informações de Anti-Vírus.';
3017 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'Temp\col_anvi.dat'); 2830 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'Temp\col_anvi.dat');
3018 2831
3019 // Armazeno dados para informações de coletas na data, via menu popup do Systray 2832 // Armazeno dados para informações de coletas na data, via menu popup do Systray
3020 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Anti-Vírus OfficeScan', v_tstrCipherOpened); 2833 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Anti-Vírus OfficeScan', v_tstrCipherOpened);
@@ -3026,11 +2839,11 @@ Begin @@ -3026,11 +2839,11 @@ Begin
3026 if (GetValorDatMemoria('Col_Anvi.nada',v_tstrCipherOpened1)='') then 2839 if (GetValorDatMemoria('Col_Anvi.nada',v_tstrCipherOpened1)='') then
3027 Begin 2840 Begin
3028 // Preparação para envio... 2841 // Preparação para envio...
3029 - Request_Ger_Cols.Values['nu_versao_engine' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Anvi.nu_versao_engine' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3030 - Request_Ger_Cols.Values['nu_versao_pattern'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Anvi.nu_versao_pattern',v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3031 - Request_Ger_Cols.Values['dt_hr_instalacao' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Anvi.dt_hr_instalacao' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3032 - Request_Ger_Cols.Values['te_servidor' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Anvi.te_servidor' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3033 - Request_Ger_Cols.Values['in_ativo' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Anvi.in_ativo' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 2842 + Request_Ger_Cols.Values['nu_versao_engine' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Anvi.nu_versao_engine' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2843 + Request_Ger_Cols.Values['nu_versao_pattern'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Anvi.nu_versao_pattern',v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2844 + Request_Ger_Cols.Values['dt_hr_instalacao' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Anvi.dt_hr_instalacao' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2845 + Request_Ger_Cols.Values['te_servidor' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Anvi.te_servidor' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2846 + Request_Ger_Cols.Values['in_ativo' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Anvi.in_ativo' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
3034 2847
3035 if v_Debugs then 2848 if v_Debugs then
3036 For intLoop := 0 to Request_Ger_Cols.Count-1 do 2849 For intLoop := 0 to Request_Ger_Cols.Count-1 do
@@ -3057,14 +2870,14 @@ Begin @@ -3057,14 +2870,14 @@ Begin
3057 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened); 2870 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened);
3058 2871
3059 Request_Ger_Cols.Clear; 2872 Request_Ger_Cols.Clear;
3060 - Matar(p_path_cacic+'Temp,'col_anvi.dat'); 2873 + Matar(g_oCacic.getCacicPath+'Temp,'col_anvi.dat');
3061 End; 2874 End;
3062 2875
3063 - if (FileExists(p_path_cacic + 'Temp\col_comp.dat')) then 2876 + if (FileExists(g_oCacic.getCacicPath + 'Temp\col_comp.dat')) then
3064 Begin 2877 Begin
3065 - log_DEBUG('Indicador '+p_path_cacic + 'Temp\col_comp.dat encontrado.'); 2878 + log_DEBUG('Indicador '+g_oCacic.getCacicPath + 'Temp\col_comp.dat encontrado.');
3066 v_acao_gercols := '* Preparando envio de informações de Compartilhamentos.'; 2879 v_acao_gercols := '* Preparando envio de informações de Compartilhamentos.';
3067 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'Temp\col_comp.dat'); 2880 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'Temp\col_comp.dat');
3068 2881
3069 // Armazeno dados para informações de coletas na data, via menu popup do Systray 2882 // Armazeno dados para informações de coletas na data, via menu popup do Systray
3070 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Compartilhamentos', v_tstrCipherOpened); 2883 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Compartilhamentos', v_tstrCipherOpened);
@@ -3076,7 +2889,7 @@ Begin @@ -3076,7 +2889,7 @@ Begin
3076 if (GetValorDatMemoria('Col_Comp.nada',v_tstrCipherOpened1)='') then 2889 if (GetValorDatMemoria('Col_Comp.nada',v_tstrCipherOpened1)='') then
3077 Begin 2890 Begin
3078 // Preparação para envio... 2891 // Preparação para envio...
3079 - Request_Ger_Cols.Values['CompartilhamentosLocais'] := StringReplace(EnCrypt(StringReplace(GetValorDatMemoria('Col_Comp.UVC',v_tstrCipherOpened1),'\','<BarrInv>',[rfReplaceAll]),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 2892 + Request_Ger_Cols.Values['CompartilhamentosLocais'] := StringReplace(g_oCacic.enCrypt(StringReplace(GetValorDatMemoria('Col_Comp.UVC',v_tstrCipherOpened1),'\','<BarrInv>',[rfReplaceAll])),'+','<MAIS>',[rfReplaceAll]);
3080 if v_Debugs then 2893 if v_Debugs then
3081 Begin 2894 Begin
3082 log_DEBUG('Col_Comp.UVC => '+GetValorDatMemoria('Col_Comp.UVC',v_tstrCipherOpened1)); 2895 log_DEBUG('Col_Comp.UVC => '+GetValorDatMemoria('Col_Comp.UVC',v_tstrCipherOpened1));
@@ -3104,14 +2917,14 @@ Begin @@ -3104,14 +2917,14 @@ Begin
3104 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened); 2917 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened);
3105 2918
3106 Request_Ger_Cols.Clear; 2919 Request_Ger_Cols.Clear;
3107 - Matar(p_path_cacic+'Temp,'col_comp.dat'); 2920 + Matar(g_oCacic.getCacicPath+'Temp,'col_comp.dat');
3108 End; 2921 End;
3109 2922
3110 - if (FileExists(p_path_cacic + 'Temp\col_hard.dat')) then 2923 + if (FileExists(g_oCacic.getCacicPath + 'Temp\col_hard.dat')) then
3111 Begin 2924 Begin
3112 - log_DEBUG('Indicador '+p_path_cacic + 'Temp\col_hard.dat encontrado.'); 2925 + log_DEBUG('Indicador '+g_oCacic.getCacicPath + 'Temp\col_hard.dat encontrado.');
3113 v_acao_gercols := '* Preparando envio de informações de Hardware.'; 2926 v_acao_gercols := '* Preparando envio de informações de Hardware.';
3114 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'Temp\col_hard.dat'); 2927 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'Temp\col_hard.dat');
3115 2928
3116 // Armazeno dados para informações de coletas na data, via menu popup do Systray 2929 // Armazeno dados para informações de coletas na data, via menu popup do Systray
3117 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Hardware', v_tstrCipherOpened); 2930 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Hardware', v_tstrCipherOpened);
@@ -3123,24 +2936,24 @@ Begin @@ -3123,24 +2936,24 @@ Begin
3123 if (GetValorDatMemoria('Col_Hard.nada',v_tstrCipherOpened1)='') then 2936 if (GetValorDatMemoria('Col_Hard.nada',v_tstrCipherOpened1)='') then
3124 Begin 2937 Begin
3125 // Preparação para envio... 2938 // Preparação para envio...
3126 - Request_Ger_Cols.Values['te_Tripa_TCPIP' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_Tripa_TCPIP' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3127 - Request_Ger_Cols.Values['te_Tripa_CPU' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_Tripa_CPU' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3128 - Request_Ger_Cols.Values['te_Tripa_CDROM' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_Tripa_CDROM' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3129 - Request_Ger_Cols.Values['te_placa_mae_fabricante' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_placa_mae_fabricante' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3130 - Request_Ger_Cols.Values['te_placa_mae_desc' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_placa_mae_desc' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3131 - Request_Ger_Cols.Values['qt_mem_ram' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.qt_mem_ram' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3132 - Request_Ger_Cols.Values['te_mem_ram_desc' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_mem_ram_desc' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3133 - Request_Ger_Cols.Values['te_bios_desc' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_bios_desc' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3134 - Request_Ger_Cols.Values['te_bios_data' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_bios_data' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3135 - Request_Ger_Cols.Values['te_bios_fabricante' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_bios_fabricante' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3136 - Request_Ger_Cols.Values['qt_placa_video_cores' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.qt_placa_video_cores' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3137 - Request_Ger_Cols.Values['te_placa_video_desc' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_placa_video_desc' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3138 - Request_Ger_Cols.Values['qt_placa_video_mem' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.qt_placa_video_mem' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3139 - Request_Ger_Cols.Values['te_placa_video_resolucao'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_placa_video_resolucao',v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3140 - Request_Ger_Cols.Values['te_placa_som_desc' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_placa_som_desc' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3141 - Request_Ger_Cols.Values['te_teclado_desc' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_teclado_desc' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3142 - Request_Ger_Cols.Values['te_mouse_desc' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_mouse_desc' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3143 - Request_Ger_Cols.Values['te_modem_desc' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Hard.te_modem_desc' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 2939 + Request_Ger_Cols.Values['te_Tripa_TCPIP' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_Tripa_TCPIP' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2940 + Request_Ger_Cols.Values['te_Tripa_CPU' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_Tripa_CPU' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2941 + Request_Ger_Cols.Values['te_Tripa_CDROM' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_Tripa_CDROM' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2942 + Request_Ger_Cols.Values['te_placa_mae_fabricante' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_placa_mae_fabricante' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2943 + Request_Ger_Cols.Values['te_placa_mae_desc' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_placa_mae_desc' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2944 + Request_Ger_Cols.Values['qt_mem_ram' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.qt_mem_ram' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2945 + Request_Ger_Cols.Values['te_mem_ram_desc' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_mem_ram_desc' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2946 + Request_Ger_Cols.Values['te_bios_desc' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_bios_desc' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2947 + Request_Ger_Cols.Values['te_bios_data' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_bios_data' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2948 + Request_Ger_Cols.Values['te_bios_fabricante' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_bios_fabricante' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2949 + Request_Ger_Cols.Values['qt_placa_video_cores' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.qt_placa_video_cores' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2950 + Request_Ger_Cols.Values['te_placa_video_desc' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_placa_video_desc' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2951 + Request_Ger_Cols.Values['qt_placa_video_mem' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.qt_placa_video_mem' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2952 + Request_Ger_Cols.Values['te_placa_video_resolucao'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_placa_video_resolucao',v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2953 + Request_Ger_Cols.Values['te_placa_som_desc' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_placa_som_desc' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2954 + Request_Ger_Cols.Values['te_teclado_desc' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_teclado_desc' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2955 + Request_Ger_Cols.Values['te_mouse_desc' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_mouse_desc' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  2956 + Request_Ger_Cols.Values['te_modem_desc' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Hard.te_modem_desc' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
3144 if v_Debugs then 2957 if v_Debugs then
3145 For intLoop := 0 to Request_Ger_Cols.Count-1 do 2958 For intLoop := 0 to Request_Ger_Cols.Count-1 do
3146 log_DEBUG('Item "'+Request_Ger_Cols.Names[intLoop]+'" de Col_Hard: '+Request_Ger_Cols.ValueFromIndex[intLoop]); 2959 log_DEBUG('Item "'+Request_Ger_Cols.Names[intLoop]+'" de Col_Hard: '+Request_Ger_Cols.ValueFromIndex[intLoop]);
@@ -3165,14 +2978,14 @@ Begin @@ -3165,14 +2978,14 @@ Begin
3165 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened); 2978 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened);
3166 2979
3167 Request_Ger_Cols.Clear; 2980 Request_Ger_Cols.Clear;
3168 - Matar(p_path_cacic+'Temp,'col_hard.dat'); 2981 + Matar(g_oCacic.getCacicPath+'Temp,'col_hard.dat');
3169 End; 2982 End;
3170 2983
3171 - if (FileExists(p_path_cacic + 'Temp\col_patr.dat')) then 2984 + if (FileExists(g_oCacic.getCacicPath + 'Temp\col_patr.dat')) then
3172 Begin 2985 Begin
3173 - log_DEBUG('Indicador '+p_path_cacic + 'Temp\col_patr.dat encontrado.'); 2986 + log_DEBUG('Indicador '+g_oCacic.getCacicPath + 'Temp\col_patr.dat encontrado.');
3174 v_acao_gercols := '* Preparando envio de informações de Patrimônio.'; 2987 v_acao_gercols := '* Preparando envio de informações de Patrimônio.';
3175 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'Temp\col_patr.dat'); 2988 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'Temp\col_patr.dat');
3176 2989
3177 // Armazeno dados para informações de coletas na data, via menu popup do Systray 2990 // Armazeno dados para informações de coletas na data, via menu popup do Systray
3178 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações Patrimoniais', v_tstrCipherOpened); 2991 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações Patrimoniais', v_tstrCipherOpened);
@@ -3184,16 +2997,16 @@ Begin @@ -3184,16 +2997,16 @@ Begin
3184 if (GetValorDatMemoria('Col_Patr.nada',v_tstrCipherOpened1)='') then 2997 if (GetValorDatMemoria('Col_Patr.nada',v_tstrCipherOpened1)='') then
3185 Begin 2998 Begin
3186 // Preparação para envio... 2999 // Preparação para envio...
3187 - Request_Ger_Cols.Values['id_unid_organizacional_nivel1'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel1' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3188 - Request_Ger_Cols.Values['id_unid_organizacional_nivel1a'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel1a' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3189 - Request_Ger_Cols.Values['id_unid_organizacional_nivel2'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel2' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3190 - Request_Ger_Cols.Values['te_localizacao_complementar' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_localizacao_complementar' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3191 - Request_Ger_Cols.Values['te_info_patrimonio1' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio1' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3192 - Request_Ger_Cols.Values['te_info_patrimonio2' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio2' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3193 - Request_Ger_Cols.Values['te_info_patrimonio3' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio3' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3194 - Request_Ger_Cols.Values['te_info_patrimonio4' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio4' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3195 - Request_Ger_Cols.Values['te_info_patrimonio5' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio5' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3196 - Request_Ger_Cols.Values['te_info_patrimonio6' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio6' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 3000 + Request_Ger_Cols.Values['id_unid_organizacional_nivel1'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel1' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3001 + Request_Ger_Cols.Values['id_unid_organizacional_nivel1a'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel1a' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3002 + Request_Ger_Cols.Values['id_unid_organizacional_nivel2'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.id_unid_organizacional_nivel2' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3003 + Request_Ger_Cols.Values['te_localizacao_complementar' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_localizacao_complementar' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3004 + Request_Ger_Cols.Values['te_info_patrimonio1' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio1' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3005 + Request_Ger_Cols.Values['te_info_patrimonio2' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio2' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3006 + Request_Ger_Cols.Values['te_info_patrimonio3' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio3' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3007 + Request_Ger_Cols.Values['te_info_patrimonio4' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio4' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3008 + Request_Ger_Cols.Values['te_info_patrimonio5' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio5' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3009 + Request_Ger_Cols.Values['te_info_patrimonio6' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Patr.te_info_patrimonio6' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
3197 3010
3198 if v_Debugs then 3011 if v_Debugs then
3199 For intLoop := 0 to Request_Ger_Cols.Count-1 do 3012 For intLoop := 0 to Request_Ger_Cols.Count-1 do
@@ -3228,14 +3041,14 @@ Begin @@ -3228,14 +3041,14 @@ Begin
3228 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened); 3041 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened);
3229 3042
3230 Request_Ger_Cols.Clear; 3043 Request_Ger_Cols.Clear;
3231 - Matar(p_path_cacic+'Temp,'col_patr.dat'); 3044 + Matar(g_oCacic.getCacicPath+'Temp,'col_patr.dat');
3232 End; 3045 End;
3233 3046
3234 - if (FileExists(p_path_cacic + 'Temp\col_moni.dat')) then 3047 + if (FileExists(g_oCacic.getCacicPath + 'Temp\col_moni.dat')) then
3235 Begin 3048 Begin
3236 - log_DEBUG('Indicador '+p_path_cacic + 'Temp\col_moni.dat encontrado.'); 3049 + log_DEBUG('Indicador '+g_oCacic.getCacicPath + 'Temp\col_moni.dat encontrado.');
3237 v_acao_gercols := '* Preparando envio de informações de Sistemas Monitorados.'; 3050 v_acao_gercols := '* Preparando envio de informações de Sistemas Monitorados.';
3238 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'Temp\col_moni.dat'); 3051 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'Temp\col_moni.dat');
3239 3052
3240 // Armazeno dados para informações de coletas na data, via menu popup do Systray 3053 // Armazeno dados para informações de coletas na data, via menu popup do Systray
3241 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Sistemas Monitorados', v_tstrCipherOpened); 3054 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Sistemas Monitorados', v_tstrCipherOpened);
@@ -3247,7 +3060,7 @@ Begin @@ -3247,7 +3060,7 @@ Begin
3247 if (GetValorDatMemoria('Col_Moni.nada',v_tstrCipherOpened1)='') then 3060 if (GetValorDatMemoria('Col_Moni.nada',v_tstrCipherOpened1)='') then
3248 Begin 3061 Begin
3249 // Preparação para envio... 3062 // Preparação para envio...
3250 - Request_Ger_Cols.Values['te_tripa_monitorados'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Moni.UVC',v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 3063 + Request_Ger_Cols.Values['te_tripa_monitorados'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Moni.UVC',v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
3251 3064
3252 if v_Debugs then 3065 if v_Debugs then
3253 For intLoop := 0 to Request_Ger_Cols.Count-1 do 3066 For intLoop := 0 to Request_Ger_Cols.Count-1 do
@@ -3273,14 +3086,14 @@ Begin @@ -3273,14 +3086,14 @@ Begin
3273 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened); 3086 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened);
3274 3087
3275 Request_Ger_Cols.Clear; 3088 Request_Ger_Cols.Clear;
3276 - Matar(p_path_cacic+'Temp,'col_moni.dat'); 3089 + Matar(g_oCacic.getCacicPath+'Temp,'col_moni.dat');
3277 End; 3090 End;
3278 3091
3279 - if (FileExists(p_path_cacic + 'Temp\col_soft.dat')) then 3092 + if (FileExists(g_oCacic.getCacicPath + 'Temp\col_soft.dat')) then
3280 Begin 3093 Begin
3281 - log_DEBUG('Indicador '+p_path_cacic + 'Temp\col_soft.dat encontrado.'); 3094 + log_DEBUG('Indicador '+g_oCacic.getCacicPath + 'Temp\col_soft.dat encontrado.');
3282 v_acao_gercols := '* Preparando envio de informações de Softwares.'; 3095 v_acao_gercols := '* Preparando envio de informações de Softwares.';
3283 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'Temp\col_soft.dat'); 3096 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'Temp\col_soft.dat');
3284 3097
3285 // Armazeno dados para informações de coletas na data, via menu popup do Systray 3098 // Armazeno dados para informações de coletas na data, via menu popup do Systray
3286 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Softwares', v_tstrCipherOpened); 3099 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Softwares', v_tstrCipherOpened);
@@ -3292,17 +3105,17 @@ Begin @@ -3292,17 +3105,17 @@ Begin
3292 if (GetValorDatMemoria('Col_Soft.nada',v_tstrCipherOpened1)='') then 3105 if (GetValorDatMemoria('Col_Soft.nada',v_tstrCipherOpened1)='') then
3293 Begin 3106 Begin
3294 // Preparação para envio... 3107 // Preparação para envio...
3295 - Request_Ger_Cols.Values['te_versao_bde' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_versao_bde' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3296 - Request_Ger_Cols.Values['te_versao_dao' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_versao_dao' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3297 - Request_Ger_Cols.Values['te_versao_ado' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_versao_ado' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3298 - Request_Ger_Cols.Values['te_versao_odbc' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_versao_odbc' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3299 - Request_Ger_Cols.Values['te_versao_directx' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_versao_directx' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3300 - Request_Ger_Cols.Values['te_versao_acrobat_reader'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_versao_acrobat_reader',v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3301 - Request_Ger_Cols.Values['te_versao_ie' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_versao_ie' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3302 - Request_Ger_Cols.Values['te_versao_mozilla' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_versao_mozilla' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3303 - Request_Ger_Cols.Values['te_versao_jre' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_versao_jre' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3304 - Request_Ger_Cols.Values['te_inventario_softwares' ] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Soft.te_inventario_softwares' ,v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]);  
3305 - Request_Ger_Cols.Values['te_variaveis_ambiente' ] := StringReplace(EnCrypt(StringReplace(GetValorDatMemoria('Col_Soft.te_variaveis_ambiente',v_tstrCipherOpened1),'\','<BarrInv>',[rfReplaceAll]),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 3108 + Request_Ger_Cols.Values['te_versao_bde' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_versao_bde' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3109 + Request_Ger_Cols.Values['te_versao_dao' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_versao_dao' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3110 + Request_Ger_Cols.Values['te_versao_ado' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_versao_ado' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3111 + Request_Ger_Cols.Values['te_versao_odbc' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_versao_odbc' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3112 + Request_Ger_Cols.Values['te_versao_directx' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_versao_directx' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3113 + Request_Ger_Cols.Values['te_versao_acrobat_reader'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_versao_acrobat_reader',v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3114 + Request_Ger_Cols.Values['te_versao_ie' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_versao_ie' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3115 + Request_Ger_Cols.Values['te_versao_mozilla' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_versao_mozilla' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3116 + Request_Ger_Cols.Values['te_versao_jre' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_versao_jre' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3117 + Request_Ger_Cols.Values['te_inventario_softwares' ] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Soft.te_inventario_softwares' ,v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
  3118 + Request_Ger_Cols.Values['te_variaveis_ambiente' ] := StringReplace(g_oCacic.enCrypt(StringReplace(GetValorDatMemoria('Col_Soft.te_variaveis_ambiente',v_tstrCipherOpened1),'\','<BarrInv>',[rfReplaceAll])),'+','<MAIS>',[rfReplaceAll]);
3306 3119
3307 if v_Debugs then 3120 if v_Debugs then
3308 For intLoop := 0 to Request_Ger_Cols.Count-1 do 3121 For intLoop := 0 to Request_Ger_Cols.Count-1 do
@@ -3328,14 +3141,14 @@ Begin @@ -3328,14 +3141,14 @@ Begin
3328 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened); 3141 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened);
3329 3142
3330 Request_Ger_Cols.Clear; 3143 Request_Ger_Cols.Clear;
3331 - Matar(p_path_cacic+'Temp,'col_soft.dat'); 3144 + Matar(g_oCacic.getCacicPath+'Temp,'col_soft.dat');
3332 End; 3145 End;
3333 3146
3334 - if (FileExists(p_path_cacic + 'Temp\col_undi.dat')) then 3147 + if (FileExists(g_oCacic.getCacicPath + 'Temp\col_undi.dat')) then
3335 Begin 3148 Begin
3336 - log_DEBUG('Indicador '+p_path_cacic + 'Temp\col_undi.dat encontrado.'); 3149 + log_DEBUG('Indicador '+g_oCacic.getCacicPath + 'Temp\col_undi.dat encontrado.');
3337 v_acao_gercols := '* Preparando envio de informações de Unidades de Disco.'; 3150 v_acao_gercols := '* Preparando envio de informações de Unidades de Disco.';
3338 - v_tstrCipherOpened1 := CipherOpen(p_path_cacic + 'Temp\col_undi.dat'); 3151 + v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'Temp\col_undi.dat');
3339 3152
3340 // Armazeno dados para informações de coletas na data, via menu popup do Systray 3153 // Armazeno dados para informações de coletas na data, via menu popup do Systray
3341 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Unidades de Disco', v_tstrCipherOpened); 3154 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+'#Informações sobre Unidades de Disco', v_tstrCipherOpened);
@@ -3347,7 +3160,7 @@ Begin @@ -3347,7 +3160,7 @@ Begin
3347 if (GetValorDatMemoria('Col_Undi.nada',v_tstrCipherOpened1)='') then 3160 if (GetValorDatMemoria('Col_Undi.nada',v_tstrCipherOpened1)='') then
3348 Begin 3161 Begin
3349 // Preparação para envio... 3162 // Preparação para envio...
3350 - Request_Ger_Cols.Values['UnidadesDiscos'] := StringReplace(EnCrypt(GetValorDatMemoria('Col_Undi.UVC',v_tstrCipherOpened1),l_cs_compress),'+','<MAIS>',[rfReplaceAll]); 3163 + Request_Ger_Cols.Values['UnidadesDiscos'] := StringReplace(g_oCacic.enCrypt(GetValorDatMemoria('Col_Undi.UVC',v_tstrCipherOpened1)),'+','<MAIS>',[rfReplaceAll]);
3351 3164
3352 if v_Debugs then 3165 if v_Debugs then
3353 For intLoop := 0 to Request_Ger_Cols.Count-1 do 3166 For intLoop := 0 to Request_Ger_Cols.Count-1 do
@@ -3373,7 +3186,7 @@ Begin @@ -3373,7 +3186,7 @@ Begin
3373 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened); 3186 SetValorDatMemoria('Coletas.HOJE',GetValorDatMemoria('Coletas.HOJE',v_tstrCipherOpened)+',0', v_tstrCipherOpened);
3374 3187
3375 Request_Ger_Cols.Clear; 3188 Request_Ger_Cols.Clear;
3376 - Matar(p_path_cacic+'Temp,'col_undi.dat'); 3189 + Matar(g_oCacic.getCacicPath+'Temp,'col_undi.dat');
3377 End; 3190 End;
3378 Request_Ger_Cols.Free; 3191 Request_Ger_Cols.Free;
3379 3192
@@ -3391,7 +3204,7 @@ Begin @@ -3391,7 +3204,7 @@ Begin
3391 Except 3204 Except
3392 Begin 3205 Begin
3393 log_diario('PROBLEMAS EM EXECUTA_GER_COLS! Ação: ' + v_acao_gercols+'.'); 3206 log_diario('PROBLEMAS EM EXECUTA_GER_COLS! Ação: ' + v_acao_gercols+'.');
3394 - CriaTXT(p_path_cacic,'ger_erro'); 3207 + CriaTXT(g_oCacic.getCacicPath,'ger_erro');
3395 Finalizar(false); 3208 Finalizar(false);
3396 SetValorDatMemoria('Erro_Fatal_Descricao', v_acao_gercols, v_tstrCipherOpened); 3209 SetValorDatMemoria('Erro_Fatal_Descricao', v_acao_gercols, v_tstrCipherOpened);
3397 End; 3210 End;
@@ -3399,93 +3212,72 @@ Begin @@ -3399,93 +3212,72 @@ Begin
3399 3212
3400 End; 3213 End;
3401 3214
3402 -const  
3403 - CACIC_APP_NAME = 'ger_cols';  
3404 - 3215 +var v_path_cacic : String;
3405 begin 3216 begin
3406 g_oCacic := TCACIC.Create(); 3217 g_oCacic := TCACIC.Create();
3407 3218
3408 if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then begin 3219 if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then begin
3409 Try 3220 Try
3410 // Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.DAT 3221 // Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.DAT
3411 - tstrTripa1 := explode(ExtractFilePath(ParamStr(0)),'\');  
3412 - p_path_cacic := ''; 3222 + tstrTripa1 := g_oCacic.explode(ExtractFilePath(ParamStr(0)),'\');
  3223 + v_path_cacic := '';
3413 For intAux := 0 to tstrTripa1.Count -2 do 3224 For intAux := 0 to tstrTripa1.Count -2 do
3414 - p_path_cacic := p_path_cacic + tstrTripa1[intAux] + '; 3225 + v_path_cacic := v_path_cacic + tstrTripa1[intAux] + ';
3415 3226
  3227 + g_oCacic.setCacicPath(v_path_cacic);
3416 v_Debugs := false; 3228 v_Debugs := false;
3417 - if DirectoryExists(p_path_cacic + 'Temp\Debugs') then  
3418 - if (FormatDateTime('ddmmyyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then 3229 + if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
  3230 + if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
3419 Begin 3231 Begin
3420 v_Debugs := true; 3232 v_Debugs := true;
3421 - log_DEBUG('Pasta "' + p_path_cacic + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs'))+' encontrada. DEBUG ativado.'); 3233 + log_DEBUG('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
3422 End; 3234 End;
3423 3235
3424 - g_oCacic.setCacicPath(p_path_cacic);  
3425 -  
3426 - For intAux := 1 to ParamCount do  
3427 - if LowerCase(Copy(ParamStr(intAux),1,13)) = '/p_cipherkey=' then  
3428 - Begin  
3429 - v_CipherKey := Trim(Copy(ParamStr(intAux),14,Length((ParamStr(intAux)))));  
3430 - log_DEBUG('Parâmetro para cifragem recebido.');  
3431 - End; 3236 + g_oCacic.setCacicPath(g_oCacic.getCacicPath);
3432 3237
3433 - // Caso tenha sido invocado por um CACIC2.EXE versão antiga, assumo o valor abaixo...  
3434 - // Solução provisória até a convergência das versões do Agente Principal e do Gerente de Coletas  
3435 - if (trim(v_CipherKey)='') then  
3436 - v_CipherKey := 'CacicBrasil';  
3437 3238
3438 - if (trim(v_CipherKey)<>'') then  
3439 - Begin  
3440 - v_IV := 'abcdefghijklmnop';  
3441 3239
3442 - // De acordo com a versão do OS, determina-se o ShellCommand para chamadas externas.  
3443 - p_Shell_Command := 'cmd.exe /c '; //NT/2K/XP  
3444 - if(g_oCacic.isWindows9xME()) then  
3445 - p_Shell_Command := 'command.com /c '; 3240 + // De acordo com a versão do OS, determina-se o ShellCommand para chamadas externas.
  3241 + p_Shell_Command := 'cmd.exe /c '; //NT/2K/XP
  3242 + if(g_oCacic.isWindows9xME()) then
  3243 + p_Shell_Command := 'command.com /c ';
3446 3244
3447 - if not DirectoryExists(p_path_cacic + 'Temp') then  
3448 - ForceDirectories(p_path_cacic + 'Temp'); 3245 + if not DirectoryExists(g_oCacic.getCacicPath + 'Temp') then
  3246 + ForceDirectories(g_oCacic.getCacicPath + 'Temp');
3449 3247
3450 - // A chave AES foi obtida no parâmetro p_CipherKey. Recomenda-se que cada empresa altere a sua chave.  
3451 - v_DatFileName := p_path_cacic + 'cacic2.dat';  
3452 - v_tstrCipherOpened := TStrings.Create;  
3453 - v_tstrCipherOpened := CipherOpen(v_DatFileName); 3248 + v_tstrCipherOpened := TStrings.Create;
  3249 + v_tstrCipherOpened := CipherOpen(g_oCacic.getDatFileName);
3454 3250
3455 - // Obtem a string de identificação do SO (g_te_so), para uso nas comunicações com o Gerente WEB.  
3456 - g_te_so := g_oCacic.getWindowsStrId(); 3251 + // Não tirar desta posição
  3252 + SetValorDatMemoria('Configs.TE_SO',g_oCacic.getWindowsStrId(), v_tstrCipherOpened);
3457 3253
3458 - // Não tirar desta posição  
3459 - SetValorDatMemoria('Configs.ID_SO',g_te_so, v_tstrCipherOpened); 3254 + log_DEBUG('Te_So obtido: "' + g_oCacic.getWindowsStrId() +'"');
3460 3255
3461 - log_DEBUG('Te_So obtido: "' + g_te_so +'"');  
3462 -  
3463 - v_scripter := 'wscript.exe';  
3464 - // A existência e bloqueio do arquivo abaixo evitará que Cacic2.exe chame o Ger_Cols quando este estiver em funcionamento  
3465 - AssignFile(v_Aguarde,p_path_cacic + 'temp\aguarde_GER.txt'); {Associa o arquivo a uma variável do tipo TextFile}  
3466 - {$IOChecks off}  
3467 - Reset(v_Aguarde); {Abre o arquivo texto}  
3468 - {$IOChecks on}  
3469 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
3470 - Rewrite (v_Aguarde); 3256 + v_scripter := 'wscript.exe';
  3257 + // A existência e bloqueio do arquivo abaixo evitará que Cacic2.exe chame o Ger_Cols quando este estiver em funcionamento
  3258 + AssignFile(v_Aguarde,g_oCacic.getCacicPath + 'temp\aguarde_GER.txt'); {Associa o arquivo a uma variável do tipo TextFile}
  3259 + {$IOChecks off}
  3260 + Reset(v_Aguarde); {Abre o arquivo texto}
  3261 + {$IOChecks on}
  3262 + if (IOResult <> 0) then // Arquivo não existe, será recriado.
  3263 + Rewrite (v_Aguarde);
3471 3264
3472 - Append(v_Aguarde);  
3473 - Writeln(v_Aguarde,'Apenas um pseudo-cookie para o Cacic2 esperar o término de Ger_Cols');  
3474 - Append(v_Aguarde); 3265 + Append(v_Aguarde);
  3266 + Writeln(v_Aguarde,'Apenas um pseudo-cookie para o Cacic2 esperar o término de Ger_Cols');
  3267 + Append(v_Aguarde);
3475 3268
3476 - ChecaCipher;  
3477 - ChecaCompress; 3269 + ChecaCipher;
  3270 + ChecaCompress;
3478 3271
3479 - Executa_Ger_Cols;  
3480 - Finalizar(true);  
3481 - End;  
3482 - Except  
3483 - Begin  
3484 - log_diario('PROBLEMAS EM EXECUTA_GER_COLS! Ação: ' + v_acao_gercols+'.');  
3485 - CriaTXT(p_path_cacic,'ger_erro');  
3486 - Finalizar(false);  
3487 - SetValorDatMemoria('Erro_Fatal_Descricao', v_acao_gercols, v_tstrCipherOpened);  
3488 - End; 3272 + Executa_Ger_Cols;
  3273 + Finalizar(true);
  3274 + Except
  3275 + Begin
  3276 + log_diario('PROBLEMAS EM EXECUTA_GER_COLS! Ação: ' + v_acao_gercols+'.');
  3277 + CriaTXT(g_oCacic.getCacicPath,'ger_erro');
  3278 + Finalizar(false);
  3279 + SetValorDatMemoria('Erro_Fatal_Descricao', v_acao_gercols, v_tstrCipherOpened);
  3280 + End;
3489 End; 3281 End;
3490 End; 3282 End;
3491 3283
ini_cols/ini_cols.dpr
  Diff comments   View file @6af8aaa
@@ -25,22 +25,14 @@ uses @@ -25,22 +25,14 @@ uses
25 idFTPCommon, 25 idFTPCommon,
26 idFTP, 26 idFTP,
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,  
34 - v_te_senha_login_serv_updates, 30 +var v_te_senha_login_serv_updates,
35 v_versao : string; 31 v_versao : string;
36 v_array_path_cacic : TStrings; 32 v_array_path_cacic : TStrings;
37 intAux, 33 intAux,
38 v_ContaTempo, 34 v_ContaTempo,
39 v_Tolerancia : integer; 35 v_Tolerancia : integer;
40 - v_CipherKey,  
41 - v_IV,  
42 - v_SeparatorKey,  
43 - v_DatFileName,  
44 v_ModulosOpcoes, 36 v_ModulosOpcoes,
45 v_Aux : String; 37 v_Aux : String;
46 v_Debugs : Boolean; 38 v_Debugs : Boolean;
@@ -50,10 +42,11 @@ var v_tstrCipherOpened, @@ -50,10 +42,11 @@ var v_tstrCipherOpened,
50 v_tstrModulosOpcoes, 42 v_tstrModulosOpcoes,
51 v_tstrModuloOpcao : TStrings; 43 v_tstrModuloOpcao : TStrings;
52 44
53 -// Some constants that are dependant on the cipher being used  
54 -// Assuming MCRYPT_RIJNDAEL_128 (i.e., 128bit blocksize, 256bit keysize)  
55 -const KeySize = 32; // 32 bytes = 256 bits  
56 - BlockSize = 16; // 16 bytes = 128 bits 45 +var
  46 + g_oCacic : TCACIC;
  47 +
  48 +const
  49 + CACIC_APP_NAME = 'ini_cols';
57 50
58 function VerFmt(const MS, LS: DWORD): string; 51 function VerFmt(const MS, LS: DWORD): string;
59 // Format the version number from the given DWORDs containing the info 52 // Format the version number from the given DWORDs containing the info
@@ -98,8 +91,8 @@ var @@ -98,8 +91,8 @@ var
98 strDataArqLocal, strDataAtual : string; 91 strDataArqLocal, strDataAtual : string;
99 begin 92 begin
100 try 93 try
101 - FileSetAttr (p_path_cacic + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
102 - AssignFile(HistoricoLog,p_path_cacic + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile} 94 + FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
  95 + AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
103 {$IOChecks off} 96 {$IOChecks off}
104 Reset(HistoricoLog); {Abre o arquivo texto} 97 Reset(HistoricoLog); {Abre o arquivo texto}
105 {$IOChecks on} 98 {$IOChecks on}
@@ -111,7 +104,7 @@ begin @@ -111,7 +104,7 @@ begin
111 end; 104 end;
112 if (trim(strMsg) <> '') then 105 if (trim(strMsg) <> '') then
113 begin 106 begin
114 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(p_path_cacic + 'cacic2.log'))); 107 + DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));
115 DateTimeToString(strDataAtual , 'yyyymmdd', Date); 108 DateTimeToString(strDataAtual , 'yyyymmdd', Date);
116 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual... 109 if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
117 begin 110 begin
@@ -151,36 +144,6 @@ begin @@ -151,36 +144,6 @@ begin
151 end; 144 end;
152 end; 145 end;
153 146
154 -Function Explode(Texto, Separador : String) : TStrings;  
155 -var  
156 - strItem : String;  
157 - ListaAuxUTILS : TStrings;  
158 - NumCaracteres,  
159 - TamanhoSeparador,  
160 - I : Integer;  
161 -Begin  
162 - ListaAuxUTILS := TStringList.Create;  
163 - strItem := '';  
164 - NumCaracteres := Length(Texto);  
165 - TamanhoSeparador := Length(Separador);  
166 - I := 1;  
167 - While I <= NumCaracteres Do  
168 - Begin  
169 - If (Copy(Texto,I,TamanhoSeparador) = Separador) or (I = NumCaracteres) Then  
170 - Begin  
171 - if (I = NumCaracteres) then strItem := strItem + Texto[I];  
172 - ListaAuxUTILS.Add(trim(strItem));  
173 - strItem := '';  
174 - I := I + (TamanhoSeparador-1);  
175 - end  
176 - Else  
177 - strItem := strItem + Texto[I];  
178 -  
179 - I := I + 1;  
180 - End;  
181 - Explode := ListaAuxUTILS;  
182 -end;  
183 -  
184 Function GetValorDatMemoria(p_Chave : String) : String; 147 Function GetValorDatMemoria(p_Chave : String) : String;
185 begin 148 begin
186 if (v_tstrCipherOpened.IndexOf(p_Chave)<>-1) then 149 if (v_tstrCipherOpened.IndexOf(p_Chave)<>-1) then
@@ -189,90 +152,6 @@ begin @@ -189,90 +152,6 @@ begin
189 Result := ''; 152 Result := '';
190 end; 153 end;
191 154
192 -// Pad a string with zeros so that it is a multiple of size  
193 -function PadWithZeros(const str : string; size : integer) : string;  
194 -var  
195 - origsize, i : integer;  
196 -begin  
197 - Result := str;  
198 - origsize := Length(Result);  
199 - if ((origsize mod size) <> 0) or (origsize = 0) then  
200 - begin  
201 - SetLength(Result,((origsize div size)+1)*size);  
202 - for i := origsize+1 to Length(Result) do  
203 - Result[i] := #0;  
204 - end;  
205 -end;  
206 -  
207 -// Encrypt a string and return the Base64 encoded result  
208 -function EnCrypt(p_Data : String) : String;  
209 -var  
210 - l_Cipher : TDCP_rijndael;  
211 - l_Data, l_Key, l_IV : string;  
212 -begin  
213 - Try  
214 - // Pad Key, IV and Data with zeros as appropriate  
215 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
216 - l_IV := PadWithZeros(v_IV,BlockSize);  
217 - l_Data := PadWithZeros(p_Data,BlockSize);  
218 -  
219 - // Create the cipher and initialise according to the key length  
220 - l_Cipher := TDCP_rijndael.Create(nil);  
221 - if Length(v_CipherKey) <= 16 then  
222 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
223 - else if Length(v_CipherKey) <= 24 then  
224 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
225 - else  
226 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
227 -  
228 - // Encrypt the data  
229 - l_Cipher.EncryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
230 -  
231 - // Free the cipher and clear sensitive information  
232 - l_Cipher.Free;  
233 - FillChar(l_Key[1],Length(l_Key),0);  
234 -  
235 - // Return the Base64 encoded result  
236 - Result := Base64EncodeStr(l_Data);  
237 - Except  
238 - End;  
239 -end;  
240 -  
241 -function DeCrypt(p_Data : String) : String;  
242 -var  
243 - l_Cipher : TDCP_rijndael;  
244 - l_Data, l_Key, l_IV : string;  
245 -begin  
246 - Try  
247 - // Pad Key and IV with zeros as appropriate  
248 - l_Key := PadWithZeros(v_CipherKey,KeySize);  
249 - l_IV := PadWithZeros(v_IV,BlockSize);  
250 -  
251 - // Decode the Base64 encoded string  
252 - l_Data := Base64DecodeStr(p_Data);  
253 -  
254 - // Create the cipher and initialise according to the key length  
255 - l_Cipher := TDCP_rijndael.Create(nil);  
256 - if Length(v_CipherKey) <= 16 then  
257 - l_Cipher.Init(l_Key[1],128,@l_IV[1])  
258 - else if Length(v_CipherKey) <= 24 then  
259 - l_Cipher.Init(l_Key[1],192,@l_IV[1])  
260 - else  
261 - l_Cipher.Init(l_Key[1],256,@l_IV[1]);  
262 -  
263 - // Decrypt the data  
264 - l_Cipher.DecryptCBC(l_Data[1],l_Data[1],Length(l_Data));  
265 -  
266 - // Free the cipher and clear sensitive information  
267 - l_Cipher.Free;  
268 - FillChar(l_Key[1],Length(l_Key),0);  
269 -  
270 - // Return the result  
271 - Result := l_Data;  
272 - Except  
273 - End;  
274 -end;  
275 -  
276 Function CipherOpen(p_DatFileName : string) : TStrings; 155 Function CipherOpen(p_DatFileName : string) : TStrings;
277 var v_DatFile : TextFile; 156 var v_DatFile : TextFile;
278 v_strCipherOpened, 157 v_strCipherOpened,
@@ -296,14 +175,14 @@ begin @@ -296,14 +175,14 @@ begin
296 Readln(v_DatFile,v_strCipherClosed); 175 Readln(v_DatFile,v_strCipherClosed);
297 while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed); 176 while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);
298 CloseFile(v_DatFile); 177 CloseFile(v_DatFile);
299 - v_strCipherOpened:= DeCrypt(v_strCipherClosed); 178 + v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);
300 log_DEBUG('Rotina de Abertura do cacic2.dat RESTAURANDO estado da criptografia.'); 179 log_DEBUG('Rotina de Abertura do cacic2.dat RESTAURANDO estado da criptografia.');
301 end; 180 end;
302 181
303 if (trim(v_strCipherOpened)<>'') then 182 if (trim(v_strCipherOpened)<>'') then
304 - Result := explode(v_strCipherOpened,v_SeparatorKey) 183 + Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)
305 else 184 else
306 - Result := explode('Configs.ID_SO'+v_SeparatorKey+ oCacic.getWindowsStrId() +v_SeparatorKey+'Configs.Endereco_WS'+v_SeparatorKey+'/cacic2/ws/',v_SeparatorKey); 185 + Result := g_oCacic.explode('Configs.ID_SO'+g_oCacic.getSeparatorKey+ oCacic.getWindowsStrId() +g_oCacic.getSeparatorKey+'Configs.Endereco_WS'+g_oCacic.getSeparatorKey+'/cacic2/ws/',g_oCacic.getSeparatorkey);
307 186
308 187
309 if Result.Count mod 2 <> 0 then 188 if Result.Count mod 2 <> 0 then
@@ -311,7 +190,7 @@ begin @@ -311,7 +190,7 @@ begin
311 log_DEBUG('Vetor MemoryDAT com tamanho IMPAR... Ajustando.'); 190 log_DEBUG('Vetor MemoryDAT com tamanho IMPAR... Ajustando.');
312 Result.Add(''); 191 Result.Add('');
313 End; 192 End;
314 - 193 +
315 oCacic.Free(); 194 oCacic.Free();
316 end; 195 end;
317 196
@@ -346,120 +225,100 @@ begin @@ -346,120 +225,100 @@ begin
346 End; 225 End;
347 end; 226 end;
348 227
349 -const  
350 - CACIC_APP_NAME = 'ini_cols';  
351 -  
352 -var  
353 - oCacic : TCACIC;  
354 - 228 +var v_path_cacic : String;
355 begin 229 begin
356 - oCacic := TCACIC.Create(); 230 + g_oCacic := TCACIC.Create();
357 231
358 - if( not oCacic.isAppRunning( CACIC_APP_NAME ) ) then 232 + if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then
359 if (ParamCount>0) then // A passagem da chave EAS é mandatória... 233 if (ParamCount>0) then // A passagem da chave EAS é mandatória...
360 Begin 234 Begin
361 - For intAux := 1 to ParamCount do 235 + //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.dat
  236 + v_array_path_cacic := g_oCacic.explode(ExtractFilePath(ParamStr(0)),'\');
  237 + v_path_cacic := '';
  238 + For intAux := 0 to v_array_path_cacic.Count -2 do
  239 + v_path_cacic := v_path_cacic + v_array_path_cacic[intAux] + '\';
  240 +
  241 + g_oCacic.setCacicPath(v_path_cacic);
  242 + v_Debugs := false;
  243 + if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
362 Begin 244 Begin
363 - if LowerCase(Copy(ParamStr(intAux),1,13)) = '/p_cipherkey=' then  
364 - v_CipherKey := Trim(Copy(ParamStr(intAux),14,Length((ParamStr(intAux))))); 245 + if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
  246 + Begin
  247 + v_Debugs := true;
  248 + log_DEBUG('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
  249 + End;
365 End; 250 End;
366 251
367 - if (trim(v_CipherKey)<>'') then  
368 - Begin  
369 - //Pegarei o nível anterior do diretório, que deve ser, por exemplo \Cacic, para leitura do cacic2.dat  
370 - v_array_path_cacic := explode(ExtractFilePath(ParamStr(0)),'\');  
371 - p_path_cacic := '';  
372 - For intAux := 0 to v_array_path_cacic.Count -2 do  
373 - begin  
374 - p_path_cacic := p_path_cacic + v_array_path_cacic[intAux] + '\';  
375 - end;  
376 -  
377 - v_Debugs := false;  
378 - if DirectoryExists(p_path_cacic + 'Temp\Debugs') then 252 + // A existência e bloqueio do arquivo abaixo evitará que Cacic2.exe chame o Ger_Cols quando a coleta ainda estiver sendo efetuada
  253 + AssignFile(v_Aguarde,g_oCacic.getCacicPath + 'temp\aguarde_INI.txt'); {Associa o arquivo a uma variável do tipo TextFile}
  254 + {$IOChecks off}
  255 + Reset(v_Aguarde); {Abre o arquivo texto}
  256 + {$IOChecks on}
  257 + if (IOResult <> 0) then // Arquivo não existe, será recriado.
  258 + Rewrite (v_Aguarde);
  259 +
  260 + Append(v_Aguarde);
  261 + Writeln(v_Aguarde,'Apenas um pseudo-cookie para o Cacic2 esperar o término de Ini_Cols');
  262 + Append(v_Aguarde);
  263 +
  264 + Matar(g_oCacic.getCacicPath+'temp\','*.dat');
  265 + Try
  266 + // Caso exista o Gerente de Coletas será verificada a versão...
  267 + // Devido a problemas na rotina de FTP na versão 2.0.1.2,
  268 + // que impossibilitava atualização de versões de todos os componentes, exceto INI_COLS
  269 + If (FileExists(g_oCacic.getCacicPath + 'modulos\ger_cols.exe')) Then
379 Begin 270 Begin
380 - if (FormatDateTime('ddmmyyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then  
381 - Begin  
382 - v_Debugs := true;  
383 - log_DEBUG('Pasta "' + p_path_cacic + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(p_path_cacic + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');  
384 - End;  
385 - End;  
386 -  
387 - // A existência e bloqueio do arquivo abaixo evitará que Cacic2.exe chame o Ger_Cols quando a coleta ainda estiver sendo efetuada  
388 - AssignFile(v_Aguarde,p_path_cacic + 'temp\aguarde_INI.txt'); {Associa o arquivo a uma variável do tipo TextFile}  
389 - {$IOChecks off}  
390 - Reset(v_Aguarde); {Abre o arquivo texto}  
391 - {$IOChecks on}  
392 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
393 - Rewrite (v_Aguarde);  
394 -  
395 - Append(v_Aguarde);  
396 - Writeln(v_Aguarde,'Apenas um pseudo-cookie para o Cacic2 esperar o término de Ini_Cols');  
397 - Append(v_Aguarde);  
398 -  
399 - // A chave AES foi obtida no parâmetro p_CipherKey. Recomenda-se que cada empresa altere a sua chave.  
400 - v_IV := 'abcdefghijklmnop';  
401 - v_DatFileName := p_path_cacic + 'cacic2.dat';  
402 - v_SeparatorKey := '=CacicIsFree=';  
403 -  
404 - Matar(p_path_cacic+'temp\','*.dat');  
405 - Try  
406 - // Caso exista o Gerente de Coletas será verificada a versão...  
407 - // Devido a problemas na rotina de FTP na versão 2.0.1.2,  
408 - // que impossibilitava atualização de versões de todos os componentes, exceto INI_COLS  
409 - If (FileExists(p_path_cacic + 'modulos\ger_cols.exe')) Then  
410 - Begin  
411 - v_versao := trim(GetVersionInfo(p_path_cacic + 'modulos\ger_cols.exe'));  
412 - if (v_versao = '0.0.0.0') then // Provavelmente arquivo corrompido ou versão muito antiga  
413 - Begin  
414 - Matar(p_path_cacic+'modulos\','ger_cols.exe');  
415 - Sleep(5000); // Pausa 5 segundos para total exclusão de GER_COLS  
416 - CipherOpen(v_DatFileName);  
417 - v_te_senha_login_serv_updates := GetValorDatMemoria('Configs.te_senha_login_serv_updates');  
418 -  
419 - FTP(GetValorDatMemoria('Configs.te_serv_updates'),  
420 - GetValorDatMemoria('Configs.nu_porta_serv_updates'),  
421 - GetValorDatMemoria('Configs.nm_usuario_login_serv_updates'),  
422 - v_te_senha_login_serv_updates,  
423 - GetValorDatMemoria('Configs.te_path_serv_updates'),  
424 - 'ger_cols.exe',  
425 - p_path_cacic + 'modulos');  
426 -  
427 - // Pausa 5 segundos para total gravação de GER_COLS  
428 - Sleep(5000);  
429 -  
430 - End;  
431 - End;  
432 -  
433 - // Procuro pelo parâmetro p_ModulosOpcoes que deverá ter sido passado pelo Gerente de Coletas  
434 - // Contendo a formação: coletor1,wait#coletor2,nowait#coletorN,nowait#  
435 - // Observações:  
436 - // 1) Os valores "wait/nowait" determinam se o Inicializador de Coletas estará sujeito à tolerância de tempo para as coletas.  
437 - // 2) No caso de Coletor de Patrimônio, este depende de digitação e deverá trazer a opção "wait";  
438 - // 3) Ainda no caso de Coletor de Patrimônio, quando este for invocado através do menu, o Gerente de Coletas enviará a opção "user", ficando o parâmetro p_ModulosOpcoes = "col_patr,wait,user"  
439 - For intAux := 1 to ParamCount do 271 + v_versao := trim(GetVersionInfo(g_oCacic.getCacicPath + 'modulos\ger_cols.exe'));
  272 + if (v_versao = '0.0.0.0') then // Provavelmente arquivo corrompido ou versão muito antiga
440 Begin 273 Begin
441 - if LowerCase(Copy(ParamStr(intAux),1,17)) = '/p_modulosopcoes=' then  
442 - v_ModulosOpcoes := Trim(Copy(ParamStr(intAux),18,Length((ParamStr(intAux)))));  
443 - End;  
444 -  
445 - log_DEBUG('Parâmetro p_ModulosOpcoes recebido: '+v_ModulosOpcoes);  
446 - v_tstrModulosOpcoes := explode(v_ModulosOpcoes,'#');  
447 -  
448 - // Tempo de tolerância para as coletas  
449 - v_Tolerancia := 5; // (minutos)  
450 -  
451 - For intAux := 0 to v_tstrModulosOpcoes.Count -1 do  
452 - Begin  
453 - v_tstrModuloOpcao := explode(v_tstrModulosOpcoes[intAux],',');  
454 - v_Aux := v_tstrModuloOpcao[0]+'.exe /p_CipherKey='+v_CipherKey+ ' /p_Option='+v_tstrModuloOpcao[2];  
455 - log_DEBUG('Chamando "' + v_tstrModuloOpcao[0]+'.exe /p_CipherKey=*****" /p_Option='+v_tstrModuloOpcao[2]);  
456 -  
457 - oCacic.createSampleProcess( p_path_cacic + '\modulos\' + v_aux, CACIC_PROCESS_WAIT ); 274 + Matar(g_oCacic.getCacicPath+'modulos\','ger_cols.exe');
  275 + Sleep(5000); // Pausa 5 segundos para total exclusão de GER_COLS
  276 + CipherOpen(g_oCacic.getDatFileName);
  277 + v_te_senha_login_serv_updates := GetValorDatMemoria('Configs.te_senha_login_serv_updates');
  278 +
  279 + FTP(GetValorDatMemoria('Configs.te_serv_updates'),
  280 + GetValorDatMemoria('Configs.nu_porta_serv_updates'),
  281 + GetValorDatMemoria('Configs.nm_usuario_login_serv_updates'),
  282 + v_te_senha_login_serv_updates,
  283 + GetValorDatMemoria('Configs.te_path_serv_updates'),
  284 + 'ger_cols.exe',
  285 + g_oCacic.getCacicPath + 'modulos');
  286 +
  287 + // Pausa 5 segundos para total gravação de GER_COLS
  288 + Sleep(5000);
458 289
459 End; 290 End;
460 - except  
461 - end;  
462 - End; 291 + End;
  292 +
  293 + // Procuro pelo parâmetro p_ModulosOpcoes que deverá ter sido passado pelo Gerente de Coletas
  294 + // Contendo a formação: coletor1,wait#coletor2,nowait#coletorN,nowait#
  295 + // Observações:
  296 + // 1) Os valores "wait/nowait" determinam se o Inicializador de Coletas estará sujeito à tolerância de tempo para as coletas.
  297 + // 2) No caso de Coletor de Patrimônio, este depende de digitação e deverá trazer a opção "wait";
  298 + // 3) Ainda no caso de Coletor de Patrimônio, quando este for invocado através do menu, o Gerente de Coletas enviará a opção "user", ficando o parâmetro p_ModulosOpcoes = "col_patr,wait,user"
  299 + For intAux := 1 to ParamCount do
  300 + Begin
  301 + if LowerCase(Copy(ParamStr(intAux),1,17)) = '/p_modulosopcoes=' then
  302 + v_ModulosOpcoes := Trim(Copy(ParamStr(intAux),18,Length((ParamStr(intAux)))));
  303 + End;
  304 +
  305 + log_DEBUG('Parâmetro p_ModulosOpcoes recebido: '+v_ModulosOpcoes);
  306 + v_tstrModulosOpcoes := g_oCacic.explode(v_ModulosOpcoes,'#');
  307 +
  308 + // Tempo de tolerância para as coletas
  309 + v_Tolerancia := 5; // (minutos)
  310 +
  311 + For intAux := 0 to v_tstrModulosOpcoes.Count -1 do
  312 + Begin
  313 + v_tstrModuloOpcao := g_oCacic.explode(v_tstrModulosOpcoes[intAux],',');
  314 + v_Aux := v_tstrModuloOpcao[0]+'.exe /p_Option='+v_tstrModuloOpcao[2];
  315 + log_DEBUG('Chamando "' + v_tstrModuloOpcao[0]+'.exe " /p_Option='+v_tstrModuloOpcao[2]);
  316 +
  317 + g_oCacic.createSampleProcess( g_oCacic.getCacicPath + '\modulos\' + v_aux, CACIC_PROCESS_WAIT );
  318 +
  319 + End;
  320 + except
  321 + end;
463 End; 322 End;
464 - oCacic.Free(); 323 + g_oCacic.Free();
465 end. 324 end.