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

[ahmdod2]

اولا: شكرا علي الموضوع بس برضو مش عارف اظبط packet 3013 ^^ اجيب كل حاجه اجي عند ال Items و اضيع
ثانيا: بالنسبه للناس اللي عايزه ال code في VB.NET

Public Sub SendPacket(ByVal OpCode As String, ByVal sData As String, ByVal direction As Byte, ByVal Enc As Boolean) Using buffer As New IO.MemoryStream Using w As New IO.BinaryWriter(buffer) w.Write(CUShort(0)) ' Size is 0 because it 'cannot' be known yet. w.Write(CUShort("&H" + OpCode)) ' Converts the string Opcode to a UInt16, reading the Opcode as a hexadecimal representation If Enc = True Then If direction = 1 Then 'send to server w.Write(CUShort(3)) ' Encryption flag phConnector ElseIf direction = 2 Then 'send to client w.Write(CUShort(4)) End If Else If direction = 1 Then 'send to server w.Write(CUShort(1)) ' Encryption flag phConnector ElseIf direction = 2 Then 'send to client w.Write(CUShort(2)) End If End If For n As Integer = 0 To sData.Length / 2 - 1 ' Each byte is two characters and starting from 0 so decreasing by 1 w.Write(CByte("&H" & sData.Substring(n * 2, 2))) ' Writes every byte Next w.BaseStream.Position = 0 ' Resets the position to write the size w.Write(CUShort(w.BaseStream.Length - 6)) ' Writes the size to the '0' placeholder w.Flush() ' Makes sure the data is written to the buffer Client.Send(buffer.ToArray) ' Sends the buffer to the Socket End Using End Using End Sub

او ده

Public Sub SendPacket(ByVal OpCode As String, ByVal sData As String) Using buffer As New IO.MemoryStream Using w As New IO.BinaryWriter(buffer) w.Write(CUShort(0)) w.Write(CUShort("&H" + OpCode)) w.Write(CUShort(1)) For n As Integer = 0 To sData.Length / 2 - 1 w.Write(CByte("&H" & sData.Substring(n * 2, 2))) Next w.BaseStream.Position = 0 w.Write(CUShort(w.BaseStream.Length - 6)) w.Flush() Client.Send(buffer.ToArray) End Using End Using End Sub

طبعاً لازم تعَرف ال Client الأول بعدها اعمل connect ل 127.0.0.1 وبال port بتاع phconnector


يا tarek لو مش عايز ال form تعلق اعمل thread جديده

Dim Recv As Thread = New Thread(AddressOf Receiving)

وبين

Private Sub Receiving() End sub

اكتب ال code اللي مش عايزو يعلق فيه


شكرا مره ثانيه

حولو انت ل #C بقي y.png" border="0" alt="" title="Triggerhappyy" class="inlineimg" />

[tarek1500]

المشاركة الأصلية كتبت بواسطة ahmdod2 عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] اولا: شكرا علي الموضوع بس برضو مش عارف اظبط packet 3013 ^^ اجيب كل حاجه اجي عند ال Items و اضيع ثانيا: بالنسبه للناس اللي عايزه ال code في VB.NET Public Sub SendPacket(ByVal OpCode As String, ByVal sData As String, ByVal direction As Byte, ByVal Enc As Boolean) Using buffer As New IO.MemoryStream Using w As New IO.BinaryWriter(buffer) w.Write(CUShort(0)) ' Size is 0 because it 'cannot' be known yet. w.Write(CUShort("&H" + OpCode)) ' Converts the string Opcode to a UInt16, reading the Opcode as a hexadecimal representation If Enc = True Then If direction = 1 Then 'send to server w.Write(CUShort(3)) ' Encryption flag phConnector ElseIf direction = 2 Then 'send to client w.Write(CUShort(4)) End If Else If direction = 1 Then 'send to server w.Write(CUShort(1)) ' Encryption flag phConnector ElseIf direction = 2 Then 'send to client w.Write(CUShort(2)) End If End If For n As Integer = 0 To sData.Length / 2 - 1 ' Each byte is two characters and starting from 0 so decreasing by 1 w.Write(CByte("&H" & sData.Substring(n * 2, 2))) ' Writes every byte Next w.BaseStream.Position = 0 ' Resets the position to write the size w.Write(CUShort(w.BaseStream.Length - 6)) ' Writes the size to the '0' placeholder w.Flush() ' Makes sure the data is written to the buffer Client.Send(buffer.ToArray) ' Sends the buffer to the Socket End Using End Using End Sub او ده Public Sub SendPacket(ByVal OpCode As String, ByVal sData As String) Using buffer As New IO.MemoryStream Using w As New IO.BinaryWriter(buffer) w.Write(CUShort(0)) w.Write(CUShort("&H" + OpCode)) w.Write(CUShort(1)) For n As Integer = 0 To sData.Length / 2 - 1 w.Write(CByte("&H" & sData.Substring(n * 2, 2))) Next w.BaseStream.Position = 0 w.Write(CUShort(w.BaseStream.Length - 6)) w.Flush() Client.Send(buffer.ToArray) End Using End Using End Sub طبعاً لازم تعَرف ال Client الأول بعدها اعمل connect ل 127.0.0.1 وبال port بتاع phconnector يا tarek لو مش عايز ال form تعلق اعمل thread جديده Dim Recv As Thread = New Thread(AddressOf Receiving) وبين Private Sub Receiving() End sub اكتب ال code اللي مش عايزو يعلق فيه شكرا مره ثانيه حولو انت ل #C بقي y.png" border="0" alt="" title="Triggerhappyy" class="inlineimg" />

