ازهر عبد العزيز قام بنشر سبتمبر 7, 2020 مشاركة قام بنشر سبتمبر 7, 2020 السلام عليكم ,,,,,, احتاج طرقة اقوم بها بتشفير رسالة معينة مثلا اردت ان ارسل رسالة مضموناها Hello my friend الى احد الاشخاص كيف اجعل الرسالة تصل الية بصورة مشفرة لكنة في نفس الوقت يستطيع قرائتها وكذلك باستطاعتة ارسال رسائل مشفرة الي رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر سبتمبر 7, 2020 مشاركة قام بنشر سبتمبر 7, 2020 وعليكم السلام اتفضل اخى @ازهر عبد العزيز مثال من مكتبتى لعلك تنتفع به لاخى اكسير جزاه الله خيرا وجعله الله فى موازين حسناته وده موضوع لام عهود جزاها الله خيرا للاطلاع http://arabteam2000-forum.com/index.php?/topic/212835-التشفير-وفك-التشفير-لقواعد-البيانات-أو-اي-ملف-مهما-كانت-صيغته/ بالتوفيق مثال على تشفير النصوص باستخدام أكسس, طريقتين من عدة طرق.rar 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر سبتمبر 7, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 7, 2020 السلام عليكم 🙂 ابسط انواع التشفير التشفير ، 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 2 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر سبتمبر 7, 2020 مشاركة قام بنشر سبتمبر 7, 2020 حياك الله اخى ومعلمنا العزيز @jjafferr 💐 و جزاك الله خيرا شرح اكثر من رائع وبسيط وسهل بارك الله لنا فيك وبارك لك في كل ماتحب بالتاكيد معلمنا العزيز سوف اضيفه الى مكتبتى ولاستزيد من علمكم جزاك الله عنا كل خير 💐 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر سبتمبر 7, 2020 الكاتب مشاركة قام بنشر سبتمبر 7, 2020 الاساتذة المبدعيين شكرا جزيلا وهو المطلوب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.