السلام عليكم ورحمة الله
أقدم لكم هذه الأداة المميزة لتشفير البيانات والتي من الصعب أن يتم فك التشفير من دون تذكر كلمة السر التي تم تشفير البيانات بها .
نبدأ بشرح الأداة ونكون متكلين على الله :
أولا نذهب الى Project ثم الى References ثم ننقر عليها لتظهر لنا صفحة المراجع .
نضغط على زر Browse… بعد هذا يخيرنا البرنامج لنختار المرجع الذي نريد من الكومبيوتر .
ثم نختار الأداة ويكون أسمها هنا Ecrypt.Dll نختارها من المسار الذي وضعت الأداة بها ثم نضغط على زر Ok .
حسنا الآن جاء دور تعريف الأداة في المشروع نضع التصريح التالي :
Dim MyClass As Encrypt
الأفضل أن تضع التصريح السابق في التصريح العام للمشروع لكي لا تكرر تعريف الأداة من حين الى آخر .
بعد ذلك نضع التصريح التالي في زر الأمر الذي سيتم فيه تنفيذ الأمر وهو كالتالي :
Set MyClass = New Encrypt
الآن نحن جاهزون للتعامل مع الأداة كالتالي :
MyClass.Properties
نضع أسم المتغير الذي يحمل كامل الطرق والوظائف التي تملكها الأداة , ثم نقطة ليتم فرد الخصائص التي تملكها الأداة أو المتغير الذي صرحناه سابقا .
الأداة تملك خاصتين الأولي :
MyClass.Encrypt
وهذه الخاصية هي لتشفير البيانات أن كان ملف نصي أو سلسلة داخل أداة مثل TextBox وتأخد البارمترات التالية :
البارامتر الأول : هو مسار الملف , أذا أردت تشفير الملف أو أذا أردت خلق ملف في نفس المسار وتشفير البيانات التي في الأداة TextBox
والبارامتر الثاني: الباسوورد والذي لا بد من تذكره عند فك التشفير , الباسوورد يجب أن يكون أما رقم صحيح مثل (12) أو مزدوج مثل (2.54) , هذا البارامتر لا يستقبل بيانات من نوع String .
البارامتر الثالث : هذا أختياري أذا كنت تود مثلا تشفير البيانات التي موجودة داخل أداة مثل Textbox الى مسار معين الذي حددته في البارامتر الاول , وطبعا سوف يتجاهل أن كان هناك ملف أصلا في المسار الذي حددته وسينسخ فقط البيانات الموجودة داخل الأداة TextBox .
البارامتر الرابع :أيضا أختياري , أذا كنت تود خلق ملف جديد في المسار الذي حددته في البارامتر الاول , أما True يعني خلق ملف جديد أو False أن يتجاهل خلق ملف جديد , وعند عدم كتابة هذا البارامتر وهذا الوضع الأفتراضي لهذه الخاصية يعني أن يتجاهل خلق ملف جديد .
MyClass.Encrypt "C:\FileName.txt", 1.5
المثال السابق يفترض أن هناك ملف في القرص C: وأنه يملك بيانات داخل الملف لتشفيره , والباسوورد هو 1.5 .
MyClass.Encrypt "C:\FileName.txt", 1.5, Text1
المثال السابق يفترض أن يوجد ملف في المسار C: والباسوورد 1.5 وسيتم تشفير البيانات الموجود داخل الأداة TextBox الى الملف .
MyClass.Encrypt "C:\FileName.txt", 1.5, Text1, True
المثال السابق سيتم تشفير البيانات التي في الأداة TextBox الى الملف في المسار C: ولا يشترط أن الملف موجود أم لا لأنك وضعت True هذه سوف تخلق ملف جديد وتنسخ البيانات التي داخل TextBox الى الملف .
ماذا ترجع الأداة وكيف يتم معرفة أنه تم تشفير الملف وأنه لا يوجد خطأ حدث أثناء التشفير .
Dim StrTxt As String
أولا نعلن عن متغير من نوع سلسلة String .
StrTxt = MyClass.Encrypt("C:\FileName", 1.5, Text1, True)
ثم نسند للمتغير المرجع الذي سوف ينتج عن الأداة عند نهاية عملها , ترجع الأداة أربع كالتالي :
1 –لا يوجد ملف .
2 – الملف فارغ .
3 –أذا لم يتم أيجاد الملف في المسار المحدد , وانك تريد تشفير البيانات التي داخل TextBox ضع خصية خلق ملف لخلقه أذا ما تم أيجاده True.
4 – قد تم تشفير البيانات .
Select Case StrTxt
Case 1
Me.Caption = "There is no file"
Case 2
Me.Caption = "The file is empty"
Case 3
Me.Caption = "Make true to create file or create file before encryption"
Case 4
Me.Caption = "All right"
End Select
الخاصية التالية هي لفك تشفير البيانات التي تم تشفيرها من قبل وتعمل كالتالي :
MyClass.UnEncrypt "C:\FileName.txt", 1.5
المثال السابق وضعنا له بارامتران :
البرامتر الأول هو مسار الملف الذي في القرص C:.
أما البارامتر الثاني يتم وضع الباسوورد الذي تم تشفير البيانات بها يجب أن يكون نفس الباسوورد حين تم تشفير البيانات أول مرة وألا سوف لن يتم أرجاع البيانات الى سابق عهدها .
Text1.Text = MyClass.UnEncrypt ("C:\FileName.txt", 1.5, True)
المثال السابق قد زدنا أليه بارامتر آخر وهو هل أنك تريد فك تشفير البيانات التي في الملف أم أنك تريد أسنادها الى متغير أو أداة معينة مثل TextBox من دون تغيير أو فك تشفيير الملف كما سابق عهده .
أذا لم يتم وضع البارامتر الثالث سوف يتم تفسيرها على أنها False هذا الوضع الأفتراضي , وسوف يتم فك التشفيير .
ماذا ترجع الأداة لنا خلال فك التشفير :
Dim StrTxt As String
أولا نعلن عن متغير من نوع سلسلة String .
StrTxt = MyClass.UnEncrypt("C:\FileName.txt", 1.5, False(
ثم نسند للمتغير المرجع الذي سوف ينتج عن الأداة عند نهاية عملها , ترجع الأداة أربع كالتالي :
1 – لا يوجد ملف .
2 – الملف فارغ .
3 – أذا لم ترجع شئ من الذي سبق يعني أنه تم فك التشفيير سيتم أسناد البيانات الى المتغيير وهنا بدوري أسندته الى الأداة TextBox بعد فك التشفيير .
Select Case StrTxt
Case 1
Me.Caption = "There is no file"
Case 2
Me.Caption = "The file is empty"
Case Else
Text1.Text = S
End Select
ملاحظة الشئ المميز والأكثر تمييزا هو أنه سيتم تشفيير البيانات كل مرة في تشفير مختلف عن الآخر حتى وأن كان الرقم السري نفسه البيانات نفسها يعني مثلا .
ضع أداة TextBox وضع رقم سري مثلا سوف أضع 123.1 ثم أفتح الملف وأنظر الى التشفيير , كرر المحاولة مرة أخرى ولتكن البيانات نفسها والرقم السري نفسه123.1 , لكن أحفظ الملف في أسم مختلف وقارن التشفيير سوف لن ترى من تشابه ومن الصعب أن ترى محاولة تشفير تشبه الأخرى .
أرجوا أن تنال الأداة أعجابكم وأتمنى لكم التوفيق .
رابط الأداة للتحميل :
Iemad2@Hotmial.Com
Imad_Really@Yahoo.Com
