[delphi-br] Sniffer SQL com ODAC 6.25 p/ Oracle 10g
Bom dia a todos... Tenho, em minhas aplicações, uma classe que gerencia minhas conexões com o Oracle em runtime utilizando o ODAC. Nesta classe, são instanciados, também em runtime, objetos TOraStoredProc para as interações com o BD. Minha necessidade é a seguinte: preciso criar um sniffer SQL que monitore, à partir do SID do usuário, todas as instruções passadas ao BD, mesmo em PL/SQL. Como uso ODAC, e o suporte da Devart deixa muito a desejar, não consegui nada, nem deles (Devart), nem da internet, que me ajudasse. Enfim, minha necessidade é algo muito parecido com o SQL Trace, usado para monitorar o SQL Server. Alguém sabe como resolver isto utilizando o ODAC ou conhece algum componente que faça esta operação? Em tempo: este monitoramento não será realizado nas aplicações distribuídas aos usuários, mas na aplicação que gerencia as atualizações destas aplicações, sendo que apenas a equipe de desenvolvimento poderá utilizá-la. Utilizo Delphi 7, ODAC 6.25, Oracle 10g e Oracle Client 9.0. --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom ---
RES: [delphi-br] Sniffer!
Thiago,
acho que vai te ajudar :
Delphi 7 - paleta Internet - TcpClient
TcpClientTeste.RemoteHost := Edit1.Text; // número IP ou hostname a
ser testado
TcpClientTeste.RemotePort := Edit2.Text; // número da porta a ser
testada
TcpClientTeste.Active := True; // tenta abrir a
conexão
if TcpClientTeste.Connect then
begin
ShowMessage('porta aberta');
TcpClientTeste.disconnect
end
else
ShowMessage('porta fechada');
Detalhe : demora uns 2 a 3 segundos quando está fechada.
Madsom.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Thiago Teixeira
Enviada em: quinta-feira, 18 de janeiro de 2007 08:42
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Sniffer!
Vlw!
vou desenvolver essas func. aki!!!
[]'s
2007/1/17, Andre Mesquita [EMAIL PROTECTED]:
Fiz uma função que pode resolver seu problema... é claro que do
jeito que ela está vai demorar um bom tempo. Agora vc tem duas
tarefas: a primeira é desenvolver um função que faça o ping e te
retorne se o computador respondeu ou não, e a outra é otimizar esse
código e depois disponibilizá-lo para os nobres colegas da lista.
Como escrevi essa msg no cliente de e-mail, não testei.
Ahh, a função te retorna quais são os computadores ativos. Você tem
uma terceira tarefa: escutar a porta desejada.
[ ]'s,
Andre
function listaComputadoresAtivos : TStringList;
var
i,j,k,l : Integer;
sl : TStringList;
begin
sl := TStringList.Create;
for i := 1 to 254 do
for j := 1 to 254 do
for k := 1 to 254 do
for l := 1 to 254 do
begin
ip := IntToStr(i)+'.'+IntToStr(j)+'.'+IntToStr(k)+'.'+IntToStr(l);
if ping(ip) then
sl.add(ip);
// end if
end;
Result := sl;
end;
2007/1/17, Thiago Teixeira
[EMAIL PROTECTED]thiagoateixeira%40gmail.com:
Bom dia,
Pessoa preciso fazer um sniffer em delphi, mas para a seguinte
funcionalidade, em uma rede, preciso encontrar o servidor, não sei o
ip
dele, mas sei a porta, então vou varrer a rede e procurar um servidor
com
uma determinada porta.
Alguém pode me dar alguma informação de como vou fazer isso?
mto obriga!
--
Atenciosamente
Thiago Alves Teixeira
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
Atenciosamente
Thiago Alves Teixeira
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.410 / Virus Database: 268.17.0/639 - Release Date: 18/01/2007
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sniffer!
Só adicionando meu parecer. Esta função pode funcionar, desde que o servidor pemita o acesso ao ping. Aqui onde trabalho, meus servidores são Linux, e em TODOS eles eu bloqueio acesso ao ping. Conclusão. Neste caso. Você vair ter que procurar outra saída. Pedro V Rossi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sniffer!
Vlw! vou desenvolver essas func. aki!!! []'s 2007/1/17, Andre Mesquita [EMAIL PROTECTED]: Fiz uma função que pode resolver seu problema... é claro que do jeito que ela está vai demorar um bom tempo. Agora vc tem duas tarefas: a primeira é desenvolver um função que faça o ping e te retorne se o computador respondeu ou não, e a outra é otimizar esse código e depois disponibilizá-lo para os nobres colegas da lista. Como escrevi essa msg no cliente de e-mail, não testei. Ahh, a função te retorna quais são os computadores ativos. Você tem uma terceira tarefa: escutar a porta desejada. [ ]'s, Andre function listaComputadoresAtivos : TStringList; var i,j,k,l : Integer; sl : TStringList; begin sl := TStringList.Create; for i := 1 to 254 do for j := 1 to 254 do for k := 1 to 254 do for l := 1 to 254 do begin ip := IntToStr(i)+'.'+IntToStr(j)+'.'+IntToStr(k)+'.'+IntToStr(l); if ping(ip) then sl.add(ip); // end if end; Result := sl; end; 2007/1/17, Thiago Teixeira [EMAIL PROTECTED]thiagoateixeira%40gmail.com: Bom dia, Pessoa preciso fazer um sniffer em delphi, mas para a seguinte funcionalidade, em uma rede, preciso encontrar o servidor, não sei o ip dele, mas sei a porta, então vou varrer a rede e procurar um servidor com uma determinada porta. Alguém pode me dar alguma informação de como vou fazer isso? mto obriga! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sniffer!
Bom dia, Pessoa preciso fazer um sniffer em delphi, mas para a seguinte funcionalidade, em uma rede, preciso encontrar o servidor, não sei o ip dele, mas sei a porta, então vou varrer a rede e procurar um servidor com uma determinada porta. Alguém pode me dar alguma informação de como vou fazer isso? mto obriga! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sniffer!
Fiz uma função que pode resolver seu problema... é claro que do jeito que ela está vai demorar um bom tempo. Agora vc tem duas tarefas: a primeira é desenvolver um função que faça o ping e te retorne se o computador respondeu ou não, e a outra é otimizar esse código e depois disponibilizá-lo para os nobres colegas da lista. Como escrevi essa msg no cliente de e-mail, não testei. Ahh, a função te retorna quais são os computadores ativos. Você tem uma terceira tarefa: escutar a porta desejada. [ ]'s, Andre function listaComputadoresAtivos : TStringList; var i,j,k,l : Integer; sl : TStringList; begin sl := TStringList.Create; for i := 1 to 254 do for j := 1 to 254 do for k := 1 to 254 do for l := 1 to 254 do begin ip := IntToStr(i)+'.'+IntToStr(j)+'.'+IntToStr(k)+'.'+IntToStr(l); if ping(ip) then sl.add(ip); // end if end; Result := sl; end; 2007/1/17, Thiago Teixeira [EMAIL PROTECTED]: Bom dia, Pessoa preciso fazer um sniffer em delphi, mas para a seguinte funcionalidade, em uma rede, preciso encontrar o servidor, não sei o ip dele, mas sei a porta, então vou varrer a rede e procurar um servidor com uma determinada porta. Alguém pode me dar alguma informação de como vou fazer isso? mto obriga! -- Atenciosamente Thiago Alves Teixeira [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
