Скачать: CL | DM;

Помогите с плиз Access-овским паролем   Найти похожие ветки 

← →
surkis   (2002-10-04 11:58) [0]

Ребята, помогите взломать пароль к базе даных на Access. Буду очень благодарен!

---

← →
BlackTiger   (2002-10-04 12:24) [1]

Код для VB:
Public Sub funSetPassword()
Dim i As Integer, ID As Byte, myFlag As Integer, myMsg As String
Dim MDBFileName As String, b As Byte
"On Error GoTo 999
pwdFree = Array(&H86, &HFB, &HEC, &H37, &H5D, &H44, _
&H9C, &HFA, &HC6, &H5E, &H28, &HE6, &H13)
pwdOne = Array(183, 251, 236, 55, 93, 68, _
156, 250, 198, 94, 40, 230, 19)


If MsgBox("Remove password?", vbOKCancel + vbExclamation, "Warning") = vbOK Then
myFlag = 0
MDBFileName = InputBox$("MDB full name:", "Enter", "")
If MDBFileName = "" Then: Exit Sub

ID = FreeFile
Open MDBFileName For Binary As ID
For i = 0 To 12
Select Case myFlag
"Case 0: Put #ID, 67 + i, CByte(pwdFree(i))
"Case 1: Put #ID, 67 + i, CByte(pwdOne(i))
Case 0:
b = pwdFree(i)
Put #ID, 67 + i, b
Case 1:
b = pwdOne(i)
Put #ID, 67 + i, b
End Select
Next i
Close
MsgBox myMsg, vbInformation, "SetPassword"
End If

Exit Sub
999:
MsgBox Err.Description
End Sub

---

← →
surkis   (2002-10-04 12:43) [2]

Большое спасибо, ты мне очень помог!

---

← →
BlackTiger   (2002-10-04 13:47) [3]

Вот такая вот крутенная защита у Акксесса! Снимается легким движением руки. :-) Эх, Microsoft, Microsoft...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c