انا ظبطها تمام مش بتعلق ، انا عديت المرحلة ديه ، وصلت لمرحلة عاوز طريقة ثابتة احلل بيها اي Packet علشان في Packets غلسة زي 0x2114 بتاعة ال HackShield

[ahmdod2]

لا مقدرش افيدك في الموضوع ده انا سبت iSro من زمن

[tarek1500]

استاذ acer محتاج مساعدة ، ياريت الموضوع يكمل

[arshmieds]

بقولك ايه سؤال على السريع هو ده بوت لسيلك رود العاديه الى هى ورلد سيرفر ولا بريفت سيرفر

[tarek1500]

المشاركة الأصلية كتبت بواسطة arshmieds عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] بقولك ايه سؤال على السريع هو ده بوت لسيلك رود العاديه الى هى ورلد سيرفر ولا بريفت سيرفر

انهي واحد؟؟؟

[arshmieds]

المشاركة الأصلية كتبت بواسطة tarek1500 عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] انهي واحد؟؟؟

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

[tarek1500]

علي اي حاجة ، علي حسب انت شغال علي انهي سيرفر بس بتختلف طريقة تحليل البيانات من سيرفر ل التاني بس في حاجات ثابته

[gofa_25]

يا جماعة لو سمحتوا انا عندى مشكلة بس فى الكونكت مش فاهمها
اولا انا بشتغل على vb6
فيه مشكلة مع ال x و ال y
دلوقتى اول ما افتح بيظهروا فى ال 3013
تمام بس انا مش عارف هما فين بالظبط
اللى مشروح فى الأول خالص بيبقى ال x 8 أرقام
إزاى وهية المفروض 4 بس؟؟؟

[tarek1500]

المشاركة الأصلية كتبت بواسطة gofa_25 عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] يا جماعة لو سمحتوا انا عندى مشكلة بس فى الكونكت مش فاهمها اولا انا بشتغل على vb6 فيه مشكلة مع ال x و ال y دلوقتى اول ما افتح بيظهروا فى ال 3013 تمام بس انا مش عارف هما فين بالظبط اللى مشروح فى الأول خالص بيبقى ال x 8 أرقام إزاى وهية المفروض 4 بس؟؟؟

ده اخر تعديل علي Packer 3013 ان شاء الله ممكن يتغير تاني حسب مزاج الشركة ، و الحاجات ال مش معروفة ممكن تحاول تعرفها بالتجربة

