come and see how vires is made

Dear Hammer 555

Don't speak to your self

we will be all ears;(

ياجماعة اللي فاهم الموضوع

يشرح لنا

:blink: :blink:

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

ماشاء الله هالموضوع واضح انه يهمكم جميعا

(هذه الاكواد تم كتابتها وترجمتها من السى ++ الى الفيجول بمعرفتى وهذا للمشاركه والتعليم فقط)

اولا:

اى فيرس محترم يجب ان يستطيع عمل الاتى:-

1-البحث عن الملفات

2-الربط بها

3-البحث عن الثغرات

والان نتعلم كيفيه الربط

عند تشغيل الفيرس يقرا الفيرس نفسه ثم يكتب فى ملف اخر يتم عمله (نسميه المعمل) ثم يقرا الفيرس الملف المطلوب اصابته فى الذاكره ثم يكتبه فى الملف الاخر تحت الفيرس وأخيرا يكتب ما نسميه signature حتى يتم التعرف بالملفات المصابه

ارجوا من المهتمين اذا كان هناك اى سوأل قبل الدخول فى الكود

وهذه بعض الصور التوضيحيه

اعتقد انه قبل البدأ فى الموضوع لا بد من الاطلاع على بنية الملفات التنفيذية

الكتابة في البرامج ( مبدأ إنتشار الفايروسات ), أمثلة تطبيقية

أساليب البرمجة المتقدمة للملفات التنفيذة, بيئة الملفات التنفيذية

اسف اح طارق لم اعنى دراسه الفيرس من جهة لغة التجميع assmplyبل ب فجول بيسيك

اعتقد انك تقول هذا صعب بالفيجول ولكن لا يوجد مستحيل

اولا اشكر المهتمين ,MSrahieb_100 ,shams el zanaty ,abu basel

الان شرح الاكواد (سوف نتوقف بعض الاحيان حتى نجب على اى اسئله والمقترحات)

1-اكواد القراءة والكتابه فى الذاكرة :::

readfile

Declare Function ReadFile Lib "kernel32" Alias "ReadFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long

1 المسار للملف الذى تريد قرائته (c:\myfile.exe)

2 مخزن الذاكره للملف المقروءbuffer

3 عدد البايت التى سوف تقراء من الملف

4 عدد البايت المقروءة من الملف

5 لم افهم ما هى نضعها ب &o

writefile

Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long

1 مسار الملف الذى سوف نكتب به

2

3

4

5

نفس ال readfile

createfile

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

لعمل ملف (المعمل)

ارجوا التعقيب والمحاوره لنتبادل المعلومات

والبقيه تاتى

:rolleyes: بما انك ستتعامل مع ملف تنفيذى فعليك معرفة بنيته اتمنى ان تتطلع على مقالة Merrion اولاً

Inside the executable A visual basic developer's guide to the portable executable

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

عمل جيد و نرجو المزيد

شكرا لك اخ طارق للمحاوره سوف اقرا الموضوع وأناقشك فيه

شكرا اخ شمس للمتابعه ارجوا ان تكون مستفيد من هذا

نتابع الان ما سبق ::

نتابع الان باقى الدوال

findfirstfile

Declare Function FindFirstFile Lib "kernel32.dll" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

هذه الداله تقوم بالبحث عن ملف محدد

عن طريقها نجد الملفات المطلوب اصابتها

findnextfile

Declare Function FindNextFile Lib "kernel32.dll" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

ولان الداله findfirstfile تجد الملف الاول فقت فنستخدم هذه الداله ليجاد باقى الملفات

رائع اخي hammer555 و للامام دائما ان شاء الله

هذا الملف المرفق مثال للدوال

readfile

writefile

createfile

حفاظا على ملفاتك اتبع الاتى::>>>>

1-قم بفك الملف المضغوط

2-ضع اى ملف تنفيذى داخل المجلد(project)

3-قم بتشغيل الملف project1.exe (ملحوظة @@ راقب حجم الملف الذى تختاره حتى تعرف التغير)

4-انظر لحجم الملف الجديد newfile.exe

5- عند تشغيلك للملف newfile.exe سوف يظهر لك شاشه project1.exe وليس برنامجك ونتابع لمعرفه المزيد

Project1.rar

لا ادرى اذا كان شرحى سهل ام لم تفهموا شيئا منى ولكن على كل ارجوا التوفيق

اذا كان احد يعرف طريقه ايجاد الثغرات فاليشارك لكتمال المعلومه

وهذا كود الفيرس الكامل ماعدا الخطر

myvires.rar