19/07/2002, 04:14 AM
|
| فيو | | تاريخ التسجيل: 25/01/2002 المكان: .. الحـــبيــ الرياض ـبـه ..
مشاركات: 15,376
| |
كيفيه عمل برامج الفيروسات ........
هل فكرت يوما كيفية عمل برامج الفيروسات مثل النورتون او المكافئ او هل تريد ان تجعل برنامج النورتون نفسه فيروس او .. او ... او  طريقة عمل برامج الفيروسات هي فك الملف التنفيذي نفسه والبحث فيه عن سلسله محدده من قبل ( مصمم البرنامج نفسه ) وتختلف من شركة لاخرى تقلي كيف مثال
للبحث مثلا عن برنامج السب سيفين قولد نبى تاكد هل هو السب سيفين قولد ولا لا
اول شئ نفك السب سيفين قولد عن اي محرر بينري انسخ اي سلسله ضعها في برنامجك (الباحث)
افتح السب سيفين قولد (برمجيا) بواسطة برنامجك ابحث من اوله الى اخره عن نفس السلسله التي نسختها اذ كانت السلسله هذي موجوده
اظهر رساله للمستخدم بان هذا برنامج السب سيفين او باتش على حسب البرنامج اللي اخذت منه السلسلة وحطيتها في برنامجك
انشالله احط مثال (برمجيا ) عليها
هذه الطريقة لها عيوب لانك لو جربت في مثلا برنامج الفوتوشوب قلك هذا فيروس وهو اصلا مو فيروس طيب ليش قلك فيروس لانه وجد نفس السلسله في نفس البرنامج ولكن لتتلافى هذه المشكلة خلي البرنامج يتاكد من اماكن متفرقه في نفس البرنامج فان اعطيت كلها احتمالات صحيحه ..
تضمن انه فيروس او او او ...... وثاني شئ لازم تطول في السلسله اللي تاخذها مو تاخذ حرف واحد اكيد بيقلك في اي برنامج انه باتش
طول السلسله خلها 15 بايت او عشرين
المثال :-
اضف زر ومربع نصوص و commondialog ثم قص ولصق هذا الكود
Private Sub Command1_Click()
cd.ShowOpen
1. = cd.FileName
End Sub
Private Sub Command2_Click()
Dim BUFFER As String
BUFFER = Space(4000)
Open 1. For Binary Access Read As #1
While Not EOF(1)
Get #1, , BUFFER
DoEvents
If InStr(BUFFER, "حفZNNuy.A") Then
MsgBox "برنامج سب سيفين قولد "
End If
Wend
End Sub
علما بان هذه السلسله لاتفي بالغرض لانها قصيره ومن مكان واحد
تحياتي للجمـــيــع ،،،،
أختكم ،،
الزرقــ الفيروسه ــاء ،،،
|
