نحویه بدست آوردن کلمه عبور فایلهای mdf

[mu_malekzadeh]

با سلام
سئوالی در مورد نحویه باز کردن فایلهای بانک های اطلاعاتی اکسس دارم آیا کسی می تواند کمک کند که یک فایل بانک اکسس که کلمه عبور آن را نمی دانم را باز نمایم
با تشکر

[Behrouz_Rad]

سلام.
این عکس چیه گذاشتی اینجا!!!!!!!!!!
واسه پیدا کردن کلمه عبور بانک Access 97 از کد زیر استفاده کن:


Private Sub btnPass97_Click()
On Error GoTo errHandler
Dim ch(18) As Byte, x As Integer
Dim sec
If Trim(txtFileName) = "" Then Exit Sub
sec = Array(0, 134, 251, 236, 55, 93, 68, 156, 250, 198, 94, 40, 230, 19, 182, 138, 96, 84)
txtPass.Text = ""
Open txtFileName.Text For Binary Access Read As #1 Len = 18
Get #1, &H42, ch
Close #1
For x = 1 To 17
txtPass.Text = txtPass.Text & Chr(ch(x) Xor sec(x))
Next x
Exit Sub
errHandler:
MsgBox "ERROR occcured:" & vbCrLf & Err.Number & ": " & Err.Description, vbCritical, "ERROR"
Exit Sub
End Sub

یک دکمه و 2 تا Text Box به نامهای txtFileName و txtPass.
Access 2000 رو با عرض شرمندگی نمی تونم بدم... :wink:
موفق باشید.

[setarehman]

وقتی برنامش هست دیگه چرا دستی بنویسیم فایل mdb رو به اون میدیم اون وقت پسورد اون رو به ما میده
هم 2000 هم 97
به همین راحتی

[Behrouz_Rad]

سلام.
اینجا محل رد و بدل کردن کد هستش جناب نه برنامه هر چند که بعضیا.......
ولی اگر دنبال برنامه می گردید باید برید یه انجمن دیگه .......
:wise1:

[mu_malekzadeh]

از نظر لطف همه شما متشکرم
اما خود من کد مربوط به اکسس 2000 را دارم ولی برخی از بانک هایی را که اصلا کد ندارد یا کد دارد را شناسایی نمی کند در 90% موارد فقط چند تا از انها را پیدا کرده است بقیه را کدی شبیه به این نشان می دهد

( 7؟؟عععععع8ی)

لطفا کمکم کنید

[Behrouz_Rad]

سلام.
شما باید مقادیر به دست آمده را برای پیدا کردن پسورد Access 2000 با همدیگه XOR کنید.
:wise1:

[mu_malekzadeh]

ممنون می شم اگر لطف کنی بیشتر توضیح بده چطور اینکار را بکنم

[mu_malekzadeh]

ببینید مشکل من اینجاست که یک بانک اکسس دارم که نمی تونم اون رابازش کنم حالا اگه شده با کد نویسی که چه بهتر در غیر اینصورت یک برنامه برای انکار برای من ارسال یا معرفی کنید

[setarehman]

این برنامه توی اکثر سایتهای هک هست access password recovery از توی سی دی های هک هم میتونی
این برنامه رو پیدا کنی

[روانشناس]

دوست عزیزم Voldemort قبلا کدهای بدست آوردن پسورد اکسس 97 و 2000 رو تو همین سایت گذاشته اگه اسمشو سرچ کنید حتما می تونید پیداش کنید.

[Behrouz_Rad]

سلام.
آقا جان ما کوتام اومدیم بیا اینم مال Access 2000.
فقط یه CheckBox بذار رو فرم و اسمش رو به chkUse3 تغییر بده.
یک Txtfilename و یک txtpass که به ترتیب نام فایل و پسورد به دست آمده رو نشون می دن.


Private Sub btnPass2000_Click()
On Error GoTo errHandler
Dim ch(40) As Byte
Dim x As Integer, sec2, intChar As Integer, blnUse3 As Boolean
If Trim(txtFileName) = "" Then Exit Sub
sec2 = Array(0, 194, 117, 236, 55, 25, 202, 156, 250, 130, 208, 40, 230, 87, 56, 138, 96, 16, 26, 123, 54, 177, 252, 223, 177, 51, 122, 19, 67, 139, 33, 177, 51, 112, 239, 121, 91, 214, 59, 124, 42)
sec3 = Array(0, 229, 117, 236, 55, 62, 202, 156, 250, 165, 208, 40, 230, 112, 56, 138, 96, 55, 26, 123, 54, 150, 252, 223, 177, 20, 122, 19, 67, 172, 33, 177, 51, 87, 239, 121, 91, 241, 59, 124, 42)
txtPass.Text = ""
blnUse3 = False
Open txtFileName.Text For Binary Access Read As #1 Len = 40
Get #1, &H42, ch
Close #1
For x = 1 To 6
intChar = ch(x) Xor sec2(x)
If ((intChar < 32) Or (intChar > 126)) And (intChar <> 0) Then
blnUse3 = True
End If
Next x
If chkUse3.Value = vbChecked Then
blnUse3 = True
End If
For x = 1 To 40
If blnUse3 = True Then
intChar = ch(x) Xor sec3(x)
Else
intChar = ch(x) Xor sec2(x)
End If
txtPass.Text = txtPass.Text & Chr(intChar)
Next x
Exit Sub
errHandler:
MsgBox "ERROR occcured:" & vbCrLf & Err.Number & ": " & Err.Description, vbCritical, "ERROR"
Exit Sub
End Sub

موفق باشید.

[R_BABAZADEH]

:thnx: