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)
تحياتى للجميع
وتمنياتى للجميع كل التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية