كلمة مرور اكسس

بسم الله الرحم الرحيم

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

Function AccessPassword(ByVal Filename As String) As String

Dim MaxSize, NextChar, MyChar, secretpos, TempPwd

Dim secret(13)

secret(0) = (&H86)

secret(1) = (&HFB)

secret(2) = (&HEC)

secret(3) = (&H37)

secret(4) = (&H5D)

secret(5) = (&H44)

secret(6) = (&H9C)

secret(7) = (&HFA)

secret(8) = (&HC6)

secret(9) = (&H5E)

secret(10) = (&H28)

secret(11) = (&HE6)

secret(12) = (&H13)

secretpos = 0

Select Case cmgAccess.FilterIndex

Case 1 To 4

Open Filename For Input As #FreeFile ' Open file for input.

Case 5 To 6

Open Filename For Binary As #FreeFile

End Select

' Open file for input.

For NextChar = 67 To 80 Step 1 'Read in Encrypted Password

Seek #FreeFile, NextChar ' Set position.

MyChar = Input(1, #FreeFile) ' Read character.

TempPwd = TempPwd & Chr(Asc(MyChar) Xor secret(secretpos)) 'Decrypt using Xor

secretpos = secretpos + 1 'increment pointer

Next NextChar

Close #1 ' Close file.

AccessPassword = TempPwd

End Function

فقط انسخ هذه الدالة في مكان فارغ في الكود ثم اكتب في زر الأمر

اسم الدالة هكذا:

[l](Ver=AccessPasword(FileName As String[/l]

وأسند قيمة المتغيرVar إلى مربع نص أو أي كائن آخر يعرض كلمة السر

وضع مكان filename مسار ملف قاعدة البيانات كاملاً والأفضل أن تسنده عن طريقة أداة مربع الحوار العامةCommonDialog

وشكراً

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

أخوك في الله

[gl]أبـــــــوعـــــزام[/gl]