الاكسيس ومفتاح SHIFT

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

بسم الله

الأخ الفاضل / محمد

أين يُمكن أن نجد برنامج فك الباسورد لقواعد البيانات هذا ؟؟

لك منى خالص شكرى

أخــBengaــوك

هذا عنوان للوصلة طبعا انا نسيت احط عنها اعلان بالموقع

http://arabteam.nicmatic.com/prog/Badwi_Re...swordAccess.exe

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

اخواني السلام عليكم

يجب أن يستدعى هذا الكود من autoexec وبه يمكن منع المستخدمين بالعبث بالملفات واذا اردة أن تعدل عليه يجب ان تعمل مستخدم بنفس الاسم حتى يمكنك من الدخول على البرنامج.

ِِِAAAAA اسم المستخدم في هذا الكود وسلامتكم

Public Function Applnit()

If CurrentUser = "AAAAA" Then

changeproperty "AllowBypassKey", dbBoolean, True

Else

changeproperty "AllowBypassKey", dbBoolean, False

End If

End Function

Public Function changeproperty(strPropName As String, varPropType As Variant, varPropValue As Variant)

Dim dbs As Database, prp As Property

Const conPropNotFoundError = 3270

Set dbs = CurrentDb

On Error GoTo Change_err

dbs.Properties(strPropName) = varPropValue

changeproperty = True

Change_Bye:

Exit Function

Change_err:

If Err = conPropNotFoundError Then

Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)

dbs.Properties.Append prp

Resume Next

Else

changeproperty = False

Resume Change_Bye

End If

End Function