عليكم السلام
ضع هذه الدالة في وحدة نمطية عامة
Function EncryptDecrypt(strIn As String, strpass As String) As String
Dim intLen As Integer
Dim intCounter As Integer
Dim varTmp As Variant
Dim strTmp As String
intLen = Len(strpass)
strTmp = strIn
For intCounter = 1 To Len(strIn)
varTmp = Asc(Mid$(strpass, (intCounter Mod intLen) - intLen * ((intCounter Mod intLen) = 0), 1))
Mid$(strTmp, intCounter, 1) = Chr$(Asc(Mid$(strIn, intCounter, 1)) Xor varTmp)
Next
EncryptDecrypt = strTmp
End Function
يتم مناداتها سواء للتشفير او فك التشفير على النحو التالي :
rst!PassWord = EncryptDecrypt(password, userName)
على اعتبار rst!PassWord هو حقل كلمة المرور في الجدول