많은 친구들이 Dugu Swordsman이 작성한 iphunter를 사용했습니다. 이는 상대방의 IP를 찾기 위해 채팅방에 사진을 게시하는 원리를 사용합니다. 실제로 누군가가 귀하의 컴퓨터에 액세스하는 한 귀하는 채팅방이 아닙니다. IP를 캡처할 수 있으며 심지어 호스트 이름까지 이 원칙은 Lao Yao의 소프트웨어 Deer Hunter에도 사용됩니다. 이제 Delphi를 사용하여 IPhunter와 완전히 동일한 소프트웨어를 만듭니다. 어떤 사람들은 오늘날의 프로그래머가 조립 작업자가 되었다고 말합니다. 이는 실제로 제어 모듈과 적은 양의 코드를 사용하여 달성할 수 있으며, Delphi 5.0은 풍부한 인터넷 제어 세트를 제공하며 TCP를 사용하여 문제를 해결할 수 있습니다. /IP 클라이언트-서버. 핵심 컨트롤은 ServerSocket입니다. IPhunter의 인터페이스를 모방하고 버튼1(버튼)과 콤보박스1(표시용)을 사용합니다. 이 세 가지 가장 기본적인 컨트롤은 빈 폼에 배치되며 코드 작성을 시작할 수 있습니다. 우선, 이 콤보박스1은 여러 개의 IP를 표시할 수 있어야 합니다. 우리는 콤보박스1.items[y], var y:integer;를 누적하기 위해 변수 y를 설정했습니다. TCP/IP 프로토콜 기반의 IP 주소 링크를 요청하면 상대방의 IP 값이 반환되어 콤보박스에 전달되어 표시됩니다. Button1은 포트 열기 및 닫기를 의미하는 ServerSocket의 활성화를 제어합니다. 코드 PRocedure TForm1.ServerSocket11ClientConnect(Sender: TObject; Socket: TCustomWinSocket); start 콤보box1.Items.Insert(y,');//빈 레코드 추가 콤보box1.Items[y]: =socket.RemoteAddress;// 상대방의 IP를 알아내세요 label1.Text:='전체에서 캡처됨'+inttostr(y+1)+'IPs';//레이블을 사용하여 캡처된 총 IP 수를 표시합니다. y:=y+1;//count 변수를 1씩 늘립니다. 소켓.Close ; 이제, 버튼1의 캡션 속성을 'Start'로 설정하고 클릭 이벤트 프로시저 TForm1.SpeedButton7Click(Sender: TObject)에 다음 코드를 추가합니다. speedbutton7.Caption='시작' 후 시작 serverocket11.Port:=80;//이 문장은 서버 소켓 속성에서 설정하여 브라우저 연결을 캡처할 수 있습니다. ServerSocket11.Active:=true;//포트 활성화 speedbutton7.Caption:=' 중지'; end else start serverocket11.Active:=false;//포트 닫기speedbutton7.Caption:='Start'; 콤보박스1.Clear;//캡처 종료 및 기록 정보 지우기 y:=0;//카운팅 변수 재설정 end; 이제 IPhunter를 기본적으로 사용할 수 있습니다. 이것은 매우 간단한 프로토타입에 불과합니다. 자신이 정교하게 제작한 인터페이스를 사용하면 이 기능도 Deer Hunter에 통합됩니다. 몇 가지 기능만 추가하면 채팅 도구를 만들 수 있습니다. ClientSocket만 사용하면 Agent Hunter와 같은 스캔 소프트웨어를 만들 수 있습니다. 다음번에는 델파이를 사용하여 OICQ 도구, 익명 정보, IP 확인, 정보 폭탄 등을 만드는 방법을 알려드리겠습니다....