تقييم الموضوع :
  • 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 ك ب / التحميلات : 209)
.zip   Encoding.zip (الحجم : 219.38 ك ب / التحميلات : 244)
.zip   صور الشرح.zip (الحجم : 20.89 ك ب / التحميلات : 128)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#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
لي فترة لم اتوصل لحل لكن لا عليك ان تمكنت منها اضيفها كموضوع بسيط.
تحياتي

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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] سورس كود (برنامج تعليم الإنجليزية للأطفال) لسه مبتدئ 2 1,453 , 03:33 AM
آخر رد: عبد العزيز البسكري
Video [درس فيديو] تشفير النصوص والغاء تشفيرها باستخدام md5 ahmadpal 0 82 06-06-20, 03:47 AM
آخر رد: ahmadpal
Video [درس فيديو] مشروع تشفير وفك تشفير النصوص بطريقة سهله وبسيطة ahmadpal 0 92 06-06-20, 03:39 AM
آخر رد: ahmadpal
Lightbulb سورس كود برنامج صانع الاكواد asemshahen5 50 17,071 18-05-20, 02:33 AM
آخر رد: ibra9009
Wink [مشروع] اختراع تشفير بمفتاح من عندي:) سعود 1 215 07-05-20, 07:48 AM
آخر رد: سعود
Wink [مشروع] مشروع قراءة النصوص التي بالصورة ahmadpal 0 191 07-04-20, 03:17 AM
آخر رد: ahmadpal
  فكرة لم تكتمل لبرنامج عرض قصص مصورة abubasilIraq 1 279 28-03-20, 10:59 PM
آخر رد: أمجد وضاح
  سورس كود نظام محاسبة بازار + كود نظام مبيعات adel2012 10 12,401 27-03-20, 02:37 PM
آخر رد: avrest
Thumbs Up سورس كود برنامج مبيعات ومخازن نورالدين32 0 548 20-03-20, 04:00 AM
آخر رد: نورالدين32
  [VB.NET] سورس كود برنامج تشغل القران الكريم عبر الانترنت [ تم تحديث الموضوع ] elgokr 7 1,696 31-12-19, 07:18 PM
آخر رد: أمجد وضاح

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


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