Viele Freunde haben das von Dugu Swordsman geschriebene Prinzip verwendet, Bilder in einem Chatroom zu veröffentlichen. Tatsächlich handelt es sich nicht nur um einen Chatroom, sondern um Sie kann seine IP und sogar seinen Hostnamen erfassen, dieses Prinzip wird auch in Lao Yaos Software Deer Hunter verwendet. Es ist einfach in Delphi zu implementieren. Jetzt verwenden wir Delphi, um eine Software zu erstellen, die genau der von IPhunter entspricht. Einige Leute sagen, dass die heutigen Programmierer zu Montagearbeitern geworden sind. Dies kann durch die Verwendung von Steuermodulen + einer kleinen Menge Code erreicht werden, und das Problem kann durch die Verwendung von TCP gelöst werden /IP Client-Server. Das Schlüsselsteuerelement ist ServerSocket. Wir imitieren die Schnittstelle von IPhunter und verwenden eine Schaltfläche1 (Schaltfläche) und eine Combobox1 (zur Anzeige). Diese drei grundlegendsten Steuerelemente werden auf dem leeren Formular platziert und Sie können mit dem Schreiben von Code beginnen. Zunächst muss diese Combobox1 mehrere IPs anzeigen können. Wir setzen eine Variable y, um Combobox1.items[y], var y:integer; zu sammeln. Unsere Idee ist wie folgt, wenn der Port (Port) der ServerSocket-Aktivität empfangen wird eine IP-Adresse basierend auf dem TCP/IP-Protokoll. Bei der Anforderung eines Links wird der IP-Wert der anderen Partei zurückgegeben und zur Anzeige an die Combobox übergeben. Button1 steuert die Aktivierung von ServerSocket, also das Öffnen und Schließen des Ports. Wir fügen den Code PRocedure TForm1.ServerSocket11ClientConnect(Sender: TObject; Socket: TCustomWinSocket);//Fügen Sie einen leeren Datensatz hinzu Combobox1.Items[y]: =socket.RemoteAddress;// Holen Sie sich die IP der anderen Partei label1.Text:='Captured in total'+inttostr(y+1)+'IPs';//Verwenden Sie eine Beschriftung, um die Gesamtzahl der erfassten IPs anzuzeigen. y:=y+1;//Erhöhen Sie die Zählvariable um 1 socket.Close ; end; Setzen Sie nun das caption-Attribut von button1 auf „Start“ und fügen Sie den folgenden Code zu seiner Click-Event-Prozedur hinzu: TForm1.SpeedButton7Click(Sender: TObject); speedbutton7.Caption='Start' dann beginnen Serversocket11.Port:=80;//Dieser Satz kann in den Serversocket-Eigenschaften festgelegt werden, um die Browserverbindung zu erfassen ServerSocket11.Active:=true;//Aktivieren Sie den Port speedbutton7.Caption:=' Stop'; end else begin serverocket11.Active:=false;//Schließe den Port speedbutton7.Caption:='Start'; Combobox1.Clear;//Erfassung beenden und historische Informationen löschen y:=0;//Zählvariable zurücksetzen end; Jetzt kann ein IPhunter im Grunde nur ein sehr einfacher Prototyp sein, der zu einem Netzwerk-Hacking-Tool wird. Was hier erwähnt wird, ist nur der einfachste. Es sind nur ein paar Funktionen, mit denen Sie ein Chat-Tool wie Agent Hunter erstellen können. Diese werden in den zukünftigen Artikeln vorgestellt. Das nächste Mal werde ich bekannt geben, wie man mit Delphi OICQ-Tools, anonyme Informationen, IP-Prüfung, Informationsbomben usw. erstellt.