ابتدا بايد تاريخ درست شدن ديتابيس را بدست آوريد براي اينكار كافيست روي فايل ديتابيس كليك راست كرده و وارد properties شويد در آنجا تاريخ به وجود آمدن فايل نوشته شده است.

سپس بايد تاريخ كامپيوتر خود را به تاريخ ساخت ديتابيس تغيير دهيد
حال وارد Access شده و يك فايل ديتابيس خالي مي‌سازيد و نام blank database.mdb آن را بگذاريد.
حال كد زير را در ويژوال بيسيك اجرا نماييد تا پسورد ديتابيس را به شما بدهد.
تذكر 1 : تاريخ ساخت يك ديتابيس حتما همان تاريخ نوشته شده در properties نيست زيرا مثلا اگر شما يك ديتابيس را Download نماييد تاريخ ساخت همان تاريخ Download شدن فايل مي‌شود و اين باعث مي‌شود اين كد درست عمل ننمايد.
تذكر 2 : در اين كد فرض شده ديتابيس پسورد دار در آدرس c:protected database.mdb هست.

کد:

Dim n As Long, s1 As String * 1, s2 As String * 1
Dim lsClave As String

   Open "c:lank database.mdb" For Binary As #1
   Open "c:protected database.mdb" For Binary As #2
   Seek #1, &H43
   Seek #2, &H43
   For n = 1 To 40 Step 2
      s1 = Input(1, 1)
      s2 = Input(1, 2)
      If (Asc(s1) Xor Asc(s2)) <> 0 Then
         lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2))
      End If
      s1 = Input(1, 1)     ' We skeep the even positions
      s2 = Input(1, 2)     '
   Next
   Close 1
   Close 2
   MsgBox "The password is:" & lsClave

پيدا كردن پسورد ديتابيس‌ها 1

روش پيدا كردن پسورد ديتابيس‌هاي ساخته شده با Access 97
شما با استفاده از ويژوال بيسيك مي‌توانيد اين كار را انجام دهيد

با كد زير مي‌توانيد اين كار را انجام دهيد البته به جاي فايل c:protected db.mdb شما بايد آدرس ديتابيس خود را قرار دهيد.
تذكر : اين كد فقط براي ديتابيس‌هاي ساخته شده در Access 97 كار مي‌كند.
کد:

Dim n As Long, s1 As String * 1, s2 As String * 1
Dim lsClave As String
Dim mask As String

   mask = Chr(78) & Chr(134) & Chr(251) & Chr(236) & _
          Chr(55) & Chr(93) & Chr(68) & Chr(156) & _
          Chr(250) & Chr(198) & Chr(94) & Chr(40) & Chr(230) & Chr(19)

   Open "c:protected db.mdb" For Binary As #1
   Seek #1, &H42
   For n = 1 To 14
      s1 = Mid(mask, n, 1)
      s2 = Input(1, 1)
      If (Asc(s1) Xor Asc(s2)) <> 0 Then
         lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2))
      End If
   Next
   Close 1
   MsgBox "The Password Is: " & lsClave 

نظر يادتون نره!

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: