| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с плиз ;Access-овским паролем [D6, Access]
surkis © (2002-10-04 11:58:00)Ребята, помогите взломать пароль к базе даных на Access. Буду очень благодарен!
BlackTiger (2002-10-04 13:47:00) [1]Вот такая вот крутенная защита у Акксесса! Снимается легким движением руки. :-) Эх, Microsoft, Microsoft...
surkis (2002-10-04 12:43:00) [2]Большое спасибо, ты мне очень помог!
BlackTiger (2002-10-04 12:24:00) [3]Код для 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
| |
