ابي مساعدة في كيفية تحويل كود الـ UCS-2 الى كود الـ windows-1256
لكي استطيع قراة نص الرسالة
باختصار وردتني رسالة على فظرهت بهذا الشكل : 0648064606390645002006280
فعلمت انها مشفرة بتنسيق كود الـ UCS-2
انا جربت الكود التالي فظهر لي النص بعد التحول الى : ؟؟؟؟؟؟؟؟؟؟؟؟؟؟
اطلب مساعدتكم في اكتشاف مكان الخطأ في الكاود التالي
imports system
imports system.text
Module Module1
Sub Main()
Dim Unicode As String = Nothing
Unicode = InputBox("ادخل نص الـ UCS2 المراد تحويله")
UCS2ToTexet(Unicode)
End Sub
Private Function UCS2ToTexet(ByVal UCS2String As String) As String
Dim Result As String = Nothing
Try
Dim Res As String = Nothing
Dim byt As Byte() = Encoding.Default.GetBytes(UCS2String)
Res = Encoding.GetEncoding("utf-16").GetString(byt)
Dim ss As Byte() = Encoding.Convert(Encoding.GetEncoding("utf-16"), Encoding.GetEncoding("windows-1256"), byt)
Result = Text.Encoding.GetEncoding("windows-1256").GetString(ss)
MsgBox(Result)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Return Result
End Function
End Module