Форум: "Базы";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
ВнизПомогите с плиз 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 вся ветка
Форум: "Базы";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c