مساعدة في تشفير الرسائل

[ازهر عبد العزيز]

السلام عليكم ,,,,,,

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

Hello my friend

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

[أبوبسمله]

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

اتفضل اخى @ازهر عبد العزيز مثال من مكتبتى لعلك تنتفع به لاخى اكسير جزاه الله خيرا وجعله الله فى موازين حسناته

وده موضوع لام عهود جزاها الله خيرا للاطلاع

http://arabteam2000-forum.com/index.php?/topic/212835-التشفير-وفك-التشفير-لقواعد-البيانات-أو-اي-ملف-مهما-كانت-صيغته/

بالتوفيق

مثال على تشفير النصوص باستخدام أكسس, طريقتين من عدة طرق.rar

[jjafferr]

السلام عليكم 🙂 

 

ابسط انواع التشفير

التشفير ، Code : هو تغيير حرف مكان حرف آخر ، يعني بدل تفاح ، ممكن يصير ثقبخ ، كيف :

رجاء النظر في الجدول التالي:

الحرف الاصل ورقمه : الحرف البديل ورقمه

ت 1578 : ث 1579

ف 1601 : ق 1602

ا 1575  : ب 1576

ح 1581 : خ 1582

تفاح    : ثقبح

نلاحظ اننا اضفنا الرقم 1 (مفتاح الشفرة) الى قيمة الحرف الاصل ، لنحصل على قيمة الحرف البديل .

في هذه الحالة لو غيرنا مفتاح الشفرة الى رقم آخر ، او جعلنا مفتاح الشفرة عبارة عن معادلة ، لأصبحت الشفرة اصعب 🙂 

 

فك الشفرة ، DeCode : هو حذف مفتاح الشفرة من رقم الحرف الجديد ، حتى يرجع لقيمته السابق 🙂 

 

فإذن قوة التشفير له علاقة بمفتاح الشفرة 🙂 

لهذا السبب ، لا ترسل مفتاح الشفرة مع الرسالة 🙂 

 

.

ارفق لك هذا المثال

.

وهذه الوحدة النمطية التي تقوم بالعمل

Public Function Code_it_T(txt As String, iKey As Integer) As String

    Dim i, L As Integer
    L = Len(txt)
    
    For i = 1 To L
        Code_it_T = Code_it_T & ChrW(AscW(Mid(txt, i, 1)) + iKey)
    Next i

End Function


Public Function DeCode_it_T(txt As String, iKey As Integer) As String

    Dim i, L As Integer
    L = Len(txt)
    
    For i = 1 To L
        DeCode_it_T = DeCode_it_T & ChrW(AscW(Mid(txt, i, 1)) - iKey)
    Next i

End Function

.

 

 

1 ساعه مضت, الفلاحجى said:

مثال من مكتبتى لعلك تنتفع به لاخى اكسير جزاه الله خيرا وجعله الله فى موازين حسناته

وده موضوع لام عهود جزاها الله خيرا للاطلاع

.

ويمكنك إضافة هذا المثال لمكتبتك ايضا 🙂 

 

جعفر

1254.Code_Decode.mdb.zip

[أبوبسمله]

حياك الله اخى ومعلمنا العزيز @jjafferr 💐 و جزاك الله خيرا

شرح اكثر من رائع وبسيط وسهل بارك الله لنا فيك وبارك لك في كل ماتحب

بالتاكيد معلمنا العزيز سوف اضيفه الى مكتبتى ولاستزيد من علمكم جزاك الله عنا كل خير 💐

 

[ازهر عبد العزيز]

الاساتذة المبدعيين  شكرا جزيلا وهو المطلوب