السلام عليكم و رحمة الله و بركاته
المثال المرفق عبارة عن أداة تشفير Encoding لأى نص و كذلك فك التشفير Decoding
المشكلة فى أنه عند تشفير نص باللغة العربية يقوم بتشفيره لكن عند فك التشفير يظهر علامات غير مفهومة
ملاحظة : لا يحدث ذلك فى كل الماكينات
أرجو الحل لهذه المشكلة
(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
ما هي المجالات التي يمكنك فيها استخدام تقنية تشفير النصوص ؟
و عليكم السلام أخى العزيز
مثلا عندما تريد تسويق برنامج فتقوم بتحديد رقم المعالج للآلة مثلا ككلمة مرور وتقوم بتشفيرها ثم فك التشفير