أفضل 10 أعضاء في هذا الشهر
لا يوجد مستخدم |
المواضيع الأكثر نشاطاً
المواضيع الأخيرة
أفضل 10 أعضاء في هذا الأسبوع
لا يوجد مستخدم |
احصائيات
هذا المنتدى يتوفر على 357 عُضو.آخر عُضو مُسجل هو مروان فمرحباً به.
أعضاؤنا قدموا 6052 مساهمة في هذا المنتدى في 1458 موضوع
دورة الديف بوينت فى صناعة الفيروسات
4 مشترك
صفحة 1 من اصل 1
دورة الديف بوينت فى صناعة الفيروسات
بداية أرحب بكل اخوانى أعضاء المنتدى
نبدأ مع بعض رحله شيقه فى صناعة الفيروسات ولكن اتقى الله عز وجل
نحن نقدم لكم هذه الدروس لبناء مجتمع ثقافى متميز لا لنؤذى الناس بما اعطانا الله من علم
ولنبدأ معنا درسنا ولكن حتى لا اطيل عليكم سنتناول هذه الشروحات كسلسله
والله عز وجل الموفق والمستعان
أول حاجه أقدر أبتديها فى الدوره هيكون درسنا خفيف
أساسيات برمجة الفيروسات اللى هنبتدى من عندها
عشان تقوم بعمل فيروس لازم تبقى فاهم إن الفيروسات ليها برامج كتيره جدا ممكن تعملها
وأبسطهم هو الـ NotePad وأظن الكل يعرفه....
وكمان لازم تعرف بعض المسارات اللى ممكن تدمرها وكل نظام يختلف عن نظام ولا إيه؟...
وفيه بعض الأكواد البرمجيه اللى هنستخدمها فى صناعه أول فيروس وهم كلأتى:
1 - كود معرفه مسار الويندوز
وده كود سهل جدا ومفهوش أى صعوبه.
2 - كود الـ Kill
وهو لقتل بعض الملفات اللى إنت تتحددها عن طريق المسارات
3 - كود نسخ المفات
وهو بيكون FileCopy وهو لنسخ الملفات لمكان أمن عشان ما يحتذفش وكل تعبك يروح
4 - تشغيل الملف مع بدايه النظام
كود طويل ولكن سهل جدا ومفهوش أى صعوبه.
نبدأ بإسم الله برمجه بأول كود وهو :
كود معرفه مسار الويندوز
أول حاجه إفتح مشروع جديد
وضيف Label1 عشان نعرض فيه مسار الويندوز
الأكواد:
1 - كود التصريحات العامه (General)
كود:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long2 - كود الـ Form_Load
كود:
On Error Resume Next 'عند الخطا إذهب لغيره
Dim W
Dim WindowsD As String
WindowsD = Space(144)
W = GetWindowsDirectory(WindowsD, 144)
Label1.Caption = WindowsD
مسار الويندوز كامل
طيب عاوزين بقه ننسخ الفيروس لمسار الويندوز هنعمل أيه؟وعاوزين نتأكد إن الفيروس اللى هيتنسخ هيبقى بلإسم اللى إحنا عاوزينه هنعمل أيه؟
ولا حاجه
كود نسخ الفيروس لمكان معين هو FileCopy زى ما الكل عارف
طيب هيبقى كودنا كلأتى:
كود:
FileCopy (App.Path & "" & App.EXEName & ".exe"), (Label1.Caption & "\Scream.exe")ها؟
معنى الكود أيه؟
طيب أنا هشرح
أول حاجه إستخدمنا أمر FileCopy لنسخ الملف
وبعد كده فى كلمه إسمها App.path طيب ودى معناها أيه؟
دى معناها مسار الملف اللى هيتنسخ
طيب وفيه برضه كود بإسم App.EXEName وده برضه معناه أيه؟
وده معنا إسم البرنامج الغير أمن اللى هننسخه
طيب وبعد كده كتبنا كلمه .exe وهى إمتداد البرنامج زى ما الكل عارف
وبعد كده كتبنا كلمه Label1.Caption اللى إحنا عارضين فيها مسار الويندوز
وبعد كده كلمه Scream.exe وده بقه الملف الأمن اللى إتنسخ لمسار الويندوز يعنى الفيروس المستخبى
فى الدرس القادم بإذن الله تعالى سنتناول كيفية التأكد ان الاوامر ستعمل على الملف الامن
كما نتناول بعض الاكواد التى نتحتاجها فى هذا الموضوع
أرجو ان تكونوا استفدتم من هذا العمل البسيط
فأسألكم اخوانى بصالح الدعاء
والى اللقاء فى الدرس القادم
نبدأ مع بعض رحله شيقه فى صناعة الفيروسات ولكن اتقى الله عز وجل
نحن نقدم لكم هذه الدروس لبناء مجتمع ثقافى متميز لا لنؤذى الناس بما اعطانا الله من علم
ولنبدأ معنا درسنا ولكن حتى لا اطيل عليكم سنتناول هذه الشروحات كسلسله
والله عز وجل الموفق والمستعان
أول حاجه أقدر أبتديها فى الدوره هيكون درسنا خفيف
أساسيات برمجة الفيروسات اللى هنبتدى من عندها
عشان تقوم بعمل فيروس لازم تبقى فاهم إن الفيروسات ليها برامج كتيره جدا ممكن تعملها
وأبسطهم هو الـ NotePad وأظن الكل يعرفه....
وكمان لازم تعرف بعض المسارات اللى ممكن تدمرها وكل نظام يختلف عن نظام ولا إيه؟...
وفيه بعض الأكواد البرمجيه اللى هنستخدمها فى صناعه أول فيروس وهم كلأتى:
1 - كود معرفه مسار الويندوز
وده كود سهل جدا ومفهوش أى صعوبه.
2 - كود الـ Kill
وهو لقتل بعض الملفات اللى إنت تتحددها عن طريق المسارات
3 - كود نسخ المفات
وهو بيكون FileCopy وهو لنسخ الملفات لمكان أمن عشان ما يحتذفش وكل تعبك يروح
4 - تشغيل الملف مع بدايه النظام
كود طويل ولكن سهل جدا ومفهوش أى صعوبه.
نبدأ بإسم الله برمجه بأول كود وهو :
كود معرفه مسار الويندوز
أول حاجه إفتح مشروع جديد
وضيف Label1 عشان نعرض فيه مسار الويندوز
الأكواد:
1 - كود التصريحات العامه (General)
كود:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long2 - كود الـ Form_Load
كود:
On Error Resume Next 'عند الخطا إذهب لغيره
Dim W
Dim WindowsD As String
WindowsD = Space(144)
W = GetWindowsDirectory(WindowsD, 144)
Label1.Caption = WindowsD
مسار الويندوز كامل
طيب عاوزين بقه ننسخ الفيروس لمسار الويندوز هنعمل أيه؟وعاوزين نتأكد إن الفيروس اللى هيتنسخ هيبقى بلإسم اللى إحنا عاوزينه هنعمل أيه؟
ولا حاجه
كود نسخ الفيروس لمكان معين هو FileCopy زى ما الكل عارف
طيب هيبقى كودنا كلأتى:
كود:
FileCopy (App.Path & "" & App.EXEName & ".exe"), (Label1.Caption & "\Scream.exe")ها؟
معنى الكود أيه؟
طيب أنا هشرح
أول حاجه إستخدمنا أمر FileCopy لنسخ الملف
وبعد كده فى كلمه إسمها App.path طيب ودى معناها أيه؟
دى معناها مسار الملف اللى هيتنسخ
طيب وفيه برضه كود بإسم App.EXEName وده برضه معناه أيه؟
وده معنا إسم البرنامج الغير أمن اللى هننسخه
طيب وبعد كده كتبنا كلمه .exe وهى إمتداد البرنامج زى ما الكل عارف
وبعد كده كتبنا كلمه Label1.Caption اللى إحنا عارضين فيها مسار الويندوز
وبعد كده كلمه Scream.exe وده بقه الملف الأمن اللى إتنسخ لمسار الويندوز يعنى الفيروس المستخبى
فى الدرس القادم بإذن الله تعالى سنتناول كيفية التأكد ان الاوامر ستعمل على الملف الامن
كما نتناول بعض الاكواد التى نتحتاجها فى هذا الموضوع
أرجو ان تكونوا استفدتم من هذا العمل البسيط
فأسألكم اخوانى بصالح الدعاء
والى اللقاء فى الدرس القادم
المهندس وليد- المراقب العام ونائب المدير العام
- علم بلدى :
عدد المساهمات : 23
نقاط : 36
تقدير هذا العضو : 0
تاريخ التسجيل : 01/11/2010
الموقع : www.walid.gid3an.com
رد: دورة الديف بوينت فى صناعة الفيروسات
جزاك الله خيرا
العاشق للسيارات والسرعه- مشرف قسم عشاق السرعة والسيارات
- عدد المساهمات : 176
نقاط : 245
تقدير هذا العضو : 0
تاريخ التسجيل : 01/10/2010
الموقع : في اي حته حلوه
رد: دورة الديف بوينت فى صناعة الفيروسات
أخي الكريم/
جزاكم الله خيرا على هذا العمل
ولكني لا أفهم ما هذا البرنامج الذي تحتاج إليه لعمل هذا
أرجو التبسيط في الشرح
جزاكم الله خيرا على هذا العمل
ولكني لا أفهم ما هذا البرنامج الذي تحتاج إليه لعمل هذا
أرجو التبسيط في الشرح
عاشق الإيمان- عدواوى نشيط
- علم بلدى :
عدد المساهمات : 95
نقاط : 131
تقدير هذا العضو : 0
تاريخ التسجيل : 16/10/2010
رد: دورة الديف بوينت فى صناعة الفيروسات
نعم نرجو التبسيط في الشرح لان البعض لا يفهم بالكاد ما الذي يعنيه هذا الكلام او هذه الكلمات وجزاك الله خيرا
القائد العسكري- مشرف الأفلام الوثائقية
- علم بلدى :
عدد المساهمات : 302
نقاط : 546
تقدير هذا العضو : 0
تاريخ التسجيل : 31/10/2010
العمر : 32
الموقع : قلب وطني اللي مطلعتش براه من 19 سنه
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الأحد يناير 29, 2012 12:51 am من طرف عصام الشاعر
» ويموت فينا الانسان
السبت يناير 28, 2012 5:44 pm من طرف المهاجر
» ترتيب فرق الدورى الممتاز2011/2012
الجمعة يناير 27, 2012 5:52 pm من طرف عاشق الحور
» مواعيد لقاءات دوري ابطال اوربا دور ال16
الجمعة يناير 27, 2012 5:38 pm من طرف عاشق الحور
» الفرق بين الإسرائيلي و اليهودي و العبري و الصهيوني
الجمعة يناير 27, 2012 4:41 pm من طرف عاشق الحور
» العريان والجزار في الجيزة: نثق في اختيارات الشعب
الجمعة يناير 27, 2012 4:26 pm من طرف عاشق الحور
» نتيجة انتخابات مجلس الشعب للدائرة الثانية ( مركز الفيوم وطامية )
الجمعة يناير 27, 2012 4:10 pm من طرف عاشق الحور
» الحاج سيد جبر تلقى شكاوى المواطنين بالعدوة
الجمعة يناير 27, 2012 12:38 am من طرف عاشق الحور
» صور الاصدقاء في مسجد بلال
الخميس يناير 26, 2012 7:45 pm من طرف مستر عماد حسين قطب