Lv Max_Lv Cur_Exp Skill_Ex Gold Skill_pt Stat Zerk Cur_HP Cur_MP Noob_Flag PK Inv_Max Inv_Num Num Head Item_Details Num Chest Item_Details Shoulder Item_Details Hands Item_Details Legs Item_Details Foot Item_Details 1st_Wea Item_Details Shield Item_Details Job_Suit Item_Details Earring Item_Details Necklace Item_Details Ring Item_Details Ring Item_Details 1st_inv 8C06826E مش عارف 73070000 صورة الشخصية ، و ممكن تحدد اذا كانت EU ولا CH 42 الحجم ، 4 الارتفاع و 2 العرض ، او العكس مش فاكر 01 اللفل 01 اعلي لفل ، لو مت مثلا و لفلك قل بقولك اعلي لفل انت جبته 0000000000000000 ال Exp 0000 ال SP 0000 مش عارف 0000000000000000 ال Gold 00000000 الشريط بتاع ال SP و أقصي قيمة ليه 400 0000 نقاط ال STR او ال INT اللي بتيجي كل لفل 00 عدد نقاط ال Zerk و أقصي قيمة 5 00000000 مش عارف C8000000 ال HP الحالي و ليس الكلي C8000000 ال MP الحالي و ليس الكلي 01 العلامة بتاعة الناس اللي اقل من 20 ، 1 يبقي فيه علامة ، 0 يبقي مفيش 0000000000000000 حاجات ال PK 00 مش عارف 2D عدد الاماكن في الشنطة بيبدء من 0 و يكون ازيد من عدد الاماكن ب 13 ، "13 دول الاسلحة و اللبس" 08 عدد الاماكن المليانه في الشنطة بالاسلحو باللبس 01 المكان رقم 1 "اللي هو رقم 2" 00000000 مش عارف 380E0000 ID الايتم 00 عدد البليس "Plus" 00000000000000002C000000000100020003000400 معلومات عن الايتم 04 المكان رقم 4 "اللي هو رقم 5" 00000000 مش عارف 390E0000 ID الايتم 00 عدد البليس "Plus" 00000000000000002C000000000100020003000400 معلومات عن الايتم 05 نفس الكلام 00000000 3A0E0000 00 00000000000000002C000000000100020003000400 06 نفس الكلام 00000000 300E0000 00 00000000000000003E000000000100020003000400 07 نفس الكلام 00000000 E8290000 00 00000000000000002E000000000100020003000400 0D المكان رقم 13 "اللي هو رقم 14" ، اول مكان في الشنطة 00000000 مش عارف 421D0000 ID الايتم 0100 معلومات عن الايتم 0E نفس الكلام 00000000 431D0000 0100 0F نفس الكلام 00000000 1A4B0000 1400 لما تخلص الشنطة تدخل علي ال Avatar 05 عدد اماكن ال Avatar 00 عدد حتت ال Avatar اللي لبسها "0 يعني مفيش" 00 عدد اماكن ال Specialty Goods Box "طبعا انا مش محدد trader او thief ف المعلومات بتاعتها مش مكتوبه هنا" 0B عدد اماكن لبس ال job 00 عدد الحاجات اللي لبسها 00 بداية ال Mastery 01 طول م الرقم ده 1 معناه ان في Mastery لسه 01 رقم ال Mastery 01 تقريبا نوعه 1 لو CH 2 لو EU 0000 مش عارف 00 لفل ال Mastery 01 1 يعني في Mastery تاني 02 رقم ال Mastery 01 تقريبا نوعه 1 لو CH 2 لو EU 0000 مش عارف 00 لفل ال Mastery 01 نفس الكلام 03 01 0000 00 01 1 يعني في Mastery تاني 11 رقم ال Mastery "11 و 12 و 13 و 14 بتوع ال Cold fire و كده ، بس مش عارف في خر Update اتغيرو ولا لأ" 01 تقريبا نوعه 1 لو CH 2 لو EU 0000 مش عارف 00 لفل ال Mastery 01 نفس الكلام 12 01 0000 00 01 نفس الكلام 13 01 0000 00 01 نفس الكلام 14 01 0000 00 02 نهاية ال Mastery 00 بداية ال Skills " وطبعا مفيش عندي ف المعلومات مش موجودة" 02 نهاية ال Skills 0100 عدد ال Quests المتاحة ليا 01000000 ID ال Quest 043C040000000100005808010102[[001B]SN_CON_QNO_LV_WEAPON_CH_1_1]010000000003FD960000F6970000F597000044040000000100005808010102[[001B]SN_CON_QNO_LV_SHIELD_CH_1_1]010000000003FD960000F6970000F59700004C040000000100005808010102[[001C]SN_CON_QNO_LV_DEFENSE_CH_1_1]010000000003FD960000F6970000F597000054040000000100005808010102[[001E]SN_CON_QNO_LV_ACCESSORY_CH_1_1]010000000003FD960000F6970000F5970000 معلومات عن ال Quests اللي واخدها 00 مش عارف 00000000 مش عارف 2EFC5200 Unique ID A7 X 61 Y C8CF1244 X " 4 بايت مش 2 بتتحول ب فنكشن اسمها BitConverter.ToSingle() شوف في ال VB اسمها ايه" 18D18CC0 Z ملهاش لزمة B080EC44 Y " 4 بايت مش 2 بتتحول ب فنكشن اسمها BitConverter.ToSingle() شوف في ال VB اسمها ايه" CE46 الزاوية ، معرفش لزمتها 000100 ليها علاقة ب الحركة اة الوقوف او الموت تقريبا CE46 الزاوية ، معرفش لزمتها 00 مش عارف 00000000 مش عارف 00008041 سرعة المشي 00004842 سرعة الجري 0000C842 سرعة ال Zerk 00 مش عارف 0B00 عدد حروف الاسم 416C6C5F466F725F46756E الاسم " All_For_Fun" 0000 عدد حروف اسم ال Trader او ال Thief "0 طبعا مفيش" 00 مش عارف 00 ال Rank بتاع ال Job تقريبا 01 تقريبا 1 Trader و 0 Thief 01 لفل ال Job 0000000000000000 Exp بتاع ال Job 0000000000000000 مش عارف 00 مش عارف FF مش عارف 0000000000000000 مش عارف 7585D200 Player ID 0000 مش عارف 00 عدد الحاجات اللي محطوطة في ال Bar اللي تحت و اللي علي اليمين " في كل البارات" 00000000000000000000010001000002 مش عارف

