У меня есть программа, с базой данных, т.е. база Access отдельно от программы ( в томже каталоге), как сделать так чтобы доступ к базе данных из програмы был только через пароль, т.е. когда открывешь прогу, должно появиться окно ввода пароля и программа должна работать дальше, если парошь правельный, но а есле нет... Это я сделать могу. Но проблема собственно в том что если открыть базу данных, то с ней там можно творить всё что угодно, а мне нужно чтобы доступ к базе был также закрыт парольем тем же что и ропграмма.
Подскажите пожалуйста, Программисты добрые!

Цитата

с ней там можно творить всё что угодно

Ну... ее и удалить можно - тут никакой пароль не поможет...

Организуй шифрование данных по этому паролю...

Akina

Цитата

Организуй шифрование данных по этому паролю...

А это как???



В смысле примерчик не большой приведи?

Это сообщение отредактировал(а) REVOLT - 4.10.2004, 18:54

REVOLT, вот тебе один прикольный пример:

Цитата

Thanks to James Hansen. The main program displays a string in Base64 encoding and then decodes the encoding to verify that it contains the correct string. It then repeats those steps for the BinHex encoding. To encode in Base 64, the program makes an XML document and gives it an encode element of type bin.base64. It copies the string into an array of bytes, assigns it to the encoder, and reads the result from its Text property. To decode the Base 64, the program makes an XML string containing the encoded information, loads it, and reads the decoder node's text. The functions that encode and decode BinHex work similarly.

Код

Private Sub Form_Load() Dim StringToEncode As String    StringToEncode = "Hi James!"    ' To Base64    Debug.Print Encode(StringToEncode)    Debug.Print Decode(Encode(StringToEncode))    ' To Hex    Debug.Print ToHex(StringToEncode)    Debug.Print FromHex(ToHex(StringToEncode)) End Sub Public Function Encode(ByVal iStr As String) As String Dim iXml As New MSXML2.DOMDocument30 Dim iArray() As Byte    With iXml.createElement("Encoder")        .dataType = "bin.base64"        ReDim iArray(LenB(iStr))        CopyMemory iArray(0), ByVal StrPtr(iStr), LenB(iStr)        .nodeTypedValue = iArray()        Encode = .Text    End With End Function Public Function Decode(ByVal iStrbase64 As String) As Byte() Dim strXML As String    strXML = "<DECODER xmlns:dt=" & Chr(34) & _        "urn:schemas-microsoft-com:datatypes" & Chr(34) & " " & _        "dt:dt=" & Chr(34) & "bin.base64" & Chr(34) & ">" & _        iStrbase64 & "</DECODER>"    With New MSXML2.DOMDocument30        .loadXML strXML        Decode = .selectSingleNode("DECODER").nodeTypedValue    End With End Function Public Function ToHex(ByVal iStr As String) As String Dim iXml As New MSXML2.DOMDocument30 Dim iArray() As Byte    With iXml.createElement("Encoder")        .dataType = "bin.hex"        ReDim iArray(LenB(iStr))        CopyMemory iArray(0), ByVal StrPtr(iStr), LenB(iStr)        .nodeTypedValue = iArray()        ToHex = .Text    End With End Function Public Function FromHex(ByVal iStrbase64 As String) As _    Byte() Dim strXML As String    strXML = "<DECODER xmlns:dt=" & Chr(34) & _        "urn:schemas-microsoft-com:datatypes" & Chr(34) & " " & _        "dt:dt=" & Chr(34) & "bin.hex" & Chr(34) & ">" & _        iStrbase64 & "</DECODER>"    With New MSXML2.DOMDocument30        .loadXML strXML        FromHex = _            .selectSingleNode("DECODER").nodeTypedValue    End With End Function

Я подключил Msxml3.dll в References и все заработало.

cardinal, я понимаю твой профессионализм, а нельзя как кибудь по проще, для нацинающих

Цитата(REVOLT @ 4.10.2004, 18:56)

cardinal, я понимаю твой профессионализм, а нельзя как кибудь по проще, для нацинающих

