تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً
#1
Bug 
السلام عليكم ورحمة الله وبركاته

اليوم اضع بين ايديكم سورس كود
وظيفته يقوم بتحويل النص الـ ارقام ومن ارقام الى نص مجدداً

الاكواد بسيطة وبدون تعقيد كل ما فى الامر تم استخدام
كود :
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)

تحياتى للجميع
وتمنياتى للجميع كل التوفيق


الملفات المرفقة
.zip   Pro Encoding.zip (الحجم : 47.59 ك ب / التحميلات : 315)
.zip   Encoding.zip (الحجم : 219.38 ك ب / التحميلات : 366)
.zip   صور الشرح.zip (الحجم : 20.89 ك ب / التحميلات : 182)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#2
شكرا جزيلا لك ..
Heart
+1
الرد }}}
تم الشكر بواسطة: elgokr , سعود
#3
(01-07-18, 04:06 AM)YousefOkasha كتب : شكرا جزيلا لك ..
Heart
+1


الشكر لله



وتسلم على ردك والدعم

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: سعود
#4
بارك الله فيك ياطيب 
لا اريد ان اقحم اسئلتي هناSmile
لكن هذا الموضوع ذكرني بسؤال عن  عمود options فهل هناك علاقة بينهما؟
اقصد هل هذه الطريقة استفيد منها لتعبئة عمود options في vbulletin -mysql-databse-tables-table-options
الرد }}}
تم الشكر بواسطة: elgokr
#5
مشكلة في البرنامج اخي ..

عن عمل T1:T2 يتم تشفير النصوص و هذا امر طبيعي ..
لكن يجب عكس الشئ من T2:T1 لفك تشفير النصوص ..

فقد توصلت لطريقة لتشفير النصوص ..

شكرا لك  Heart
الرد }}}
تم الشكر بواسطة: elgokr
#6
(01-07-18, 10:51 AM)سعود كتب : بارك الله فيك ياطيب 
لا اريد ان اقحم اسئلتي هناSmile
لكن هذا الموضوع ذكرني بسؤال عن  عمود options فهل هناك علاقة بينهما؟
اقصد هل هذه الطريقة استفيد منها لتعبئة عمود options في vbulletin -mysql-databse-tables-table-options

بكل تاكيد اخى سعود فالفضل يرجع لك
فهى احد ردود حل مشكلة فى ترميز الاحرف مع قاعدة بيانات Sql Server
بموضيعي السابقة لذلك عند استخدامى لهذا الكود هنا

توجب عليا اضافة رابط المشاركة المصدر
حتى تلتفت انت شخصياً لها  Wink

فكل التحية لك
وتمنياتى لك التوفيق

(01-07-18, 02:20 PM)YousefOkasha كتب : مشكلة في البرنامج اخي ..

عن عمل T1:T2 يتم تشفير النصوص و هذا امر طبيعي ..
لكن يجب عكس الشئ من T2:T1 لفك تشفير النصوص ..

فقد توصلت لطريقة لتشفير النصوص ..

شكرا لك  Heart

لا يوجد اى مشكلة اخى
كل الفكرة التى قمت بعملها فى T3
بدلاً من T1

لتاكيد المستخدم ان الكود يتم التحويل
وبتطابق لما كتبه وبحيث انه لا يقوا ان الزر لا يعمل شي

انما طريقة الاستخدام ترجع لمستخدم الكود
لطريقة ما يرده فيمكنه استخدام الفكرة كلها من T1: T1 والعكس

(ملحوظة)
حرف T المقصود بها textbox

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#7
حسنا ..

شكرا لك و بارك الله فيما تقدمة  Heart
الرد }}}
تم الشكر بواسطة: elgokr
#8
(02-07-18, 01:50 AM)YousefOkasha كتب : حسنا ..

شكرا لك و بارك الله فيما تقدمة  Heart


تسلم اخى YousefOkasha


والشكر لله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: YousefOkasha
#9
إقتباس :بكل تاكيد اخى سعود فالفضل يرجع لك
فهى احد ردود حل مشكلة فى ترميز الاحرف مع قاعدة بيانات Sql Server
بموضيعي السابقة لذلك عند استخدامى لهذا الكود هنا

توجب عليا اضافة رابط المشاركة المصدر
حتى تلتفت انت شخصياً لها  

فكل التحية لك
وتمنياتى لك التوفيق
اخي الكريم بارك الله فيك
الفضل لله تعالى
لكن قصدي سؤال فعلاSmile
لي فترة لم اتوصل لحل لكن لا عليك ان تمكنت منها اضيفها كموضوع بسيط.
تحياتي
الرد }}}
تم الشكر بواسطة: elgokr
#10
(04-07-18, 12:38 PM)سعود كتب :
إقتباس :بكل تاكيد اخى سعود فالفضل يرجع لك
فهى احد ردود حل مشكلة فى ترميز الاحرف مع قاعدة بيانات Sql Server
بموضيعي السابقة لذلك عند استخدامى لهذا الكود هنا

توجب عليا اضافة رابط المشاركة المصدر
حتى تلتفت انت شخصياً لها  

فكل التحية لك
وتمنياتى لك التوفيق
اخي الكريم بارك الله فيك
الفضل لله تعالى
لكن قصدي سؤال فعلاSmile
لي فترة لم اتوصل لحل لكن لا عليك ان تمكنت منها اضيفها كموضوع بسيط.
تحياتي

ارسل لى اخى سعود ما تواجه مع قاعدة بيانات المنتديات

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Brick [VB.NET] سورس كود لمشروع Notification Box.. صندوق الاشعارات musalem 2 760 02-01-24, 02:26 PM
آخر رد: hasannaseer
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 42 34,751 07-10-23, 07:25 PM
آخر رد: حورس2000
Brick [VB.NET] سورس كود LCD CLOCKZ هو مشروع لساعة ديجيتال بشكل مميز وجذاب musalem 0 532 04-07-23, 02:08 AM
آخر رد: musalem
Information [VB.NET] سورس كود لمشروع ادارة كوفي شوف صغير.. under development musalem 0 641 04-07-23, 01:56 AM
آخر رد: musalem
Music [VB.NET] سورس كود برنامج إذاعي متطور musalem 0 625 25-06-23, 02:06 AM
آخر رد: musalem
Brick [مشروع] سورس كود برنامج إدارة المخزن MStore بلغة VB.NET musalem 1 1,378 17-06-23, 10:03 AM
آخر رد: atefkhalf2004
  [VB.NET] برنامج تحويل النصوص بصوت عربي مسموع ثم حفظ الصوت بصيغة wav (تم اعادة الرفع) abo ragab 2 1,599 02-04-23, 10:21 PM
آخر رد: naz123
  [VB.NET] سورس كود برنامج تشغل القران الكريم عبر الانترنت [ تم تحديث الموضوع ] elgokr 11 8,379 27-03-23, 10:35 AM
آخر رد: Hend m
  [VB.NET] سورس كود لعملية تعبئة TreeView ببيانات من ثلاث جداول فاكثر elgokr 19 13,015 12-02-23, 10:10 AM
آخر رد: salamandal
  سورس كود برنامج IT للعهدة والمستخدمين والاجهزة محمدالزند 10 6,112 28-11-22, 02:41 PM
آخر رد: ali_ahmed12

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم