De nombreux amis ont utilisé iphunter écrit par Dugu Swordsman. Il utilise le principe de publier des photos dans une salle de discussion pour trouver l'adresse IP de l'autre partie. En fait, ce n'est pas seulement une salle de discussion. Tant que quelqu'un accède à votre machine, vous. peut capturer son IP, et même son nom d'hôte, ce principe est également utilisé dans le logiciel Deer Hunter de Lao Yao. Il est facile à implémenter dans Delphi. Nous utilisons désormais Delphi pour créer un logiciel exactement identique à IPhunter. Certaines personnes disent que les programmeurs d'aujourd'hui sont devenus des assembleurs, ce qui est en fait logique. Cela peut être réalisé en utilisant des modules de contrôle + une petite quantité de code. Delphi 5.0 fournit un riche ensemble de contrôles Internet, et le problème peut être résolu en utilisant TCP. /IP client-serveur. Le contrôle clé est ServerSocket. Nous imitons l'interface d'IPhunter et utilisons un bouton1 (bouton) et une combobox1 (pour l'affichage). Ces trois contrôles les plus basiques sont placés sur le formulaire vierge et vous pouvez commencer à écrire du code. Tout d'abord, cette combobox1 doit pouvoir afficher plusieurs IP. Nous définissons une variable y pour accumuler combobox1.items[y], var y:integer; Notre idée est la suivante, lorsque le port (port) de l'activité ServerSocket reçoit. une adresse IP basée sur le protocole TCP/IP Lors d'une demande de lien, la valeur IP de l'autre partie est renvoyée et transmise à la combobox pour affichage. Button1 contrôle l'activation de ServerSocket, ce qui signifie l'ouverture et la fermeture du port. Nous ajoutons le code PRocedure TForm1.ServerSocket11ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin combobox1.Items.Insert(y,');//Ajouter un enregistrement vide combobox1.Items[y]: =socket.RemoteAddress;// Obtenez l'adresse IP de l'autre partie label1.Text:='Capturé au total'+inttostr(y+1)+'IPs';//Utiliser une étiquette pour afficher le nombre total d'IP capturées y:=y+1;//Augmenter la variable count de 1 socket.Close ; end; Maintenant, définissez l'attribut caption de bouton1 sur 'Start' et ajoutez le code suivant à sa procédure d'événement de clic TForm1.SpeedButton7Click(Sender: TObject start if); speedbutton7.Caption='Start' puis commencezserversocket11.Port:=80;//Cette phrase peut être définie dans les propriétés deserversocket pour capturer la connexion du navigateur ServerSocket11.Active:=true;//Activer le port speedbutton7.Caption:=' Stop'; end else startserversocket11.Active:=false;//Fermez le port speedbutton7.Caption:='Start'; combobox1.Clear;//Fin de la capture et effacement des informations historiques y:=0;//Réinitialisation de la fin de la variable de comptage ; Maintenant, un IPhunter peut être utilisé. Ce n'est qu'un prototype très simple. Avec votre propre interface soigneusement conçue, il devient un outil de piratage de réseau. Cette fonction est également intégrée à Deer Hunter. Ce qui est mentionné ici n'est que le ServerSocket le plus basique. Ce ne sont que quelques fonctions. Avec l'ajout de ClientSocket, vous pouvez créer un outil de discussion en utilisant uniquement ClientSocket, vous pouvez créer un logiciel d'analyse comme Agent Hunter. Celles-ci seront présentées dans les futurs articles de Lao Yao. La prochaine fois, j'annoncerai comment utiliser Delphi pour créer des outils OICQ, des informations anonymes, des vérifications IP, des bombes d'informations, etc.....