صفحة 1 من 2 12 الأخيرةالأخيرة
النتائج 1 إلى 10 من 15
الموضوع:

مقدمة عن علم التشفير وعمل برنامج لشفرة القيصر ( Encryption و Decryption )

الزوار من محركات البحث: 335 المشاهدات : 2519 الردود: 14
الموضوع حصري
جميع روابطنا، مشاركاتنا، صورنا متاحة للزوار دون الحاجة إلى التسجيل ، الابلاغ عن انتهاك - Report a violation
  1. #1
    Software Developer
    Expert in Encryption
    تاريخ التسجيل: January-2010
    الدولة: البـــــصرة
    الجنس: ذكر
    المشاركات: 7,348 المواضيع: 422
    صوتيات: 7 سوالف عراقية: 0
    التقييم: 6778
    مزاجي: ****
    المهنة: مبرمج شركة Weir
    أكلتي المفضلة: ****
    موبايلي: ****
    آخر نشاط: 14/November/2022
    مقالات المدونة: 163

    Rose مقدمة عن علم التشفير وعمل برنامج لشفرة القيصر ( Encryption و Decryption )

    صباح الخير





    ماذا يعني التشفير Encryption ؟
    بأختصار شديد ان التشفير او التعمية هو احد الطرق المستخدمة في امنية المعلومات المرسلة والمستلمة ويتم عن طريق تغيير محتوى الرسالة الاصلي ويكون هذا التغير على انواع متعددة اذكر منها الابدالية ( مثل شفرة القيصر والشفرة الماسونية ) و الانتقالية (rail fence, columnar) التابعتان للتشفير التقليدي

    اما فك التشفير Decryption : فهو عكس التشفير ( لكن انتبه على قضية مهمة , ان الشخص الذي يقوم بفك الشفرة هو شخص مخول بذلك وليس هاكر او متطفل )
    تتم عمليتي التشفير وفك التشفير بأستخدام مفتاح يتفق عليها من قبل الطرفين ( المشفر و مفكك الشيفرة )

    اغلب كتب التشفير والمصادر يتفقون على تسمية المشفّر بـ Alice ومفكك الشفرة بـ Bob و كاسر الشفرة بـ Eve كما في الصورة ادناه :


    مصطلحات مهمة :
    علم التشفير : cryptography
    علم تحليل الشيفرات : cryptanalysis
    المشفرين : cryptographers ( مثل alice )
    كاسروا الشيفرات : cryptanalysts ( مثل Eve )
    النص الواضح : plain text
    النص المشفر : Cipher text
    المفتاح : key

    اكتفي بهذا الجزء النظري لاني اريد ان اخصص اغلب هذا الموضوع للجانب البرمجي .

    برمجة شفرة قيصر Caeser cipher :

    سميت بهذا الاسم نسبة الى القائد الروماني يولسيس قيصر ( 59 قبل الميلاد ) , فقد كان يقوم بأرسال الرسائل الى قادة الجيوش بصورة مشفرة و ان اعدائها اميّين وليس لديهم اي معرفة بعلم التشفير لذلك كانوا غير قادرين على قرأءة الرسالة حتى وان وقعت بين ايديهم

    طريقة التشفير :
    تتلخص هذه الطريقة بتزحيف كل حرف في الرسالة ثلاث مراتب ( حسب الابجدية ) مثلا اذا وجد الحرف (a) فسوف يقوم بأستبداله بالحرف (d)
    واذا جاء الحرف (l) مثلا يقوم بأستبداله بالحرف (o) وهكذا , لو اردنا تشفير كلمة (ali) فسوف تصبح (DOL) .
    هناك مشكلة بسيطة ,, ما العمل اذا جاء في الرسالة المراد تشفيرها حرف (z) وكما تعرفون ان ال z هو اخر حرف ولا يمكن تزحيفه ثلاث مرات !
    لحل هذه المشكلة نستخدم دالة باقي القسمة Mod لاعطاء موقع مناسب للحرف الذي يجتاز عدد مراتب الابجدية بعد التزحيف , مثال للتوضيح :
    تسلسل الحرف z في الابجدية هو 26 فاذا اردنا تشفيره يجب ان نزيده ثلاث مراتب فيصبح 29 ولا يوجد حرف بالابجدية تسلسله 29 لذلك نستخدم دالة باقي القسمة ليصبح العدد 3 وهو الحرف C
    كود PHP:
    = (26 3) = 29
    z mod 26 
    3
    وهو الحرف C 
    الان سوف اضع بين ايديكم البرنامج بلغة vb6 واي استفسار عن الكود المصدري انا حاضر

    1- اضف اثنين من ازرار الامر ( الاول للتشفير والثاني لفك التشفير )
    2- اضف ثلاث صناديق نصوص ( الاول للنص الواضح و الثاني للمشفر والثالث للمفتاح )
    3- قم بتغير خاصية text لصندوق النص الثالث الى الرقم 3

    الان انقر نقرة مزدوجة على زر الامر الاول واكتب الكود :

    كود PHP:
    alpha = Array("a""b""c""d""e""f""g""h""i""j""k""l""m""n""o""p""q""r""s""t""u""v""w""x""y""z""a""b""c")
    t1 Text1.Text
    t2 
    Text2.Text
    t3 
    Text3.Text

    For 1 To Len(t1)
    cut Mid(t1i1)
    For 
    0 To 25
    If (Val(t3)) Then
    If (cut alpha(j)) Then
    = (Val(t3)) Mod 26
    Text2
    .Text Text2.Text alpha(x)
    End If
    Else
    If (
    cut alpha(j)) Then
    = (Val(t3))
    - ((-1) * 26)
    Text2.Text UCase(Text2.Text alpha(d))
    End If
    End If
    Next j
    Next i 
    الان انقر نقرة مزدوجة على زر الامر الثاني واكتب الكود :


    كود PHP:
    alpha = Array("a""b""c""d""e""f""g""h""i""j""k""l""m""n""o""p""q""r""s""t""u""v""w""x""y""z""a""b""c")
    t1 Text1.Text
    t2 
    Text2.Text
    t3 
    Text3.Text

    For 1 To Len(t1)
    cut Mid(t1i1)
    For 
    0 To 25
    If (Val(t3)) Then
    If (cut alpha(j)) Then
    = (Val(t3)) Mod 26
    Text2
    .Text Text2.Text alpha(x)
    End If
    Else
    If (
    cut alpha(j)) Then
    = (Val(t3))
    - ((-1) * 26)
    Text2.Text UCase(Text2.Text alpha(d))
    End If
    End If
    Next j
    Next i 
    يمكنك تحميل البرنامج كاملا بالنقر هنا




    اتمنى لكم الفائدة و اي استفسار انا موجود

  2. #2
    صديق مشارك
    تاريخ التسجيل: December-2016
    الجنس: أنثى
    المشاركات: 146 المواضيع: 5
    التقييم: 37
    آخر نشاط: 3/July/2017
    شكرا جزيلا للشرح اخي

  3. #3
    من أهل الدار
    قَـمِےر ٱلعَراق
    تاريخ التسجيل: August-2014
    الدولة: °•°في قلب اغلى الكون°•°
    الجنس: أنثى
    المشاركات: 29,791 المواضيع: 370
    التقييم: 16984
    مزاجي: من يقترب عليه تحمل جنون دلعي
    المهنة: مبرمجه
    أكلتي المفضلة: سوشي و فنكر
    موبايلي: honor
    مقالات المدونة: 19
    درس مبسط
    بوركت جهودكم

  4. #4
    Software Developer
    Expert in Encryption
    اقتباس المشاركة الأصلية كتبت بواسطة ســـالــــي مشاهدة المشاركة
    شكرا جزيلا للشرح اخي
    اقتباس المشاركة الأصلية كتبت بواسطة أغرد بهمس مشاهدة المشاركة
    درس مبسط
    بوركت جهودكم
    منورين شكراً لوجودكم هنا

  5. #5
    من أهل الدار
    آلُمْڄنْوُنْ
    تاريخ التسجيل: January-2017
    الدولة: في وسط الحطام
    الجنس: ذكر
    المشاركات: 17,339 المواضيع: 292
    صوتيات: 0 سوالف عراقية: 5
    التقييم: 25518
    مزاجي: مشمئز
    حلو
    شرح مبسط لآخر درجه ولا يستلزم اتعاب العقل بالتفكير

    شكرا لك

  6. #6
    عضو محظور
    تاريخ التسجيل: May-2017
    الدولة: Baghdad
    الجنس: ذكر
    المشاركات: 264 المواضيع: 4
    التقييم: 96
    مزاجي: معتدل
    المهنة: موظف بوزارة الكهرباء
    أكلتي المفضلة: Pizza
    موبايلي: Note 5
    آخر نشاط: 12/June/2017
    عاشت ايدك
    شرح وافي

  7. #7
    من أهل الدار
    تاريخ التسجيل: January-2017
    الجنس: ذكر
    المشاركات: 3,677 المواضيع: 82
    التقييم: 4597
    أكلتي المفضلة: دولمة
    موبايلي: آيفون 6 بلس
    آخر نشاط: 22/March/2021
    الف شكر

  8. #8
    مدير المنتدى
    تاريخ التسجيل: January-2010
    الدولة: جهنم
    الجنس: أنثى
    المشاركات: 84,944 المواضيع: 10,515
    صوتيات: 15 سوالف عراقية: 13
    التقييم: 87260
    مزاجي: متفائلة
    المهنة: Sin trabajo
    أكلتي المفضلة: pizza
    موبايلي: M12
    آخر نشاط: منذ 33 دقيقة
    مقالات المدونة: 18
    يسلموو علي ..عاشت ايدك ورد

  9. #9
    من أهل الدار
    NoOn
    تاريخ التسجيل: May-2015
    الدولة: لامكان!!
    الجنس: أنثى
    المشاركات: 18,529 المواضيع: 716
    التقييم: 16233
    مزاجي: متقلب ...
    المهنة: طالبة جامعيه ^_^
    أكلتي المفضلة: جبس ليز ولبن ^^
    موبايلي: iPhone
    مقالات المدونة: 3
    تشكرات ع مجهود...

  10. #10
    من أهل الدار
    Bad Shadow
    تاريخ التسجيل: December-2015
    الدولة: الكرة الأرضية التافهة
    الجنس: ذكر
    المشاركات: 25,430 المواضيع: 949
    صوتيات: 300 سوالف عراقية: 0
    التقييم: 20073
    مزاجي: مشاغب
    المهنة: ممثل بفلم الرسالة
    أكلتي المفضلة: عند الجوع لا يوجد خبز سيء
    موبايلي: Nokia
    مقالات المدونة: 6
    عاشت ايدك

صفحة 1 من 2 12 الأخيرةالأخيرة
تم تطوير موقع درر العراق بواسطة Samer

قوانين المنتديات العامة

Google+

متصفح Chrome هو الأفضل لتصفح الانترنت في الجوال