يشير اللص المذكور هنا إلى استخدام الوظائف القوية التي يوفرها مكون xmlhttp في xml في asp لالتقاط البيانات (الصور وصفحات الويب والملفات الأخرى) الموجودة على موقع الويب البعيد إلى الموقع المحلي، وعرضها على الصفحة بعد معالجة مختلفة أو نوع من البرامج المخزنة في قاعدة البيانات. يمكنك استخدام هذا النوع من برامج السرقة لإنجاز بعض المهام التي كانت تبدو مستحيلة تماما في الماضي، مثل تغيير صفحات موقع معين وتحويلها إلى صفحات خاصة بك، أو حفظ بعض البيانات (مقالات، صور) لموقع معين لاستخدامها في قاعدة البيانات المحلية. مميزات برنامج Thief هي: ليست هناك حاجة لصيانة الموقع، لأن البيانات الموجودة في برنامج Thief تأتي من مواقع أخرى، وسيتم تحديثها مع تحديث الموقع، ويمكنها توفير الكثير من موارد الخادم بشكل عام يحتوي برنامج Thief فقط على عدد قليل من الملفات، وكل محتوى الويب هو من مواقع ويب أخرى. العيوب هي: عدم الاستقرار، إذا حدث خطأ في موقع الويب المستهدف، فسوف يتعطل البرنامج أيضًا، وإذا تمت ترقية موقع الويب المستهدف وصيانته، فسيحتاج برنامج اللص أيضًا إلى التعديل وفقًا لذلك، لأنه مكالمة عن بعد؛ السرعة تعادل سرعة قراءة البيانات على الخادم المحلي، وهي بالتأكيد أبطأ من ذلك. ماذا عن ذلك، يبدو مذهلاً، أليس كذلك؟ لنبدأ الآن في تعلم بعض المعلومات التمهيدية عن برنامج اللص!
دعونا ندرس شيئًا أبسط، وهو برنامج التنبؤات الجوية على موقع QQ
الرمز هو كما يلي:
1<%2OnErrorResumeNext
3Server.Scripttimeout=9999999
4FunctionGethttppage(المسار)
5T=Getbody(المسار)
6Gethttppage=Bytestobstr(T,Gb2312)
7 وظيفة النهاية
8
9' أولاً، قم بإجراء بعض إعدادات التهيئة لبرنامج اللص، وظيفة الكود أعلاه هي تجاهل جميع الأخطاء غير الفادحة، وضبط مهلة تشغيل برنامج اللص على وقت طويل جدًا (حتى لا يحدث أي خطأ في مهلة التشغيل). )، وتحويل النص الأصلي. يتم تحويل ترميز utf-8 الافتراضي إلى ترميز gb2312، وإلا فإن استخدام مكون xmlhttp مباشرة لاستدعاء صفحات الويب ذات الأحرف الصينية سيؤدي إلى رموز مشوهة.
10
11FunctionGetbody(URL)
12OnErrorResumeNext
13SetRetrieval=إنشاء كائن(Microsoft.Xmlhttp)
14مع الاسترجاع
15.OpenGet، URL، خطأ،،
16.إرسال
17Getbody=.Responsebody
18 نهاية مع
19SetRetrieval=لا شيء
20 وظيفة النهاية
واحد وعشرون
22'ثم قم باستدعاء مكون xmlhttp لإنشاء كائن وإجراء إعدادات التهيئة.
ثلاثة وعشرين
24FunctionBytestobstr (الجسم، Cset)
25DimObjstream
26SetObjstream=Server.Createobject(Adodb.Stream)
27Objstream.Type=1
28Objstream.Mode=3
29Objstream.Open
30Objstream.WriteBody
31Objstream.Position=0
32Objstream.Type=2
33Objstream.Charset=Cset
34Bytestobstr=Objstream.Readtext
35 أوبجستريم.إغلاق
36SetObjstream=لا شيء
37 وظيفة النهاية
38
39FunctionNewstring(Wstr، Strng)
40Newstring=Instr(Lcase(Wstr),Lcase(Strng))
41IfNewstring<=0ThenNewstring=Len(Wstr)
42 وظيفة النهاية
43
44' لمعالجة البيانات التي تم التقاطها، تحتاج إلى استدعاء مكون adodb.Stream وإجراء إعدادات التهيئة. %>