Banyak teman yang menggunakan ihunter yang ditulis oleh Dugu Swordsman, yang menggunakan prinsip memposting gambar di ruang obrolan untuk menemukan IP pihak lain dapat menangkap IP-nya, dan bahkan nama Host, prinsip ini juga digunakan dalam perangkat lunak Deer Hunter milik Lao Yao. Sangat mudah untuk diterapkan di Delphi. Sekarang kami menggunakan Delphi untuk membuat perangkat lunak yang persis sama dengan IPhunter. Beberapa orang mengatakan bahwa programmer saat ini telah menjadi pekerja perakitan, yang sebenarnya masuk akal. Hal ini dapat dicapai dengan menggunakan modul kontrol + sejumlah kecil kode Delphi 5.0 menyediakan serangkaian kontrol Internet, dan masalahnya dapat diselesaikan dengan menggunakan TCP /IP klien-server. Kontrol kuncinya adalah ServerSocket. Kami meniru antarmuka IPhunter dan menggunakan button1 (tombol) dan combobox1 (untuk tampilan). Ketiga kontrol paling dasar ini ditempatkan pada formulir kosong dan Anda dapat mulai menulis kode. Pertama-tama, combobox1 ini harus dapat menampilkan beberapa IP. Kami menetapkan variabel y untuk mengakumulasi combobox1.items[y], var y:integer; Ide kami adalah sebagai berikut, ketika port (port) dari aktivitas ServerSocket menerima alamat IP berdasarkan protokol TCP/IP Saat meminta tautan, nilai IP pihak lain dikembalikan dan diteruskan ke kotak kombo untuk ditampilkan. Button1 mengontrol aktivasi ServerSocket, yang berarti membuka dan menutup port. Kita menambahkan kode PROcedure TForm1.ServerSocket11ClientConnect(Sender: TObject; Socket: TCustomWinSocket); mulai combobox1.Items.Insert(y,');//Tambahkan catatan kosong combobox1.Items[y]: =socket.RemoteAddress;// Dapatkan IP pihak lain label1.Teks:='Ditangkap secara total'+inttostr(y+1)+'IP';//Gunakan label untuk menampilkan jumlah total IP yang ditangkap y:=y+1;//Tambahkan variabel jumlah sebanyak 1 socket.Close ; end; Sekarang, atur atribut keterangan button1 ke 'Start', dan tambahkan kode berikut ke prosedur acara kliknya TForm1.SpeedButton7Click(Sender: TObject start if speedbutton7.Caption='Mulai' lalu mulai serverocket11.Port:=80;//Kalimat ini dapat diatur di properti serverocket untuk menangkap koneksi browser ServerSocket11.Active:=true;//Aktifkan port speedbutton7.Caption:=' Stop'; akhiri lagi mulai serverocket11.Active:=false;//Tutup port speedbutton7.Caption:='Start'; combobox1.Hapus;//Akhiri pengambilan dan hapus informasi historis y:=0;//Setel ulang akhir variabel penghitungan; Sekarang IPhunter pada dasarnya dapat digunakan. Ini hanyalah prototipe yang sangat sederhana. Dengan antarmuka Anda sendiri yang dibuat dengan cermat, ini menjadi alat peretasan jaringan. Fungsi ini juga terintegrasi ke dalam Deer Hunter. Itu hanya beberapa fungsi. Dengan tambahan ClientSocket, Anda dapat membuat alat obrolan. Hanya dengan menggunakan ClientSocket, Anda dapat membuat perangkat lunak pemindaian seperti Agen Hunter. Ini akan diperkenalkan di artikel Lao Yao selanjutnya. Lain kali saya akan mengumumkan cara menggunakan Delphi untuk membuat alat OICQ, informasi anonim, pemeriksaan IP, bom informasi, dll....