[aminesori]

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

PHP كود :

00530061006D0061002C00200053006F006C006400650020003400380035002C0037003000440041 


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

[Taha Okla]

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

كود :

Dim X() As Byte = Encoding.Default.GetBytes(TextBox1.Text)

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

[aminesori]

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

[Taha Okla]

الكود الذي تريده من 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)

[aminesori]

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