استخدم العديد من الأصدقاء برنامج iphunter الذي كتبه Dugu Swordsman، وهو يستخدم مبدأ نشر الصور في غرفة الدردشة للعثور على عنوان IP الخاص بالطرف الآخر يمكنه التقاط عنوان IP الخاص به، وحتى اسم المضيف، ويتم استخدام هذا المبدأ أيضًا في برنامج Lao Yao Deer Hunter، ومن السهل تنفيذه في دلفي. الآن نستخدم دلفي لإنشاء برنامج تمامًا مثل IPhunter. يقول بعض الناس أن المبرمجين اليوم أصبحوا عمال تجميع، وهو أمر منطقي في الواقع باستخدام وحدات التحكم + توفر كمية صغيرة من التعليمات البرمجية في دلفي 5.0 مجموعة غنية من عناصر التحكم في الإنترنت، ويمكن حل المشكلة باستخدام TCP / خادم عميل IP. عنصر التحكم الرئيسي هو ServerSocket. نحن نحاكي واجهة IPhunter ونستخدم الزر 1 (زر) وcombobox1 (للعرض). يتم وضع عناصر التحكم الثلاثة الأساسية هذه في النموذج الفارغ ويمكنك البدء في كتابة التعليمات البرمجية. بادئ ذي بدء، يجب أن يكون combobox1 قادرًا على عرض عناوين IP متعددة. قمنا بتعيين متغير y لتجميع combobox1.items[y]، var y:integer؛ فكرتنا هي كما يلي، عندما يستقبل المنفذ (المنفذ) نشاط ServerSocket عنوان IP يعتمد على بروتوكول TCP/IP عند طلب ارتباط، يتم إرجاع قيمة IP للطرف الآخر وتمريرها إلى مربع التحرير والسرد للعرض. يتحكم Button1 في تنشيط ServerSocket، مما يعني فتح وإغلاق المنفذ. نضيف الكود PROcedure TForm1.ServerSocket11ClientConnect(Sender: TObject; المقبس: TCustomWinSocket); البدء في combobox1.Items.Insert(y,');// إضافة سجل فارغ combobox1.Items[y]: =socket.RemoteAddress;// الحصول على IP الخاص بالطرف الآخر label1.Text:='تم التقاطها بشكل إجمالي'+inttostr(y+1)+'عناوين IP';// استخدم تسمية لعرض إجمالي عدد عناوين IP التي تم التقاطها y:=y+1;// قم بزيادة متغير العدد بمقدار 1 المقبس.إغلاق؛ speedbutton7.Caption='ابدأ' ثم ابدأ serversocket11.Port:=80;// يمكن تعيين هذه الجملة في خصائص serversocket لالتقاط اتصال المتصفح 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، وسيتم تقديمه في مقالات Lao Yao المستقبلية. في المرة القادمة، سأعلن عن كيفية استخدام دلفي لإنشاء أدوات OICQ، ومعلومات مجهولة، وفحص IP، وقنابل معلوماتية، وما إلى ذلك.....