[mmaalmesry]

السلام عليكم و رحمة الله و بركاته

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

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

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

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

[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

[أبو خالد الشكري]

لقد قمت بتغير خصائص TexetBox1 لتجربة إدخال فقرة بدلا من جملة !

فجعلت خصائصه كالتالي :
Multiline = True
Scrollbars= Vertical

ثم أدخلت فقرة بدلا من جملة واحدة ،
وفعلا نجح التشفير بنسبة 100% 

[mmaalmesry]

الحمد لله حلت المشكلة و شكرا لكم

[أبو خالد الشكري]

السلام عليكم
عندي سؤال لك يا أخ mmaalmesry 

ما هي المجالات التي يمكنك فيها استخدام تقنية تشفير النصوص ؟

[mmaalmesry]

و عليكم السلام أخى العزيز

مثلا عندما تريد تسويق برنامج فتقوم بتحديد رقم المعالج للآلة مثلا ككلمة مرور وتقوم بتشفيرها ثم فك التشفير