+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [VB.NET] سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً (/showthread.php?tid=25583)
الصفحات:
1
2
سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - elgokr - 01-07-18
السلام عليكم ورحمة الله وبركاته
اليوم اضع بين ايديكم سورس كود
وظيفته يقوم بتحويل النص الـ ارقام ومن ارقام الى نص مجدداً
الاكواد بسيطة وبدون تعقيد كل ما فى الامر تم استخدام
كود :
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)
تحياتى للجميع
وتمنياتى للجميع كل التوفيق
RE: سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - YousefOkasha - 01-07-18
شكرا جزيلا لك ..
+1
RE: سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - elgokr - 01-07-18
(01-07-18, 04:06 AM)YousefOkasha كتب : شكرا جزيلا لك ..
+1
الشكر لله
وتسلم على ردك والدعم
تحياتى لك
وتمنياتى لك التوفيق
RE: سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - سعود - 01-07-18
بارك الله فيك ياطيب
لا اريد ان اقحم اسئلتي هنا
لكن هذا الموضوع ذكرني بسؤال عن عمود options فهل هناك علاقة بينهما؟
اقصد هل هذه الطريقة استفيد منها لتعبئة عمود options في vbulletin -mysql-databse-tables-table-options
RE: سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - YousefOkasha - 01-07-18
مشكلة في البرنامج اخي ..
عن عمل T1:T2 يتم تشفير النصوص و هذا امر طبيعي ..
لكن يجب عكس الشئ من T2:T1 لفك تشفير النصوص ..
فقد توصلت لطريقة لتشفير النصوص ..
شكرا لك
RE: سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - elgokr - 01-07-18
(01-07-18, 10:51 AM)سعود كتب : بارك الله فيك ياطيب
لا اريد ان اقحم اسئلتي هنا
لكن هذا الموضوع ذكرني بسؤال عن عمود options فهل هناك علاقة بينهما؟
اقصد هل هذه الطريقة استفيد منها لتعبئة عمود options في vbulletin -mysql-databse-tables-table-options
بكل تاكيد اخى سعود فالفضل يرجع لك
فهى احد ردود حل مشكلة فى ترميز الاحرف مع قاعدة بيانات Sql Server
بموضيعي السابقة لذلك عند استخدامى لهذا الكود هنا
توجب عليا اضافة رابط المشاركة المصدر
حتى تلتفت انت شخصياً لها 
فكل التحية لك
وتمنياتى لك التوفيق
(01-07-18, 02:20 PM)YousefOkasha كتب : مشكلة في البرنامج اخي ..
عن عمل T1:T2 يتم تشفير النصوص و هذا امر طبيعي ..
لكن يجب عكس الشئ من T2:T1 لفك تشفير النصوص ..
فقد توصلت لطريقة لتشفير النصوص ..
شكرا لك
لا يوجد اى مشكلة اخى
كل الفكرة التى قمت بعملها فى T3
بدلاً من T1
لتاكيد المستخدم ان الكود يتم التحويل
وبتطابق لما كتبه وبحيث انه لا يقوا ان الزر لا يعمل شي
انما طريقة الاستخدام ترجع لمستخدم الكود
لطريقة ما يرده فيمكنه استخدام الفكرة كلها من T1: T1 والعكس
(ملحوظة)
حرف T المقصود بها textbox
تحياتى لك
وتمنياتى لك التوفيق
RE: سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - YousefOkasha - 02-07-18
حسنا ..
شكرا لك و بارك الله فيما تقدمة
RE: سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - elgokr - 02-07-18
(02-07-18, 01:50 AM)YousefOkasha كتب : حسنا ..
شكرا لك و بارك الله فيما تقدمة
تسلم اخى YousefOkasha
والشكر لله
تحياتى لك
وتمنياتى لك التوفيق
RE: سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - سعود - 04-07-18
إقتباس :بكل تاكيد اخى سعود فالفضل يرجع لكاخي الكريم بارك الله فيك
فهى احد ردود حل مشكلة فى ترميز الاحرف مع قاعدة بيانات Sql Server
بموضيعي السابقة لذلك عند استخدامى لهذا الكود هنا
توجب عليا اضافة رابط المشاركة المصدر
حتى تلتفت انت شخصياً لها
فكل التحية لك
وتمنياتى لك التوفيق
الفضل لله تعالى
لكن قصدي سؤال فعلا
لي فترة لم اتوصل لحل لكن لا عليك ان تمكنت منها اضيفها كموضوع بسيط.
تحياتي
RE: سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً - elgokr - 05-07-18
(04-07-18, 12:38 PM)سعود كتب :إقتباس :بكل تاكيد اخى سعود فالفضل يرجع لكاخي الكريم بارك الله فيك
فهى احد ردود حل مشكلة فى ترميز الاحرف مع قاعدة بيانات Sql Server
بموضيعي السابقة لذلك عند استخدامى لهذا الكود هنا
توجب عليا اضافة رابط المشاركة المصدر
حتى تلتفت انت شخصياً لها
فكل التحية لك
وتمنياتى لك التوفيق
الفضل لله تعالى
لكن قصدي سؤال فعلا
لي فترة لم اتوصل لحل لكن لا عليك ان تمكنت منها اضيفها كموضوع بسيط.
تحياتي
ارسل لى اخى سعود ما تواجه مع قاعدة بيانات المنتديات
حتى اكون على علم بما تواجه
وساقوم بتوضيح لك الفكرة بكل بساطة وبمجرد ما شارح لك الفكرة
انا اعلم انك ستبدع كالعادة
تحياتى لك
وتمنياتى لك التوفيق