بسم الله الرحمن الرحيم
هذا مثال على تشفير الفولدر وهو يعتمد على بعض خصائص
نظام الويندوز .. مزيدا من الشرح في الملف النصي
مع البرنامج .. تقبلوا تحياتي الطيبة
أخوكم اكسيرالحياة
مثال على تشفير مجلد ( فولدر ) بالأكسس
مغلق
بارك الله فيك اخي اكسير
طريقة جميله ورائعه بالفعل
ولكن الاحظ ان الأمر يأخذ فتره بعد الضغط على زر الأمر وبعدين يتم التغيير
ممكن عشان انه يحول الأسم الى امتداد آخر
ايضا هناك ملاحظة هامه
وهي عندما تفتح المجلد وتفتح اي شيء بداخله مثل الملف النصي فلا يتم تشفيره ابدا
جرب الطريقة :
افتح المجلد Encryption ثم افتح الملف النصي وقم بتصغيره
اغلق المجلد
افتح قاعدة البيانات في نافذه وحاول تصغر النافذه
افتح المجلد EkseerEncryption الذي يحتوي على القاعدة والمجلد في نافذه وحاول تصغيره
ضع النافذتين بجانب بعض
نفذ امر التشفير
لن يتم التشفير
من هذا نستنتج انه لا يتم التشفير وهناك ملفات مفتوحه منه لذا يجب اغلاق اي ملفات تخص المجلد ومن ثم نقوم بعملية التشفير
كلام الاخت زهره صحيح
لكن في اعتقادي - انه لن يستخدم البرنامج سوى الشخص الذي يرغب في فتح او تشفير مجلداته
لذا فانه من المعروف بانه سيقوم باغلاق المجلدات او الملفات المطلوبة
لانه لن يحصل على النتيجة المطلوبة بدون ذلك
هذا والله اعلم
السلام عليكم ورحمة الله وبركاته
شكرا أختي زهرة على مرورك وتعليقك المفيد بخصوص ملاحظاتك
اقتباسولكن الاحظ ان الأمر يأخذ فتره بعد الضغط على زر الأمر وبعدين يتم التغييرممكن عشان انه يحول الأسم الى امتداد آخر
هذه الملاحظة صحيحة ولم أجد لها حلا ( الشكوى لله) لأن الموضوع متعلق بعتاد الحاسب
من سرعة المعالج وكمية الميموري المتوفر .. لاحل إذا
اقتباسايضا هناك ملاحظة هامهوهي عندما تفتح المجلد وتفتح اي شيء بداخله مثل الملف النصي فلا يتم تشفيره ابدا
أنا أعطيته حبة باندول أكسترا أنظري تعديل الكود في المرفق
شكرا لك استاذتي الفاضلة على الملاحظات القيّمة وفقك الله
الاخ الفاضل
Enjoy
شكرا مرورك العطر ياغالي وفقك الله
Ekseer
تم تعديل هذه المشاركة بواسطة ekseer في 16 أبريل 2007 في 11:56
ما شاء الله عليك دائما مبدع ودائما تأتي بجديد افضل من السابق فلك تحياتي وشكري
اتمنى ان تضيف هذا الكود لاستعراض إي مجلد تريد تشفيره حتى يكون هناك مرونة في تشفير إي مجلد
Dim result As Integer With Application.FileDialog(msoFileDialogFolderPicker) .Title = "اختر مجلداً لتشفيره" .ButtonName = "اختيار" ' .InitialFileName = CurrentProject.Path result = .Show If (result <> 0) Then FilePath = Trim(.SelectedItems.Item(1)) End If End With
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
الله الله عليكم جميعا
اخي اكسير دائما متألق والجديد عندك مذهل..
اخي المبرمج شكرا على الاضافات وبارك الله فيك
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
ما شاء الله
مشكور اخى
مشاء الله تبارك عليك
اخي اكسير
الاخ المبدع اكسير
بعد اذنك تم إضافة كود لاستعراض إي مجلد لتشفيره وهذا الكود ماخوذ من احد برامجك وليس من لدي فالفضل بعد الله لك وبعض الاكواد ماخوذة من احد برامج المبدع المهندس Eng. Usama El-Mokadem
كل الذي فعلته انا تجميع فقط :rolleyes: B)
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
السلام عليكم ورحمة الله وبركاته
أخي واستاذي أبو حسن كم أنت رائع قمة في كل شيء
أدبا وعلما وتعاملا .. يا أخي أغبطك والله .. الابداع من اناملك وتنكر ذاتك
ماهذه إلا اخلاق العلماء والحكماء .. الله يجزاك عنا كل خير إضافتك رائعه ... مممممم :rolleyes:
خطرت لي فكرة انت خابر برنامج باحث الملفات اللي لك 90% من تصميمه مارأيك .. نجمع هذا وذاك
ونحط لهم شوي بهارات ويسير لدينا برنامج يخدم الملفات قراءة وبحثا وتبديل اسماء وتشفير وغيره
مجرد فكرة ؟
جبت سيرة المهندس اسامة المقدم معلمنا الله يذكره بالخير دوما وأبدا هذا الرجل أفخر انه بيننا واعتز به كثيرا
أخي همام الف شكر لك ياغالي على مرورك الجميل وتعليقك الرائع من خبيرنا أبو الاكواد البهلوانية اللولوبيه
التي تأتي دائما في عمق الهدف .. فجزاك الله خير
إخواني الكرام ياسين ومحمد فؤاد وسام 2000 الف شكر ياغاليين على دعائكم
المثمر .. وفقكم الله
أخوكم اكسيرالحياة
تم تعديل هذه المشاركة بواسطة ekseer في 17 أبريل 2007 في 02:25
سامحك الله يا اخي على هذا المدح الذي ظلمتني فيه (علماء ..... حكماء) .......!!
برنامج الباحث عن الملفات لم يكن لي فيه إي بصمة تذكر فقط اضفت أشياء انت أعلم مني بها فلا تحملني ما لا اطيقه
بالنسبة لبرنامج الباحث فهو برنامج يستحق الإشادة والتقدير ولقد خدمني كثيرا فجزاك الله خيرا
يوجد نقطة بسيطة اتعبتني وبهذلتني ولم اتوصل إلى حل وهي : البحث داخل النص
فلو كان عندك 1000 ملف Word ومن ضمن هذه الملفات يوجد ملف خاص بالإجازات فمن الصعب ان اقوم بفتحها جميعاً حتى اعرف الملف المتضمن كلمة (اجازة) .
طبعا الويندوز يمكنك من البحث بجزء من النص لكن نريد ان نعتمد على الآكسس
فمن لديه كود خاص بالبحث بجزء من النص فليتفضل به في نفس المشاركة الخاصة بهذا الموضوع
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
هذا الموضوع مغلق.