Muitos amigos usaram o iphunter escrito por Dugu Swordsman. Ele usa o princípio de postar fotos em uma sala de chat para encontrar o IP da outra parte. pode capturar seu IP e até mesmo o nome do host, este princípio também é usado no software Deer Hunter de Lao Yao. É fácil de implementar no Delphi. Agora usamos o Delphi para fazer um software exatamente igual ao IPhunter. Algumas pessoas dizem que os programadores de hoje se tornaram trabalhadores de montagem, o que realmente faz sentido. Isso pode ser alcançado usando módulos de controle + uma pequena quantidade de código. O Delphi 5.0 fornece um rico conjunto de controles da Internet e o problema pode ser resolvido usando TCP. /IP cliente-servidor. O controle chave é ServerSocket. Imitamos a interface do IPhunter e usamos um button1 (botão) e um combobox1 (para exibição). Esses três controles mais básicos são colocados no formulário em branco e você pode começar a escrever o código. Em primeiro lugar, este combobox1 deve ser capaz de exibir vários IPs. Definimos uma variável y para acumular combobox1.items[y], var y:integer Nossa ideia é a seguinte, quando a porta (porta) da atividade ServerSocket recebe. um endereço IP baseado no protocolo TCP/IP Ao solicitar um link, o valor IP da outra parte é retornado e passado para a caixa de combinação para exibição. Button1 controla a ativação do ServerSocket, o que significa abrir e fechar a porta. Adicionamos o código PRocedure TForm1.ServerSocket11ClientConnect(Sender: TObject; Socket: TCustomWinSocket); Obtenha o IP da outra parte label1.Text:='Capturados no total'+inttostr(y+1)+'IPs';//Use um rótulo para exibir o número total de IPs capturados y:=y+1;//Aumenta a variável de contagem em 1 socket.Close ; end Agora, defina o atributo caption do button1 como 'Start' e adicione o seguinte código ao seu procedimento de evento de clique TForm1.SpeedButton7Click(Sender: TObject); speedbutton7.Caption='Iniciar' então começar serverocket11.Port:=80;//Esta frase pode ser definida nas propriedades do serverocket para capturar a conexão do navegador ServerSocket11.Active:=true;//Ativar a porta speedbutton7.Caption:=' Stop'; end else start serverocket11.Active:=false;//Fecha a porta speedbutton7.Caption:='Start'; combobox1.Clear;//Termina a captura e limpa as informações históricas y:=0;//Reinicia a variável de contagem end; Agora, um IPhunter pode basicamente ser usado. Este é apenas um protótipo muito simples. Com sua própria interface cuidadosamente elaborada, ele se torna uma ferramenta de hacking de rede. Esta função também está integrada ao Deer Hunter. São apenas algumas funções. Com a adição do ClientSocket, você pode criar uma ferramenta de bate-papo. Usando apenas o ClientSocket, você pode criar um software de digitalização como o Agent Hunter. Na próxima vez, anunciarei como usar Delphi para criar ferramentas OICQ, informações anônimas, verificação de IP, bombas de informação, etc.....