كيف يمكنني ان اقوم بتشفير قاعدة البيانات

السلام عليكم ورحمة الله وبركاته

اخي في المرفق مثال يقوم بتدمير قاعدة البيانات او أي ملف آخر

وذلك عن طريق تغيير أماكن الـ Bytes وبذلك لا يمكن فتحها

وهذه هي أبسط الطرق فاذا كنت تراها مناسبة لك فسأعرض بعض المشاكل التي يمكن ان تواجهها ونبحث حلها ان شاء الله

بالتوفيق

MRKing.rar

اشكر اخي على المبادرة

لكن عندما يتم تشفير او تدمير قاعدة البيانات فهل من الممكن لاي احد ان يقوم بفتحها .. والامر المهم وهو كيفية ربط هذه القاعدة المشفرة ببرنامجي وما هو الكود الخاص بالربط بعد التشفير

وشكرا

السلام عليكم ورحمة الله وبركاته

اخي بعد تطبيق الكود عليها لن يمكن فتحها لا بواسطة برنامجك ولا بالاكسيس

ولفتح قاعدة البيانات نقوم بتطبيق الكود عليها مرة اخرى

حيث انك ستقوم بوضع نفس الكود عندفتح برنامج وتقوم بربطه بها بالطريقة العادية

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

أرجو ان تكون وضحت الفكرة

بالتوفيق

============

الى اللقاء

في طريقه احسن قم بتشفير البيانات قبل تسجيلها في ملف قاعدة البيانات خذ مثال على ذلك :

Private Sub Command1_Click()
  Rc.AddNew
	Rc(1) = CoodingText(Text1)
  Rc.Update
End Sub

وعند القراءة من ملف قاعدة البيانات استخدم العمليه عكسيه كالتالي:

Private Sub Command2_Click()
  Rc.MoveFirst
	Text1 =  CoodingText(Rc(1))
End Sub

وهذا الجزء الخاص بعملية التشفير :

Public Function CoodingText(nTxt As String) As String
Dim a As String, z As Integer
	For z = 1 To Len(Trim(nTxt))
		a = a & Chr((Asc(Mid(StrReverse(nTxt), z, 1)) Xor 99))
	Next z
CoodingText = a
End Function