Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-10-2018
ElChicoNuevo ElChicoNuevo is offline
Registrado
NULL
 
Registrado: oct 2018
Posts: 5
Poder: 0
ElChicoNuevo Va por buen camino
Port Knocking

Hola a todos,

Me estreno con mi primer post con una consultita. Hace AÑOS ya hice algunas cositas en delphi (v3 de hecho) pero la vida me llevó por otros caminos y abandoné la programación. Ahora, a modo de pasatiempo, he retomado y me he propuesto hacer un software para una necesidad muy concreta que tengo: hacer port knoking a firewals que administro.

En esencia, la técnica de Port Knock consiste en "tocar" determinados puertos de un router, en una secuencia concreta. El router previamente configurado para ello, permite entonces el acceso administrativo. Esos "toques" pueden ser en TCP o UDP... pero para no hacerlo más largo, quizás os interese buscar en Wikipedia Port knoking o Golpeo de puertos.

Pues bien, resulta que no he encontrado una aplicación que me permita almacenar un listado de routers (IP/Puertos/Protocolo) y he decidido hacérmelo yo mismo (ya... ambicioso para empezar.)


El problema inicial con el que me encuentro es con el propio golpeo de puertos. Lo consigo fácilmente con IdTCPClient y de hecho, veo el intento de conexión en el router (eso es correcto), pero al tocar el puerto (IdTCPClient1.Connect;) y no haber respuesta, me encuentro con un "socket error, connection refused" porque, obviamente, el router no contesta al intento de conexión (es así).

Lo lindo del asunto es que todo funciona, pero me gustaría saber cómo controlar ese error para no mostrarlo y quede todo más bonito.

Por otro lado, si hay una forma más elegante de hacerlo y que no contemple el uso de IdTCPClient, estoy abierto a sugerencias.


Paciencia conmigo... estoy re-aprendiendo :-D
Responder Con Cita
  #2  
Antiguo 27-10-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Lee sobre try except.
Página 229 de La cara oculta de delphi
Responder Con Cita
  #3  
Antiguo 28-10-2018
ElChicoNuevo ElChicoNuevo is offline
Registrado
NULL
 
Registrado: oct 2018
Posts: 5
Poder: 0
ElChicoNuevo Va por buen camino
Smile

Muchas gracias @Casimiro!
Responder Con Cita
  #4  
Antiguo 28-10-2018
ElChicoNuevo ElChicoNuevo is offline
Registrado
NULL
 
Registrado: oct 2018
Posts: 5
Poder: 0
ElChicoNuevo Va por buen camino
Thumbs up

Tan sólo confirmarte que tengo el error dominado y puedo seguir avanzando. Nuevamente ¡GRACIAS!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Port Forward no me funciona winzo Varios 0 09-03-2014 07:59:39
Obtener puerto com de un USB serial port alquimista API de Windows 1 23-02-2010 14:11:05
Error 'Illegal PORT Command' marilinspi Internet 1 22-01-2010 14:09:23
Serial Port JoseFco Varios 46 22-03-2008 03:38:49
Busco ordenador o portátil Arcioneo Varios 2 18-07-2006 14:49:32


La franja horaria es GMT +2. Ahora son las 14:59:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi