كيفية تشفير حروف كلمة المرور فى الاكسس

أخي s_ayed أنت بحاجة إلى FUNCTION تشفير خاص لتظبقه على الكلمة عند تخزينها .. وFunction لفك التشفير عند قراءتها

هذا مثال على تشفير بسيط جداً لكلمة .. وبالنسبة لك إذا كنت ماهراً بالرياضيات .. يمكن أن تبتكر تشفير معقد أكثر يصعب فكه

Public Function CodeIt( s as string) as string
  Dim r as byte , l as byte
  Dim M as string
  l = len(s)
  for r = 1 to l
    M = M + str(255-asc(mid(s,r,1)))
  next
  CodeIt = M
End Function

هذا التابع يستخدم نفسه للتشفير ولفك التشفير

جزاك الله خيراً يا اخ مهند وكثر الله من امثالك

إن شاء الله سوف اجرب الكود واعود لك بما تم معى

وجزاك الله عنى وهن كل من يستفيد خيرا

ولكم لى تساؤل

هل بنفس دالة

encrypted=codeit(t1.text)

ونفسها لحقل قاعدة البيانات لفك التشفير؟

decrypted=codeit(db1.tbl1.feilds("password").value

افيدونا وجزاكم الله خيرا