الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اخترق جهاز من يحاول اختراقك

مغلق
بدأه زائر في 19 ديسمبر 2001 · 11 رد · 1,586 مشاهدة · في منتدى الشبكات العام
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

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

Private Sub cmdListen_Click()
Win.Close
Win.LocalPort = "27374"
Win.Listen
End Sub

Private Sub Win_Connect()
Win.SendData "PWD" & vbCrLf
End Sub

Private Sub Win_ConnectionRequest(ByVal requestID As Long)
Win.Close
Win.Accept requestID
End Sub

Private Sub Win_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Win.GetData (Data)
Text1 = Text1 + Data
End Sub

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

#2

الصراحة الموضوع شيق للغاية

بس للاســــــــــــــــــف لا استطيع مساعدتك والسبب لان معرفتي بهذا الموضوع ليست قوة

ارجوا من الاساتذة الكرام (بدون تحديد اسماء) مساعدتك بهذا الموضوع

#3

أهلا بك أخي .....

بغض النظر عن الكود الذي وضعته .. هناك الكثير من البرامج مثل السب سفن ولكل منها بورت خاص علما ان السب سفن يفتح أكثر من بورت على ما اعتقد ( لم أعمل به كثيرا ) ......

وهناك برنامج بنفس الفكرة التي طرحتها أذكر ان اسمه ( Anti Sub7 ) ابحث عنه وربما تستفيد منه ....

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

لك تحياتي ..... (f) (f)

واثق الخطوة يمشي ملكا !!

#4

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

#5

Use this code

It will require the hacker who has Sub7 to enter passwords, and you will see them.

Private Sub cmdListen_Click()
win.Close
win.LocalPort = "27374"
win.Listen
End Sub

Private Sub Win_ConnectionRequest(ByVal requestID As Long)
win.Close
win.Accept requestID
'Require the hacker to enter his password.
win.SendData "PWD" 
End Sub

Private Sub Win_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
win.GetData Data
If Left(Data, 3) = PWD Then
    Data = "Password is: " & Mid(Data, 4)
End If
Text1 = Text1 + vbCrLf + Data
'Require another password
win.SendData "PWD" 
End Sub
#6

1000000000000000

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

#7

مرحبا بكل الشباب

ياريت لو تشرحوا لي هذا الكود بالتفصيل..

وتشرحوا لي بعد طريقة عمل البرنامج...

لأن بصراحة معلوماتي بسيطة عن الأداة winsock

وعن هذي البرامج بشكل عام..

وكل عام وأنتم بخير

بومهند

#8

يا مبرمجين..

ممكن تشرحوا لي....؟؟؟؟:)

تحياتي

بومهند

#9

اخواني ليت تشرحوا لنا الكود وين نحطه وكيف نستخدمه.

#10

ياخوان تفكيركم غلط بحيث انك تخلي الاداة تستقبل بورت معين وتنفذ الاوامر علية لئن الاوامر داخلة وسط السيرفر ولو استطعت انك تنفذ امر واحد عليه كان تسوي برنامج يستفيد من بورت الساب سفن او البرامج

الثانية

واذا احد عنده تصحيح ثاني يتفضل :)

وفية شي ثاني عارفين برنامج الساب 7 بلغة ايش ؟

تحياتي

#11

السلام

الساب مكتوبة بدلفي،، بس وما دخل هذه بالمسئلة؟؟ بغض النظر عن التطبيقات المكتوبة ، هذه لا تؤثر في التعامل بين البرامج ..

#12

خلاص سوي برنامج يستفيد من خادم الساب 7:)

هذا الموضوع مغلق.

مواضيع مشابهة