+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس (/showthread.php?tid=26187)
الصفحات:
1
2
RE: الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس - wolf1120 - 22-08-18
عيدكم مبارك وكل عام وانتم بخير
لقد قمت برفع ملف جديد وارفقت داخله كود
لقد ارفقت لك الكود داخل سورس
يوجد به خطأ لماذ لايضر الملف عند تصديره في الليست
يوجد به خطأ صغير
الرجاء من ذوي الخبره المساعده
وشكرا لكم مسابقا على حسن التعامل والمساعدة.
RE: الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس - elgokr - 22-08-18
(22-08-18, 04:11 PM)wolf1120 كتب : عيدكم مبارك وكل عام وانتم بخير
لقد قمت برفع ملف جديد وارفقت داخله كود
لقد ارفقت لك الكود داخل سورس
يوجد به خطأ لماذ لايضر الملف عند تصديره في الليست
يوجد به خطأ صغير
الرجاء من ذوي الخبره المساعده
وشكرا لكم مسابقا على حسن التعامل والمساعدة.
نعم اخى لاحظت هذا من البداية
ولكن فى هذه المرة لم ترفق الملف المطلوب الاختبار عليه
لاتمام فتحه وعرضه فى ListBox حتى توضح لى الامر اكثر عن الملف وعن التعامل عليه
لان من الممكن ان افعل لك الكود يعمل على ملف text بما ان الفكرة اساسها لم تصل بعد
لكن فى النهاية الكود ليس هو المراد بما تريد فعله لذلك عندما توضح الفكرة المطلوبة مع ارفاق الملف
تحياتى لك
وتمنياتى لك التوفيق
RE: الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس - wolf1120 - 22-08-18
الملف مع السورس اخي
ومعذرة لكم
RE: الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس - elgokr - 22-08-18
(22-08-18, 07:19 PM)wolf1120 كتب : الملف مع السورس اخي
ومعذرة لكم
ولا يهمك اخى wolf1120
تذكر الملف المطلوب فتحه وتحريره ثم اعادة حفظه غير قابل للقراءة والكتابة
حيث انه يظهر المحتوى على شكل PHP كود :
����������������������
يجب ان يكون الملف المطلوب تحريره قابل للتعديل وغير مشفر
على اى حال قمت بعمل السورس فى كلا الاحوال
فيمكنك فتح ملف المطلوب تحريره اى كان الاهم انه قابل للتحرير وغير مشفر
او انك تكون على علم نوع الملف المشفر وتضح كود فك التشفير فى هذا السطر
كود :
Dim oReader As New StreamReader(SelectOpenFile.FileName, True)حيث ان مطلوب كود التضفير وليكن مثال ليصبح السطر بهذا الشكل
كود :
Dim oReader As New StreamReader(Code(SelectOpenFile.FileName), True)ولا تنسي اعادة التشفير بالمثل عن الحفظ
يمكنك تحميل السورس + برنامج للمعينة
بعتد اتمام اضافة الاكواد اللازمة لعمل فتح وحفظ التعديلات للملف
لاحظت انك قمت بعمل التصميم السابق لاتمام عمل
تحرير تعدد الملفات عكس ما انا فعلت
كنت ساعمل لك على فتح تعدد الملفات فى اوان واحد وتحرير وحفظ الملفات
لكن حتى اقوم بذلك يجب ان يكون الملف المطلوب الاختبار عليه قابل للتحرير
لان ابسط ما يمكنك فعله هو انشاء فوم وتقوم بتعريفه بانه فورم جديد
ليقوم بفتح هذا الفورم بعدد مرات تحرير الملفات ولكل فورم يتم فتحه يتم اخذ نص الملف
وحيث انه يحتوى على زر الحفظ فقط لاتمام حفظ التعديل بعد التحرير واغلاق الفورم عند الانتهاء من الحفظ
اتمنى ان تكون الفكرة وصلك لك
تحياتى لك
وتمنياتى لك التوفيق
RE: الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس - wolf1120 - 22-08-18
الملف المرفق بصيفة HEX ليس مشفر اخي الكريم
لماذا يضهر مربعات بدل حرف وارقام
RE: الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس - elgokr - 22-08-18
(22-08-18, 09:22 PM)wolf1120 كتب : الملف المرفق بصيفة HEX ليس مشفر اخي الكريم
لماذا يضهر مربعات بدل حرف وارقام
اخى الحبيب انا لا اقول ان الملف Hex او لا
لكن لرئية نص الـ Hex يجب عليك اتاحة قراءة الملف اولاً
ارفق لك ملف بصيغة BIN جرب ان تقوم وضعه فى البرنامج
او تحريره من خلال Notepad وما غير ذلك
ولاحظ الفرق بين تحرير الملف المرسل هنا وبين الملف المرسل من قبلك
اتمنى ان تكون الصورة وضحت لفكرة كلمة تشفير الملف
قم بعمل التغيير التالى
فى السورس المرفق سابقاً قم بتغيير الاسطر التالية
كود :
'RichTextBox1.Text = oReader.ReadToEnd
'oReader.Close()بهذا الكود
كود :
Dim strData As String = oReader.ReadToEnd
oReader.Close()
Dim sbHex As New StringBuilder
For Each c As Char In strData
sbHex.Append(Hex(Asc(c)))
Next
RichTextBox1.Text = sbHex.ToStringوستجد ان الملف يعرض ما بداخل الملف بصيغة الـ Hex
تحياتى لك
وتمنياتى لك التوفيق
RE: الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس - wolf1120 - 22-08-18
(22-08-18, 09:39 PM)elgokr كتب :(22-08-18, 09:22 PM)wolf1120 كتب : الملف المرفق بصيفة HEX ليس مشفر اخي الكريم
لماذا يضهر مربعات بدل حرف وارقام
اخى الحبيب انا لا اقول ان الملف Hex او لا
لكن لرئية نص الـ Hex يجب عليك اتاحة قراءة الملف اولاً
ارفق لك ملف بصيغة BIN جرب ان تقوم وضعه فى البرنامجاو تحريره من خلال Notepad وما غير ذلكولاحظ الفرق بين تحرير الملف المرسل هنا وبين الملف المرسل من قبلك
اتمنى ان تكون الصورة وضحت لفكرة كلمة تشفير الملف
قم بعمل التغيير التالى
فى السورس المرفق سابقاً قم بتغيير الاسطر التالية
كود :
'RichTextBox1.Text = oReader.ReadToEnd
'oReader.Close()
بهذا الكود
كود :
Dim strData As String = oReader.ReadToEnd
oReader.Close()
Dim sbHex As New StringBuilder
For Each c As Char In strData
sbHex.Append(Hex(Asc(c)))
Next
RichTextBox1.Text = sbHex.ToString
وستجد ان الملف يعرض ما بداخل الملف بصيغة الـ Hex
تحياتى لكوتمنياتى لك التوفيق
شكر لك علا الرد السريع
لكن انا اريد الملف المرفق يضهر عادي
وليس مشفر
المهم ارفقت لك صورة من ملف TEXT قمت برفعة علا البرنامج وهذه نتيجته
لكن ملف بين او هيكس يضهر مشفر المطلوب اريد ان يضهر كما في الصورة المرفقة وشكرا شكرا شكرا لك اخي الكريم
RE: الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس - elgokr - 22-08-18
انظر الى البرنامج المرفق
وقم بعمل فتح الملف المرفق معه
ستوضح لك الامر اكثر
ولاحظ بين كلاً من نتائجقراءة الـ Hex فى البرنامج
المرفق وبين البرنامج لديك لفتح ملفات الـ Hex
لعل تلاحظ الفرق وتتاكد من ما اقوله
انك يجب عليك معرفة باى اسلوب تم حفظ به الملف
حتى تتمكن من جعل الكود قراءة الملف وعرض الحتوى بدون اى مشكلة
المرفق البرنامج فقط للاختبار
لاحظ النصوص لمحتوى على الملف ستجد انه عرض الـ Hex الخاص بها بدون اى مشكلة
لانه تمكن من قراءة الامحتوى الاخير من الملف لانه بدون تشويش / تشفير
تحياتى لك
وتمنياتى لك التوفيق