Спасибо конечно , но на самом деле ничего сложного тут нет.

Все что тебя интересует здесь это вот эти две строки:

Код

Debug.Print Encode(StringToEncode) Debug.Print Decode(Encode(StringToEncode))

Остальное ты берешь как есть и пользуешься.
Эти две строчки показывают тебе, что строка StringToEncode шифруется и расшифровывается правильно. А остальное это просто хитрое использование библы Msxml3.dll.
Засунь это все в проект и поставь breakpoint на первой из этих двух строк и нажми один раз Shift-F8. Посмотри на содержанием окна Immediate. Это твоя зашифрованная StringToEncode. Нажав второй раз Shift-F8 она расшифровывается и появляется в том же окне Immediate.
(Если ты не видишь окна Immediate на экране когда открыт проект, то нажми Ctrl-G и оно появится).

Не боись - прорвемся!

По моему, REVOLT, хотел повесить пароль на файл mdb и сделать окошко авторизации в программе.

Цитата(Akina @ 4.10.2004, 16:04)

Организуй шифрование данных по этому паролю...

Цитата(Akina @ 4.10.2004, 16:04)

А это как???

Цитата(REVOLT @ 4.10.2004, 17:51)

В смысле примерчик не большой приведи?

boevik, вот я и привел пример.

Цитата(boevik @ 4.10.2004, 19:18)

По моему, REVOLT, хотел повесить пароль на файл mdb и сделать окошко авторизации в программе.

Ну так я не вижу никакой проблемы в том, чтобы зашифровать базу самому. Причем зашифровать только важные столбцы например, а те в которых индекс стоит, оставить как есть. Причем база будет всегда зашифрованной, а вот когда данные будут читаться программой REVOLT'а они будут одновременно расшифровываться, но только для пользования внутри программы, а база меняться при этом не будет. Соответственно записывать данные в базу надо в зашифрованном виде.
boevik, а если ты имеешь в виду воспользоваться стандартными средствами Access под

Цитата(boevik @ 4.10.2004, 19:18)

хотел повесить пароль на файл mdb и сделать окошко авторизации в программе

, то я это так и делал по началу, но потом понял, что хакеры уже давным давно сделали всякие вскрывалки бд.
А если сделать так, как я предлагаю, то еще придется голову почесать над тем, как же данные зашифрованы.

cardinal,

Цитата

хотел повесить пароль на файл mdb и сделать окошко авторизации в программе

boevik, а ты меня понял, мне нужен пароль на базу данных и авторизация в пограмме.

Цитата

, то я это так и делал по началу, но потом понял, что хакеры уже давным давно сделали всякие вскрывалки бд. А если сделать так, как я предлагаю, то еще придется голову почесать над тем, как же данные зашифрованы.

Мнебы пока прмерчик по проще, а программа обычная, сверх сикретных даннех нет. Делаю программку на курсовую работу, мне это нужно для отвода глаз перпода ;) . cardinal, а как ты рашьше зашифроввывал.




Это сообщение отредактировал(а) REVOLT - 5.10.2004, 12:33

REVOLT

Цитата

мне нужен пароль на базу данных

Ломается за 2 секунды

Цитата

авторизация в пограмме

MDW

Akina, ну и фиг с ней, скажите как сделать, наш препод, а точнее преподовательница это не заметит .


А ломается в блокноте есле не ошибаюсь?

Цитата

А ломается в блокноте есле не ошибаюсь?

Есть куча прог. Стартуешь, тычешь мышом в БД, она тебе дает пару паролей, которые к ней подходят - один 8-символьный, другой строго буквоциферный.

Точно, вспомнил, есть даже на компе у меня , так как её запаролеть, обычным методом, без подключения библиотек???
Подскажие плиз...

Это сообщение отредактировал(а) REVOLT - 5.10.2004, 13:51

REVOLT
Ну я же тебе сказал - MDW. Файл рабочей группы. Почитай хелп, что ли...

Цитата

Ну я же тебе сказал - MDW. Файл рабочей группы. Почитай хелп, что ли...

Нафига тогда форум?