نادي الهلال السعودي - شبكة الزعيم - الموقع الرسمي - كيفيه عمل برامج الفيروسات ........

هل فكرت يوما كيفية عمل برامج الفيروسات مثل النورتون او المكافئ او هل تريد ان تجعل برنامج النورتون نفسه فيروس او .. او ... او

http://chaotenhaufen.de/wunschgif/al...allerlei24.gif

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

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

http://chaotenhaufen.de/wunschgif/al...allerlei24.gif

هذه الطريقة لها عيوب لانك لو جربت في مثلا برنامج الفوتوشوب قلك هذا فيروس وهو اصلا مو فيروس طيب ليش قلك فيروس لانه وجد نفس السلسله في نفس البرنامج ولكن لتتلافى هذه المشكلة خلي البرنامج يتاكد من اماكن متفرقه في نفس البرنامج فان اعطيت كلها احتمالات صحيحه ..
تضمن انه فيروس او او او ...... وثاني شئ لازم تطول في السلسله اللي تاخذها مو تاخذ حرف واحد اكيد بيقلك في اي برنامج انه باتش
طول السلسله خلها 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

http://chaotenhaufen.de/wunschgif/al...allerlei24.gif

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

تحياتي للجمـــيــع ،،،،
أختكم ،،
الزرقــ الفيروسه ــاء ،،،

http://chaotenhaufen.de/wunschgif/al...allerlei24.gif