01-07-18, 03:17 AM
السلام عليكم ورحمة الله وبركاته
اليوم اضع بين ايديكم سورس كود
وظيفته يقوم بتحويل النص الـ ارقام ومن ارقام الى نص مجدداً
الاكواد بسيطة وبدون تعقيد كل ما فى الامر تم استخدام
كود :
AscW
ChrWسيتم وضع الكود فى نهاية الموضوع لتعم الفائدة
ولكم لم يتمكن من فتح السورس بسبب الاصدار
اليكم صور البرنامج
1- ايقونة البرنامج
2- صورة واجهة البرنامج عند التشغيل
3- عند استخدام النصوص العربية
4- عند تشفير النص العربي
5- اعادة النص المشفر من خلال الارقام
6- عند استخدام النصوص الانجليزية
7- عند تشفير النص الانجليزي
8- اعادة النص المشفر من خلال الارقام
الاكواد المستخدمة
فى البداية تم ادراج Function حتى عند فك تشفير الارقام للاحرف العربية
يقوم بمعالجة الترميز لاحرف اللغة وعرضها باللغة العربية والكود المستخدم
كود :
Private Function conv1256(ByVal txt As String) As String
Dim dic As New Dictionary(Of String, String)
Const _1256 As String = "ÐÏÌÍÎåÚÛÝÞËÕÖØßãäÊÇáÈíÓÔÙÒæÉìÑÄÁÆøºÅñõðó¡ÜÃòö¿Âú"
Const _utf8 As String = "ذدجحخهعغفقثصضطكمنتالبيسشظزوةىرؤءئّ؛إًٌَُ،ـأٍِ؟آْ"
For i = 0 To (_1256.Length) - 1
dic.Add(_1256.Chars(i), _utf8.Chars(i))
Next i
For Each ch In txt
conv1256 &= If(dic.ContainsKey(ch), dic.Item(ch), ch)
Next
End Functionوصاحب المشاركة لهذا الكود (هنا)
الاكواد المستخدمة للتشفير فى الزر الاول لتحويل من Textbox1 الى Textbox2
كود :
If TextBox1.Text = Nothing Then
MsgBox("يجب ادخال اى نص حتى يتم استخراج النتائج.")
Exit Sub
End If
For ii As Integer = 1 To TextBox1.Text.Length
If ii = 1 Then TextBox2.Text = Nothing
TextBox2.Text += AscW(Mid(TextBox1.Text, ii, 1)) & Space(1)
Next
Button2.Enabled = Trueالكود المستخدم لاعادة التشفر فى الزر الثانى لتحويل من Textbox2 الى Textbox3
كود :
Dim Chr_ As String() = Split(TextBox2.Text, " ")
For ii As Integer = 0 To Chr_.Length - 2
If ii = 0 Then TextBox3.Text = Nothing
TextBox3.Text += conv1256(ChrW(Chr_(ii)))
Nextوبالنهاية اترك للجميع التحميل من المرفقات السورس + البرنامج
اتمنى من الجميع الاستخدام فى الجانب الايجابى
فانا ابراء نفسي امام الله من اى شخص قد يستخدم الفكرة فى ما لا يرضى الله
السورس (2015)
تحياتى للجميع
وتمنياتى للجميع كل التوفيق
