Многие друзья использовали iphunter, написанный Дугу Мечником. Он использует принцип публикации изображений в чате, чтобы найти IP-адрес другой стороны. На самом деле, это не просто чат, пока кто-то получает доступ к вашей машине. может захватить его IP и даже имя хоста, этот принцип также используется в программном обеспечении Deer Hunter. Его легко реализовать в Delphi. Теперь мы используем Delphi, чтобы создать программное обеспечение, точно такое же, как Iphunter. Некоторые говорят, что сегодняшние программисты стали сборщиками, что на самом деле имеет смысл. Этого можно достичь, используя модули управления + небольшой объем кода. Delphi 5.0 предоставляет богатый набор элементов управления через Интернет, а проблему можно решить с помощью TCP. /IP клиент-сервер. Ключевой элемент управления — ServerSocket. Мы имитируем интерфейс IPHunter и используем кнопку1 (кнопку) и поле со списком1 (для отображения). Эти три самых основных элемента управления размещаются на пустой форме, и вы можете приступить к написанию кода. Прежде всего, этот комбобокс1 должен иметь возможность отображать несколько IP-адресов. Мы устанавливаем переменную y для накопления комбобокс1.items[y], var y:integer; Наша идея заключается в следующем, когда порт (порт) получает активность ServerSocket. IP-адрес на основе протокола TCP/IP. При запросе ссылки значение IP другой стороны возвращается и передается в поле со списком для отображения. Button1 управляет активацией ServerSocket, что означает открытие и закрытие порта. Добавляем код PROcedure TForm1.ServerSocket11ClientConnect(Sender: TObject; Socket: TCustomWinSocket); start combobox1.Items.Insert(y,');//Добавляем пустую запись combobox1.Items[y]: =socket.RemoteAddress;// Получить IP-адрес другой стороны label1.Text:='Захвачено всего'+inttostr(y+1)+'IPs';//Используем метку для отображения общего количества захваченных IP-адресов y:=y+1;//Увеличиваем переменную count на 1 ocket.Close ; end; Теперь установите для атрибута button1 значение «Start» и добавьте следующий код в процедуру события нажатия TForm1.SpeedButton7Click(Sender: TObject Begin); Speedbutton7.Caption='Start', затем начать serversocket11.Port:=80;//Это предложение можно установить в свойствах serverocket для захвата соединения браузера ServerSocket11.Active:=true;//Активировать портspeedbutton7.Caption:=' Stop'; end else Begin serversocket11.Active:=false;//Закрываем порт Speedbutton7.Caption:='Start'; combobox1.Clear;//Завершить сбор и очистить историческую информацию y:=0;//Сбросить счетную переменную end; Теперь можно использовать Iphunter. Это всего лишь очень простой прототип. С вашим собственным тщательно продуманным интерфейсом он становится инструментом взлома сети. Эта функция также интегрирована в Deer Hunter. Здесь упоминается только самый простой ServerSocket. Это всего лишь несколько функций. С добавлением ClientSocket вы можете создать инструмент для чата. Используя только ClientSocket, вы можете создать программное обеспечение для сканирования, такое как Agent Hunter. Они будут представлены в будущих статьях Лао Яо. В следующий раз я объявлю, как использовать Delphi для создания инструментов OICQ, анонимной информации, проверки IP, информационных бомб и т. д.