منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تحويل من Hex الى text - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تحويل من Hex الى text (/showthread.php?tid=46595)

تحويل من Hex الى text - aminesori - 18-07-23

السلام عليكم ممكن طريقة تحويل من Hex الى text








PHP كود :
00530061006D0061002C00200053006F006C006400650020003400380035002C0037003000440041 

الموقع التالى يقوم بالتحويل فكيف يمكن ذلك فى بيئه ال دوت نت
https://www.hextotext.com/en/convert-hex-to-text

RE: تحويل من Hex الى text - Taha Okla - 18-07-23

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

كود :
Dim X() As Byte = Encoding.Default.GetBytes(TextBox1.Text)

TextBox2.Text = BitConverter.ToString(X).Replace("-", "")


RE: تحويل من Hex الى text - aminesori - 18-07-23

لم تشتغل النتيجة كالتالي
3030353330303631303036443030363130303243303032303030353330303646303036433030363430303635303032303030333430303338303033353030324330303337303033303030343430303431

RE: تحويل من Hex الى text - Taha Okla - 18-07-23

الكود الذي تريده من Hex To String   وليس العكس

حدد ما تريد بشكل دقيق لتحصل على الكود المناسب


الكود التالي من  Hex To String   في حال التقسيم رباعي الخانات

كود :
Dim Y() As Byte = New Byte(TextBox2.Text.Length / 4) {}


For i = 0 To TextBox2.Text.Length / 4 - 1
   Y(i) = Convert.ToByte(TextBox2.Text.Substring(i * 4, 4), 16)
Next

TextBox3.Text = Encoding.ASCII.GetString(Y)


الكود التالي من  Hex To String   في حال التقسيم ثنائي الخانات

كود :
Dim Y() As Byte = New Byte(TextBox2.Text.Length / 2) {}


For i = 0 To TextBox2.Text.Length / 2 - 1
   Y(i) = Convert.ToByte(TextBox2.Text.Substring(i * 2, 2), 16)
Next

TextBox3.Text = Encoding.ASCII.GetString(Y)


RE: تحويل من Hex الى text - aminesori - 18-07-23

شكر لك هذا ما اريد تمام