السلام عليكم ورحمة الله وبركاته
تفضل أخي هذا هو الكود ولكن ستحتاج إلى مربعي نص وزرين
PHP كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Byte() = System.Text.Encoding.UTF8.GetBytes(TextBox1.Text)
For Each V As Byte In x
TextBox2.Text &= Hex(V) & " "
Next
TextBox2.Text = TextBox2.Text.Trim
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim HexArray As String() = TextBox2.Text.Split(" ")
Dim X() As Byte = (From HexString In HexArray Select CByte("&H" & HexString)).ToArray
MsgBox(System.Text.Encoding.UTF8.GetString(X))
End Sub
End Class
لاحظ أنني قمت باختيار الترميز UTF-8 وذلك لحل أي مشكلة بسبب اختلاف اللغة...
بالتوفيق
يسلمو هالادين,,,
الله يبارك فيك,,