[princelovelorn]

(04-05-25, 11:27 AM)mmaalmesry كتب : السلام عليكم و رحمة الله و بركاته

المثال المرفق عبارة عن أداة تشفير Encoding لأى نص و كذلك فك التشفير Decoding

المشكلة فى أنه عند تشفير نص باللغة العربية يقوم بتشفيره لكن عند فك التشفير يظهر علامات غير مفهومة

ملاحظة : لا يحدث ذلك فى كل الماكينات

أرجو الحل لهذه المشكلة

تصحيح المثال كاملاً

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If sender.text = "Encoding" Then
           TextBox1.Text = Encoding(TextBox1.Text)
       Else
           TextBox1.Text = Decoding(TextBox1.Text)
       End If

       If sender.text = "Decoding" Then
           sender.text = "Encoding"
       Else
           sender.text = "Decoding"
       End If
   End Sub

   Public Function Encoding(orgin As String) As String
       Dim A As String
       Dim result As String = ""

       For I = 1 To Len(orgin)
           A = Format$(AscW(Mid(orgin, I, 1)), "0000")
           result &= A
       Next

       Return result
   End Function

   Public Function Decoding(orgin As String) As String
       Dim A As String
       Dim result As String = ""

       For I = 1 To Len(orgin) Step 4
           A = ChrW(CInt(Mid(orgin, I, 4)))
           result &= A
       Next

       Return result
   End Function
End Class