منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مثال و مشكلة (تشفير نص) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مثال و مشكلة (تشفير نص) (/showthread.php?tid=52976)

مثال و مشكلة (تشفير نص) - mmaalmesry - 04-05-25

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

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

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

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

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

RE: مثال و مشكلة (تشفير نص) - princelovelorn - 04-05-25

(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


RE: مثال و مشكلة (تشفير نص) - أبو خالد الشكري - 05-05-25

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

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

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

RE: مثال و مشكلة (تشفير نص) - mmaalmesry - 06-05-25

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

RE: مثال و مشكلة (تشفير نص) - أبو خالد الشكري - 06-05-25

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

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

RE: مثال و مشكلة (تشفير نص) - mmaalmesry - 09-05-25

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

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