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

[Amin_vb]

روش پيدا كردن پسورد ديتابيس‌هاي ساخته شده با 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