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

[Amin_vb]

با استفاده از اين كد مي‌توانيد پسورد ديتابيس‌هاي Access 2000 را پيدا كنيد.

ابتدا بايد تاريخ درست شدن ديتابيس را بدست آوريد براي اينكار كافيست روي فايل ديتابيس كليك راست كرده و وارد 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:\blank 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

 

[emperatoor]

ييييي

سلام
ميشه در مورد اين كار (البته در مورد همه آموزشهاتون) يه ذره بيشتر توضيح بدين منظورم كامل تره مثلا اين كدها رو در كدوم قسمت بايد نوشت (براي فرم يا ...) و توضيحات ديگر

 

[Amin_vb]

سلام

سلام دوست عزيز
شما درست مي‌گوييد چشم از اين پس توضيح بيشتري مي‌دهم
البته من توصيه مي‌كنم شما هم اطلاعات خود را در مورد ويژوال بيسيك افزايش دهيد.

اما در مورد اين كد شما بايد اين كد را در قسمت Click يك دكمه قرار دهيد يا در هر جايي كه به نوعي اجرا شود.

 

[emperatoor]

سلام
آقا من اين كد را در قسمت لود يك فورم قرار دادم اما كار نكرد همينطور اكسس97 رو اما اونم كار نكرد ميشه سورسشو البته اگه زحمتي نيست برام بفرستين
[email protected]