Muchos amigos han usado iphunter escrito por Dugu Swordsman. Utiliza el principio de publicar imágenes en una sala de chat para encontrar la IP de la otra parte. De hecho, no es solo una sala de chat, siempre que alguien acceda a su máquina. puede capturar su IP, e incluso el nombre del host, este principio también se usa en el software Deer Hunter de Lao Yao. Es fácil de implementar en Delphi. Ahora usamos Delphi para crear un software exactamente igual a IPhunter. Algunas personas dicen que los programadores de hoy se han convertido en trabajadores de ensamblaje, lo que en realidad tiene sentido. Se puede lograr usando módulos de control + una pequeña cantidad de código. Delphi 5.0 proporciona un rico conjunto de controles de Internet, y el problema se puede resolver usando TCP. /IP cliente-servidor. El control clave es ServerSocket. Imitamos la interfaz de IPhunter y usamos un botón1 (botón) y un cuadro combinado1 (para visualización). Estos tres controles más básicos se colocan en el formulario en blanco y puede comenzar a escribir código. En primer lugar, este combobox1 debe poder mostrar múltiples IP. Configuramos una variable y para acumular combobox1.items[y], var y:integer. Nuestra idea es la siguiente: cuando el puerto (puerto) recibe la actividad ServerSocket; una dirección IP basada en el protocolo TCP/IP. Al solicitar un enlace, el valor IP de la otra parte se devuelve y se pasa al cuadro combinado para su visualización. Button1 controla la activación de ServerSocket, lo que significa abrir y cerrar el puerto. Agregamos el código PRocedure TForm1.ServerSocket11ClientConnect(Sender: TObject; Socket: TCustomWinSocket); start combobox1.Items.Insert(y,');//Agregamos un registro vacío combobox1.Items[y]: =socket.RemoteAddress;// Obtener la IP de la otra parte label1.Text:='Captured in total'+inttostr(y+1)+'IPs';//Utilice una etiqueta para mostrar el número total de IP capturadas y:=y+1;//Aumente la variable de recuento en 1 socket.Close ; end; Ahora, establezca el atributo de título del botón1 en 'Inicio' y agregue el siguiente código a su procedimiento de evento de clic TForm1.SpeedButton7Click(Sender: TObject start if); speedbutton7.Caption='Iniciar' y luego comience serversocket11.Port:=80;//Esta oración se puede configurar en las propiedades de serversocket para capturar la conexión del navegador ServerSocket11.Active:=true;//Activar el puerto speedbutton7.Caption:=' Stop'; fin si no comenzar serversocket11.Active:=false;//Cerrar el puerto speedbutton7.Caption:='Start'; combobox1.Clear;//Finalizar captura y borrar información histórica y:=0;//Restablecer variable de conteo end; Ahora básicamente se puede usar un IPhunter. Este es solo un prototipo muy simple. Con su propia interfaz cuidadosamente diseñada, se convierte en una herramienta de piratería de red. Esta función también está integrada en Deer Hunter. Lo que se menciona aquí es solo el ServerSocket más básico. Son solo algunas funciones. Con la adición de ClientSocket, puede crear una herramienta de chat. Usando solo ClientSocket, puede crear un software de escaneo como Agent Hunter. Estas se presentarán en futuros artículos. La próxima vez anunciaré cómo usar Delphi para crear herramientas OICQ, información anónima, verificación de IP, bombas de información, etc.