كيف استخدم هذا الكود لبرنامج اختراق؟؟؟

ماشالله .. <_< سؤال في منتهى التنسيق والوضوح على العموم راجع هذه الروابط

سلسلة دروس برمجة برنامج اختراق

برنامج اختراق مع الكود

فكرة لإرسال IP جهاز الضحيه الى الجهاز الأساسى

شكرا اخي لكني لم اجد ما اوريد

ياريت الي بمكانه شرح الطريقه يتفضل بوضعها

up

كلكم ماعندكم علم بلموضوع

-_- المعرفة موجودة بين الاعضاء ولله الحمد ولكن مين اللي راح يشرح ..... انت صاحب السؤال لم تتعب نفسك بتقديم توضيح لما تريد فكيف تريد من الاعضاء تقديم الشرح لك لمسالة غير مفهومة هل تريد منهم التخمين ... تكلم قليلا عن ماتريد

تم تحميض الفيلم : :P

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub

Private Sub Form_Load()
Dim lngDC As Long
Dim intWidth As Integer, intHeight As Integer
Dim intX As Integer, intY As Integer

lngDC = GetDC(0)

intWidth = Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY

form1.Width = intWidth * 15
form1.Height = intHeight * 15

Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)
form1.Visible = vbTrue

Do
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd

Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, vbSrcCopy)

DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set form1 = Nothing
End
End Sub

المساله ومافيه اخي انا عندي اكواد كثيره ومنها الكود الي في الموضوع فوق وابي استخدم هذي الكواد في برنامج اختراق يعني اضع الكود الي فوق في الخادم واجعله ينفذ لما يطلب منه العميل على جهاز الي في الخادم

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

هل تعرف كيفية اسخدام الwinsock

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

نعم اخي اعرف استخدامه كامبتدي

اظن ان هذا الكود يستخدم لالتقاط شاشه الكمبيوتر

المهم

تقوم وبوضع ادها winsok

وتسميها باسم w

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

w.sendate "hytham"

حيث انا كلمه hythamعندما تصل ال العميل تجعله ينفدا هذه ا الامر

وتكتب في برنامج العميل في اده w

في الحدث dataarrve??

dim s as string

w.getdate s

if s="hytham" then

Form_KeyDown

end if

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

وشكرا

                     نعيب زمانانا والعيب فينا               ومال لزمانانا عيب سوانا

اشكرك اخي الكريم على هذا الشرح واسمحلي راح اتعبكم معاي شوي طبعا هذا الشرح لهذا الكود بس ؟؟؟؟؟؟

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

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

بس الكود ده يقوم باخد صوره للشاشه ويقوم وبضعا في cilppoeard

وهذا المتغير مسؤل عن حفظ ما تقوم بس من نسخ او قص لاي شي

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

وبعدين اشرحلك كل حاجه

:lol: :lol:

بشوف حاجات بتضحك هان ....

كيف بدك برنامج اختراق (كما تزعم ) وانت ليس عندك الوعى الكافى لكلمة اختراق ؟؟!!!!!!!!!!!!!!!!!

اخي hythamzero اريد تصميم برنامج حب لتعلم فقط ولاستفاده من الوقت الي اقضي على الكمبيوتر في الشات والتصفح من غير معنى قلت خليني اتعلم وشدني هذا المجال والكثير نصحوني بتعلم الفيوجل بسك كبدايه كونها السهل

ورد على الاخ الخبير المبرمج العالمي devil_d ياخي اذا انت مبرمج عالمي لاتفكر ان كل الناس مثلك ومافي احد انولد متعلم اشوي اشوي ونتعلم وممكن نصير مثلك الا اذا انت انولت مبرمج جاهز هذا شي ثاني

يا أخ devil_d <_< لست مجبرا على المشاركة أذا كنت لا تحمل إي فائدة قل خيرا ولا فصمت

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

واتمنى أن لا يرد عليه احد لأنه سيتم حذفه اذا كان خارج الموضوع

سبوه .. سبوه .. انا أتكفل فيه ان شاء الله تعالى .. خش عليا خش .

انتظر منك السؤال الاول .

انت طلبت شرح الكود الذي ارفقته .... تفضل

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub

لأنهاء البرنامج عند الضغط على زر Esc

Dim lngDC As Long
Dim intWidth As Integer, intHeight As Integer
Dim intX As Integer, intY As Integer

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

lngDC = GetDC(0)

يتم اخذ سياق أو نقطة ما كسطح المكتب لنرسم اليه

intWidth = Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY
form1.Width = intWidth * 15
form1.Height = intHeight * 15

توسيط النموذج وبعض الاعدادت على الشاشة

Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)

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

form1.Visible = vbTrue

أخفاء البرنامج اثناء عملية الصهر

Do
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd

Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, vbSrcCopy)

DoEvents
Loop
End Sub

وهذه الشفرة تقوم بعملية الصهر بتكرار مع تنوع الاماكن بعرض والارتفاع

Private Sub Form_Unload(Cancel As Integer)
Set form1 = Nothing
End
End Sub

وهذه الشفرة لأزالة البرنامج من الذاكرة بعد الانتهاء منه أو الخروج منه

وهكذا ... اكون شرحت لك ما تم طلبه أتمنى ان أكون قد اوصلت لك الفكرة بشكل جيد B) بالتوفيق

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

اشكرك اخي على مساعدتك وتعبك معاي هذا الكود وضيفته كما تعلم خدعه ان الشاشه تنصهر .

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

كود زر فتح سواقة الأقراص

: كود فيجول بيزك

If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال

Main.wnskClinet.SendData "opn" 'ارسال الي السيرفر

Else

MsgBox "انت غير متصل", vbCritical

End If

الكود هذا في العمي صح

وهذا الكود في الخادم

Public Function DoCommand(command As String, Data As String)

Select Case LCase(command)

Case "opn"

OpenCDDriveDoor (True) 'إرسال لتفعيل امر فتح سواقة الاقراص

انا اريد اجعل من كود صهر الشاشه نفس المساله اي مذا اضع في الخادم ومذا اضع في العميل

يجب ان يكون هناك ملف أخر (برنامج Client) ويكون يعمل في الخفاء بحث يمكن للسيرفر ارسال الاوامر عن طريق SendData يجب عليك الآن ان تقرا حول طريقة الارسال لكي تعرف كيف يتم تننفيذ الاوامر وهي سهلة جدا بمجردد ان تتقن عملية الارسال .. حيث ستحتاج لتايمر لعمل ذلك راجع الروابط التي ارفقتها لك سابقا أو قم بالبحث في المنتدى عن كلمة winsook وستجد المواضيع الكثيرة والمفيدة التي ستوصلك لما تريد ... بالتوفيق

تم أخفـــاء النص من قبـــ HnHn ـــــــل

تنبيه لك أخ devil_d

السلام عليكم

كيف حالكم اخواني

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

واريد منكم توضيح لي كيف اضيف اوامر اضافيه مثل فتح القرص واغلاق القرص هذا الي انا اطلب من البدايه اي عندي اكواد غير الي مشروحه في الموضوع وحبيت اضيفها للبرنامج وهذا مرفق الشرح

الشرح