[Zuhare]

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim hexadecimal = String.Concat(TextBox1.Text.Split)
    Dim ASCII As String = String.Empty
    For i = 0 To hexadecimal.Length - 1 Step 2
        Dim b = Convert.ToByte(hexadecimal.Substring(i, 2), 16)
        If b > 0 Then ASCII &= Chr(b)
    Next
    TextBox2.Text = ASCII
End Sub