[gofa_25]

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

انا ببعته كدة
0x010057300200953C010004000147000000
هل دة كدة صح ودى اللغة اللى بتتبعت للسيرفر ؟
وسؤال كمان
الشيك سيم دة بيتغير ع اساس ايه !؟

[desertstorm6]

طالما انت خبرة كدا متعمل انت بوت وترفعو لينا

[tarek1500]

المشاركة الأصلية كتبت بواسطة gofa_25 عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] طيب تمام طب فيه حاجة كمان معلش دلوقتى انا عملت كونكت بالنيوكونكتور بتاع الأج بوت وبفت اللعبة وبتظهرلى الأوبى كود فى البوت بس فيه مشكلة انا دلوقتى لو عايز ابعت باكت ببعته على انهى كونكت اللى بالنيوكونكتور ولا باللعبة انا بعملها ع النيوكونكتور بس مش بتشتغل بس انا اعتقد انى ببعت باكت غلط اصلا فعايز اعرف لو سمحت الباكت بتبقى بلغة ايه انا عايز ابعت باكيت حركة انا ببعته كدة 0x010057300200953C010004000147000000 هل دة كدة صح ودى اللغة اللى بتتبعت للسيرفر ؟ وسؤال كمان الشيك سيم دة بيتغير ع اساس ايه !؟

المفروض بتبعتو علي ال IP بتاع النيوكونكتور ده المفروض غير كده المفروض انت بتعمل كونكت علي تطول ل السيرفر من غير نيوكونكتور ده لو عاوز Clientless ، انما لو عاوز Client انت المفروض تعمل Bind ل IP وهمي و تفتح ال Client عليه ،
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
ده سورس بوت بس المشكلة مفهوش كل ال Packets بتاعة سيلك العالمية

المشاركة الأصلية كتبت بواسطة desertstorm6 عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] طالما انت خبرة كدا متعمل انت بوت وترفعو لينا

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

[gofa_25]

المشاركة الأصلية كتبت بواسطة tarek1500 عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] المفروض بتبعتو علي ال ip بتاع النيوكونكتور ده المفروض غير كده المفروض انت بتعمل كونكت علي تطول ل السيرفر من غير نيوكونكتور ده لو عاوز clientless ، انما لو عاوز client انت المفروض تعمل bind ل ip وهمي و تفتح ال client عليه ، عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] ده سورس بوت بس المشكلة مفهوش كل ال packets بتاعة سيلك العالمية

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

طيب مقولتليش هوة دة شكل الباكيت اللى بيتبعت !؟
وايه الشيك سيم دة ؟!

*أنا باعتلك رسالة فى ماسيدج فى البروفايل بتاعك*

[tarek1500]

المشاركة الأصلية كتبت بواسطة gofa_25 عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] اه ماهو عندى بس انا بشتغل على فيجوال بيزك 6 عشان البرنامج يكون خفيف وسريع طيب مقولتليش هوة دة شكل الباكيت اللى بيتبعت !؟ وايه الشيك سيم دة ؟!

0x 0900 2170 0100 01 6B 6B 9400 B400 7300
ده شكل باكت الحركة
الشيك سيم ده لحد دلوقتي مش فاهمة الصراحة ، انا ممشية زي السورس بالظبط