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

نسخة كاملة : تحويل من Hex الى text
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ممكن طريقة تحويل من Hex الى text








PHP كود :
00530061006D0061002C00200053006F006C006400650020003400380035002C0037003000440041 

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

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

TextBox2.Text = BitConverter.ToString(X).Replace("-", "")
لم تشتغل النتيجة كالتالي
3030353330303631303036443030363130303243303032303030353330303646303036433030363430303635303032303030333430303338303033353030324330303337303033303030343430303431
الكود الذي تريده من 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)
شكر لك هذا ما اريد تمام