| Вопрос: Как скрыть базу данных Access от пользователя? | Добавлено: 14.03.08 12:48 |
Автор вопроса:  Серёга
|
|
Делаю прогамму-тестирование.Вопросы и ответы забиты в базе.Соответсвенно после компилции и "бубликации" приложения,моя база спокойненьк валяется в корне дирректории программы.Любой может ее посмотреть.
Можно ли как то скрыть ее от посторонних глаз? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 14.03.08 16:27 |
поставь пароль на БД. Этого вполне хватит от дурака  Если этого мало - можешь шифровать вопросы/ответы в БД.
|
||
|
Номер ответа: 2 Автор ответа: Серёга Вопросов: 8 Ответов: 43 |
Профиль | | #2 | Добавлено: 14.03.08 16:29 |
|
Ну придется пароль ставить,про шифратор я думал,но дополнительные сложности будут при условии что передически в базу данных вопросы добавлять нужно будет
Эх...запаролим значит. Сенькью |
||
|
Номер ответа: 3 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #3 | Добавлено: 15.03.08 19:47 |
|
Если любишь извращения, то можешь при закрытии базы менять первые несколько байт и изменить расширение. после этого она в аксессе не открывается. при открытии из проги выполняешь обратные действия. причем менять расширение на mdb не обязательно. просто переписываешь строчку байт...
вот к примеру: Public Sub DBUnLock() On Error Resume Next Dim mdbHead As String, mdbCode As String mdbHead = "" Open "BaseName.mdb" For Binary Access Write As #1 mdbHead = mdbHead & Chr$(0) & Chr$(1) & Chr$(0) & Chr$(0) & Chr$(83) & Chr$(116) & Chr$(97) & Chr$(110) & Chr$(100) & Chr$(97) & Chr$(114) & Chr$(100) & Chr$(32) & Chr$(74) & Chr$(101) & Chr$(116) & Chr$(32) & Chr$(68) & Chr$(66) & Chr$(0) & Chr$(1) & Chr$(0) & Chr$(0) & Chr$(0) & Chr$(181) & Chr$(110) & Chr$(3) & Chr$(98) & Chr$(96) & Chr$(9) & Chr$(194) & Chr$(85) & Chr$(233) & Chr$(169) & Chr$(103) & Chr$(114) & Chr$(64) & Chr$(63) & Chr$(0) & Chr$(156) & Chr$(126) Put #1, 1, mdbHead Close #1 End Sub Public Sub DBLock() On Error Resume Next Dim mdbHead As String, mdbCode As String Open "BaseName.mdb" For Binary Access Write As #1 mdbHead = "@Всякая хрень...Главное не длиннее чем было "
Put #1, 1, mdbHead Close #1 End Sub |
||
|
Номер ответа: 4 Автор ответа: СерёгаВопросов: 8 Ответов: 43 |
Профиль | | #4 | Добавлено: 16.03.08 01:04 |
|
Arseny
ООо!Это то что нужно!Надо попробывать!Спасибо огромное
|
||
|
Номер ответа: 5 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #5 | Добавлено: 16.03.08 01:27 |
| сказочный тупизъм конечно, но ломается в два счета | ||
|
Номер ответа: 6 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #6 | Добавлено: 16.03.08 10:56 |
|
сказочный тупизъм конечно
От ламмеров и помогает сказочно. А если сильно захотят сломать, один черт ничто не поможет. |
||
|
Номер ответа: 7 Автор ответа: СерёгаВопросов: 8 Ответов: 43 |
Профиль | | #7 | Добавлено: 16.03.08 11:02 |
|
Steel Brand можно подумать пароль сильно поможет
Придется делать как есть. В понедельник попробую |
||
Страница: 1 |