اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

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

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

Hello my friend

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

رابط هذا التعليق
شارك

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

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

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

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

بالتوفيق

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

  • Thanks 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

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

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

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

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

ت 1578 : ث 1579

ف 1601 : ق 1602

ا 1575  : ب 1576

ح 1581 : خ 1582

تفاح    : ثقبح

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

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

 

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

 

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

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

 

ascii_Arabic.jpg

.

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

image.png.31d7194b60d84130a6ddd24c1ef10e88.png

.

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

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

  • Like 2
  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information