[طالب برمجة]

PHP كود :

Dim txt = "=D8=A7=D9=84=D8=B3=D8=B9=D8=A7=D8=AF=D9=87"
txt = txt.Replace("=", "") ' = حذف الرمز

Dim byt((txt.Length / 2) - 1) As Byte ' إنشاء مصفوفة بعدد البايتات المشفرة

For i = 0 To byt.Length - 1
    ' تحويل الشفرة السداسيعشري إلى بايت ووضعها في المصفوفة
    byt(i) = Val("&h" & txt.Substring(i * 2, 2))

Next

' UTF8 تحويل مصفوفة البيانات إلى نص على أساس الترميز
txt = System.Text.Encoding.UTF8.GetString(byt)

MsgBox(txt)