السلام عليكم ورحمة الله وبركاته
يوجد لدي برنامج به قاعدة بيانات وكنت قد قمت بعمل تشفير لقاعدة البيانات اثناء اغلاق البرنامج وكلمة المرور لفك التشفير كانت في ملف نصي حيث كنت استخدم الكود التالي :-
Dim b As String * 1
Open App.path + "\db1.mdb" For Binary As #1
Get #1, 1, a
Get #1, LOF(1), b
Put #1, 1, b
Put #1, LOF(1), a
Close
Dim a As String * 1
هذا الكود كان يعمل بنجاح ولكن عندما كبرت قاعدة البيانات وزاد حجمها عن 1 ميجا لاحظت ان التشفير لا يعمل ولست ادري ما السبب الان المطلوب هو:-
1) كود لتشفير وفك تشفير قاعدة البيانات.
2) طريقة لعمل كلمة مرور لفك تشفير قاعدة البيانات لانه كما تعلمون ان اسم المستخدم وكلمة المرور لتسجيل الدخول الى البرنامج تكون محفوظة في داخل قاعدة البيانات.
ولكم جزيل الشكر