[الشاكي لله]

الفكرة سهلة :-

PHP كود :

'41 in unicode = A'
Dim hexNumber As Integer = &H41
Dim c As Char = CChar(hexNumber) 
MsgBox(c) 


الان بس عليك تقسم النص الي ارفقته وعمل حلقة foreach وكل سنة وانت طيب

---

[b]مثال :-[/b]

PHP كود :

Dim strHex As String = "4D 6F 68 61 6D 6D 65 64" 'Hex value for Mohammed'
Dim strSpilted As String() = strHex.Split(" "C)
Dim text As New StringBuilder()

For Each hexSegment As String In strSpilted
    Dim hex As Integer =Integer.Parse _
                        (hexSegment,System.Globalization.NumberStyles.AllowHexSpecifier)
Dim c As Char = CChar(hex)
    text.Append(c)
Next

MessageBox.Show(text.ToString()) 


النتيجة :-