عن التشفير

جيد و لكن هذا لا يسمى تشفير و لكنه إخفاء أو تضليل

لأن المعلومات بداخل الفولدر لم تشفر

و الأفضل أن تتناول الملفات بالتشفير أولا بأستعمال أى خوارزميه ثم تغيير الفولدر و بهذا إذا أستطاع أحد أن يعيد المجلد لحالته الأصليه لن يستطيع فك تشفير الملفات إلا إذا توصل للخوارزميه المستخدمه

على العموم فى برنامج مشابه لبرنامجك يغير حالة الفولدر كان كتبه NEO

هحاول أدور عليه فى الهارد أرفقه هنا

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

:D حملت الملف و بصراحه عجبتنى جدا طريقتك فى عرض السؤال

أنت تريد أن يتم تشفير المجلد بعد أختياره من dir أليس كذلك ؟

هناك عدة طرق

يمكنك تعريف متغير و أضافة فيه القيمه التى ترجعها dir1.path

Ddir = Dir1.Path

و فى الحدث command1_click() تضع المتغير Ddir فى الأمر name

Name Ddir As Ddir & ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"

و لكن لا تنسى أن تتحقق من وجود قيمه فى المتغير ddir أولا فيصبح الكود

If Ddir = "" Then
 MsgBox "أختر المجلد أولا"
exit sub
end if
Name Ddir As Ddir & ".{21EC2020-3AEA-1069-A2DD-08002B30309D}" 
MsgBox "تم تشفير المجلد بنجاح"

و لكن ماذا إذا أختار المستخدم درايف ستظهر له رسالة file acces error

فلكى نجعل البرنامج أحترافى

on error goto err:

If Ddir = "" Then
 MsgBox "أختر المجلد أولا"
exit sub
end if
Name Ddir As Ddir & ".{21EC2020-3AEA-1069-A2DD-08002B30309D}" 
MsgBox "تم تشفير المجلد بنجاح"
exit sub
err:
msgbox "حدث خطأ أثناء تشفير المجلد : " & err.description

لكن المشكله ظهرت عند فك التشفير فكيف سنأتى بأسم المجلد الأصلى

أنا أتبعت طريقة ( هى اللى جت على بالى دلوقتى ممكن يكون فى طرق أحسن :D )

a = Len(Ddir)
a = a - 39

udir = Left$(Ddir, a)

Name Ddir As udir

حيث فى المتغير a قمت بتخزين طول الأسم

ثم طرحت منه 39 وهو عدد حروف اللاحقه .{21EC2020-3AEA-1069-A2DD-08002B30309D}

فأصبح المتغير a يحتوى على عدد حروف أسم المجلد الأصلى

و قمت بأرجاع عدد الحروف بالداله left$ و خزنتها فى المتغير udir

فأصبح المتغير udir يحتوى على أسم المجلد الأصلى

على العموم لقد قمت بتعديل المثال و أضفت الأداة drive و قمت بربطها بال dir حتى تتيح للمستخدم أختيار الدرايف الذى يريده

و بالنسبه للسؤال الثانى لا أعلم بصراحه لكنى هبحق فى الموضوع ده لأنى أنا كمان محتاجه

و شكرا

Cp.zip

اخي العزيز net_code جزاك الله الف خير ووفقك الى الخير دائما واعطاك كل ماتتمناة واتمنى لك التوفيق والخير الدائم لك ولأهلك وجميع المسلمين والمسلمات والى الامام دائما ..