เพื่อนหลายคนใช้ ihunter ที่เขียนโดย Dugu Swordsman มันใช้หลักการโพสต์รูปภาพในห้องแชทเพื่อค้นหา IP ของอีกฝ่าย จริงๆ แล้วมันไม่ได้เป็นเพียงห้องแชทเท่านั้น สามารถบันทึก IP ของเขาและแม้แต่ชื่อโฮสต์ได้ หลักการนี้ยังใช้ในซอฟต์แวร์ Deer Hunter ของ Lao Yao อีกด้วย มันง่ายที่จะนำไปใช้ใน Delphi ตอนนี้เราใช้ Delphi เพื่อสร้างซอฟต์แวร์ที่เหมือนกับ IPhunter ทุกประการ บางคนบอกว่าโปรแกรมเมอร์ในปัจจุบันกลายเป็นคนทำงานด้านการประกอบซึ่งจริงๆ แล้วสามารถทำได้โดยใช้โมดูลควบคุม + โค้ดจำนวนเล็กน้อย Delphi 5.0 มีชุดควบคุมอินเทอร์เน็ตที่หลากหลาย และปัญหาสามารถแก้ไขได้โดยใช้ TCP /IP ไคลเอนต์เซิร์ฟเวอร์ การควบคุมที่สำคัญคือ ServerSocket เราเลียนแบบอินเทอร์เฟซของ IPhunter และใช้ปุ่ม 1 (ปุ่ม) และคอมโบบ็อกซ์ 1 (สำหรับการแสดงผล) การควบคุมพื้นฐานที่สุดทั้งสามนี้วางอยู่ในแบบฟอร์มเปล่าและคุณสามารถเริ่มเขียนโค้ดได้ ก่อนอื่น Combobox1 นี้จะต้องสามารถแสดงหลาย IP ได้ เราตั้งค่าตัวแปร y เพื่อสะสม combobox1.items[y] var y:integer; แนวคิดของเราเป็นดังนี้เมื่อพอร์ต (พอร์ต) ของกิจกรรม ServerSocket ได้รับ ที่อยู่ IP ตามโปรโตคอล TCP/IP เมื่อร้องขอลิงก์ ค่า IP ของอีกฝ่ายจะถูกส่งกลับและส่งไปยังคอมโบบ็อกซ์เพื่อแสดง Button1 ควบคุมการเปิดใช้งาน ServerSocket ซึ่งหมายถึงการเปิดและปิดพอร์ต เราเพิ่มรหัส PROcedure TForm1.ServerSocket11ClientConnect(Sender: TObject; Socket: TCustomWinSocket); start combobox1.Items.Insert(y,');//เพิ่มบันทึกว่าง combobox1.Items[y]: =socket.RemoteAddress;// รับ IP ของอีกฝ่าย label1.Text:='Captured in Total'+inttostr(y+1)+'IPs';//ใช้ป้ายกำกับเพื่อแสดงจำนวน IP ทั้งหมดที่จับ y:=y+1;//เพิ่มตัวแปรการนับ 1 socket.Close ; end; ตอนนี้ ตั้งค่าแอตทริบิวต์คำบรรยายของ button1 เป็น 'Start' และเพิ่มโค้ดต่อไปนี้ลงในขั้นตอนเหตุการณ์การคลิก TForm1.SpeedButton7Click(Sender: TObject); speedbutton7.Caption='Start' จากนั้นเริ่ม Serversocket11.Port:=80;//ประโยคนี้สามารถตั้งค่าในคุณสมบัติเซิร์ฟเวอร์ซ็อกเก็ตเพื่อจับภาพการเชื่อมต่อเบราว์เซอร์ ServerSocket11.Active:=true;//เปิดใช้งานพอร์ต speedbutton7.Caption:=' หยุด'; สิ้นสุดอย่างอื่นเริ่มต้นเซิร์ฟเวอร์ซ็อกเก็ต11.Active:=false;//ปิดพอร์ต speedbutton7.Caption:='Start'; combobox1.Clear;//สิ้นสุดการจับภาพและข้อมูลประวัติที่ชัดเจน y:=0;//รีเซ็ตการนับตัวแปรสิ้นสุด; ตอนนี้ IPhunter สามารถใช้งานได้แล้ว นี่เป็นเพียงต้นแบบที่เรียบง่าย ด้วยอินเทอร์เฟซที่สร้างขึ้นมาอย่างดีของคุณเอง มันจึงกลายเป็นเครื่องมือแฮ็กเครือข่าย มันเป็นเพียงฟังก์ชั่นบางอย่าง ด้วยการเพิ่ม ClientSocket คุณสามารถสร้างเครื่องมือแชทได้ การใช้ ClientSocket เท่านั้น คุณสามารถสร้างซอฟต์แวร์สแกนเช่น Agent Hunter ได้ สิ่งเหล่านี้จะถูกแนะนำในบทความในอนาคตของ Lao Yao คราวหน้าผมจะประกาศวิธีใช้ Delphi เพื่อสร้างเครื่องมือ OICQ ข้อมูลที่ไม่เปิดเผยตัวตน การตรวจสอบ IP การทิ้งระเบิดข้อมูล ฯลฯ.....