1. Dr.aL-jArH

    Dr.aL-jArH DeveloPer Plus

    الأنتساب:
    ‏24 أغسطس 2012
    المشاركات:
    140
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    [​IMG]

    السلام عليكم

    ننشط القسم شوية بالدروس

    درس اليوم عبارة عن برمجة أداة بسيطة

    Base64 EnCoder / DeCoder


    بالدالفي Delphi *:"

    نبدأ بالاحتياجات:

    وحدة أو unit

    base64.pas

    سيتم ارفاقها

    في الواجهة نحتاج

    2 > Memo
    [SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4]
    [SIZE=4][SIZE=4]Me[SIZE=4]mo 1 الكود المراد تشفيره[SIZE=4]
    [SIZE=4]Memo2 [/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]
    الكود المراد فك تشفيره[SIZE=4][SIZE=4]

    [/SIZE][/SIZE]
    2 > Button
    [SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4]
    Bu[SIZE=4]tton 1 نسميها Encode[/SIZE]
    [/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]
    Button2 نسميها Decode

    صورة توضحية مع اضافات نهائية

    [​IMG]

    الاضافات بامكانك الاستغناء عنها ...

    نروح الأن الى [SIZE=4]لب الموضوع و [SIZE=4]هو [SIZE=4]الاكواد في مشروعنا

    [SIZE=4]نضيف الوحدة unit

    [SIZE=4]في uses

    [/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]

    [SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][FONT=Trebuchet MS][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][COLOR=Red]ملاحظة قبل الاضافة : ي[/COLOR][SIZE=4][COLOR=Red]فضل وضع الوحدة [/COLOR][SIZE=4][COLOR=Red]base64.pas في نفس المجلد الخا[/COLOR][SIZE=4][COLOR=Red]ص بال[/COLOR][SIZE=4][COLOR=Red]أداة [/COLOR][SIZE=4][COLOR=Red](المشروع)[/COLOR]
    [/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/FONT][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]

    [​IMG]

    جيد الأن نعمل action لل Button1

    نضغط عليها مرتين و نكتب الكود التالي

    كود PHP:
    Memo2.Lines.Add(Base64Encode(Memo1.Text));
    [SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4]جيد

    [SIZE=4] نشرح الكود [SIZE=4]شرحا مبسطا

    [SIZE=4][COLOR=Red]Memo2.Lines.Add[/COLOR]

    [SIZE=4]نضيف الى Memo2

    [SIZE=4]الناتج من
    [/SIZE][SIZE=4]
    [SIZE=4]Memo[SIZE=4]1 الل[SIZE=4]ي يحتوي على الكود المراد تشفير[SIZE=4]ه

    [SIZE=4]ويتم هذا بالكود[/SIZE]
    [/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]

    [SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][FONT=Trebuchet MS][SIZE=4][SIZE=4][FONT=Trebuchet MS][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][COLOR=Red]Base64Encode(Memo1.Text)[/COLOR][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/FONT][/SIZE][/SIZE][/FONT][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]

    جيد الأن الى زر الفك

    Button2

    نضغط مرتين كالعادة و نضيف الكود التالي

    كود PHP:
    Memo1.Lines.Add(Base64Decode(Memo2.Text));
    [SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4]نشرح

    عكس العملية السابقة :{13}:

    اي فك تش[SIZE=4]فير الكود الموجود[/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]
    [SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4] في [/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][FONT=Trebuchet MS][SIZE=4][SIZE=4][FONT=Trebuchet MS][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4][SIZE=4]

    Memo2[/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/FONT][/SIZE][/SIZE][/FONT][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]


    و وضعه في

    Memo1

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

    و غير ملغمة أيضا &:"

    نجرب الأداة أولا

    [​IMG]

    جيد

    في المرفقات تجد:

    1- الاداة اللي بالصورة

    +

    2- السورس(فيه اضافات بسيطة واضحة في الصورة النهائية)

    +

    3- الوحدة base64.pas


    طبعآ الدرس منقول لتعم الفائده

    التحميل


    [​IMG]

    انتهى الدرس بحمد الله

    ان أصبت فمن الله و ان أخطأت فمني و من الشيطان

     
  2. روبورت1

    روبورت1 <img src="http://im34.gulfup.com/s2o63.gif"><br>فر

    الأنتساب:
    ‏8 نوفمبر 2012
    المشاركات:
    654
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    عزيزي الكاتب ، شكراً لك على الإفادة في المنتدى بإضافة مادّة علمية جديدة إليه
    كتب الله لك أجر كل من استفاد منها.

    * تنبيه للأعضاء والزوّار ، نتمنّى عدم دخول أيّة روابط خارجيّة أو تحميل أي مرفق موجود بالموضوع
    حتى يتم تأكيد سلامة المحتوى برد من قبل أحد أعضاء فريق الفحص أو مشرف القسم.

    هذه العضوية آليّة ، غير مُدارة من قبل أي عُنصر بشري ، إنما مبرمجة لتقوم ببعض أعمال التنظيم والمتابعة في المنتدى.
     
  3. Тĥẻ GỌ∂FДТн€Ř

    Тĥẻ GỌ∂FДТн€Ř DeveloPer Plus

    الأنتساب:
    ‏15 يوليو 2012
    المشاركات:
    118
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    18
    الإقامة:
    SaFŘỌTỌ
    رد: درس برمجة Base64 EnCoder & DeCoder بالدالفي

    بارك الله فيك يا غالي
     
  4. ADNAN

    ADNAN Developer

    الأنتساب:
    ‏29 أكتوبر 2012
    المشاركات:
    84
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الإقامة:
    الأرض
    رد: درس برمجة Base64 EnCoder & DeCoder بالدالفي

    وعليكم السلام

    يعطيك العافية لمجهودك ​
     
  5. Gaza-Dz

    Gaza-Dz Support - Iq-Team

    الأنتساب:
    ‏26 مايو 2013
    المشاركات:
    1,821
    الإعجابات المتلقاة:
    87
    نقاط الجائزة:
    48
    الجنس:
    ذكر
    الوظيفة:
    DZ
    الإقامة:
    DZ
    رد: درس برمجة Base64 EnCoder & DeCoder بالدالفي

    بارك الله فيك يا غالي
     
  6. No-Security

    No-Security <span style="font-weight: bold; text-shadow: #BBBB DeveloPer Plus

    الأنتساب:
    ‏16 أكتوبر 2014
    المشاركات:
    177
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    18
    رد: درس برمجة Base64 EnCoder & DeCoder بالدالفي

    مشكور اخي الغالي
     

مشاركة هذه الصفحة