У меня есть программа, с базой данных, т.е. база 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. Файл рабочей группы. Почитай хелп, что ли...

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

REVOLT
И что? Я процитировать хелп сюда должен? Форум может и нафига, но уж точно не резиновый... сие раз. Два - так это то, что в хелпе ты инфу найдешь быстрее чем я отвечу (if). И три - кому охота помогать человеку, который сам не желает что-либо делать?
Резюме - форум для того случая когда все испробовано, но не помогло.

ИМХО конечно...

Во-первых я не знаю про какой хелп идёт речь?
Во-вторых я задал вопос как и многои участники форума.
Ну а в третих пробывал это:

Код

Option Explicit Private WS As Workspace Private DB As Database Dim strDBPath As String Dim strNewPwd As String Private Sub Command1_Click() Set WS = DBEngine.Workspaces(0) Set DB = WS.OpenDatabase (strDBPath,True,False) DB.NewPassword "111", strNewPwd End Sub

Всёравно не фига не получается...

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

REVOLT, ну делал я раньше так:
пароль на базу ставил прямо в Access , а потом работал с ней через DAO (то есть подключить надо Microsoft DAO 3.6 Object Library. Вот как я открывал базу:

Код

Private mdb As dao.Database               'база данных Private Sub Form_Load() On Error Resume Next Dim strConnect As String Dim pwd As String Text1.Text = "какой-нибудь пароль" pwd = Text1.Text strConnect = ";database=" & App.Path & "\db23.mdb" & ";PWD=" & pwd & ""  'data access with password" On Error Resume Next Set mdb = OpenDatabase("", True, False, strConnect) If Err Then lblLog.Left = 800 lblLog.Caption = "Неправильный пароль." 'Opening your Database failed." 'MsgBox "Вы ввели неправильный пароль", vbExclamation, "Защита доступа" Else Module1.ProgrammStart End If ...

Все что здесь написано было сделано очень давно (примерно два месяца до того как я зарегистрировался на форуме) и поэтому... сильно не ругайтесь Ну так... как пример использовать можно.

Когда изучал базу пришел к выводу, что она зашифровывается, когда ты на нее ставишь пароль. Что как бы логично, иначе какой вообще смысл в пароле...

cardinal, спасибо помог, надал разбираться с твоим репвым примером, но тут теперь такой вопросик, не знаю ли стоит создавать ноавй топик, или сюда написать. Но я напишу наверное, вопрос на мой взгляд не вызовит больших дискуссий.

Есть два текстовых поля code и txtPassword
В txtPassword вводятся символы, а в этот момент в code перекодируются

Код

Option Explicit Private Sub cmdOK_Click() Dim pwl As Variant code.Text = pwl SaveSetting App.EXEName, "Code", "pas", pwl End Sub Private Sub txtPassword_Change() code = Encode(txtPassword) End Sub

Вы наверно поняли что мне хочется записать перекодированный пароль в реестра, как это сделать. Тот код который я привёл не работает. Где я допустил ошибку???

Код

Option Explicit Private Sub cmdOK_Click() Dim pwl As String pwl = code.Text SaveSetting App.EXEName, "Code", "pas", pwl End Sub Private Sub txtPassword_Change() code.Text = Encode(txtPassword) End Sub

Это я так... на работоспособность не проверял... Если не поможет, значит я тебя не понял

cardinal, всё работает! Спасибо тебе, выручил очень!

Ну вот, а ты боялся

cardinal, я тут с реестром немного запутался.

вот код. Но почемуто программа не считывает данные из реестра

Код

Private Sub Form_Load() If pass.Text = "" Then  txtPassword.Visible = True  cmdOK.Visible = True  txtPass.Visible = False    ope.Visible = False End If If pass.Text = GetSetting(App.EXEName, "Code", "pas") Then    txtPassword.Visible = False    cmdOK.Visible = False    txtPass.Visible = True    ope.Visible = True End If End Sub

Плдскажите почему в pass.Text не появляются данные из реестра.

А это что за конструкция?

Код

If pass.Text = GetSetting(App.EXEName, "Code", "pas") Then ...

Отвыкай так писать, тогда и не будешь голову ломать на всякой ерундой...

Вот пример:

Код

Option Explicit Private Sub DeletePass_Click() DeleteSetting App.EXEName, "Code", "pas" End Sub Private Sub GetPass_Click() pass.Text = GetSetting(App.EXEName, "Code", "pas") End Sub Private Sub SetPass_Click() Dim pwl As String pwl = pass.Text SaveSetting App.EXEName, "Code", "pas", pwl End Sub

[quote]А это что за конструкция?


Код

Код

If pass.Text = GetSetting(App.EXEName, "Code", "pas") Then ...

[quote]

Ну это условие. Есле в текстровом поле символы такие же как и в реестре то поисходит условие.
Но это уже не важно. Писат стараюсь переучиваться
У меня всё получилось. Всёравно спасибо

Цитата(REVOLT @ 7.10.2004, 19:40)

Есле в текстровом поле символы такие же как и в реестре то поисходит условие.

Понимаю... То ли я на ручнике был, то ли что, но я почему то не был уверен, что это откомпилируется правильно. Вообщем в таком случае комментарий бы не помешал, а если без коментария, то я думаю лучше будет читаться так (твой код немного подправил):

Код

Private Sub Form_Load() Dim SavedPwd As String If pass.Text = "" Then txtPassword.Visible = True cmdOK.Visible = True txtPass.Visible = False ope.Visible = False End If SavedPwd = GetSetting(App.EXEName, "Code", "pas") If pass.Text = SavedPwd Then txtPassword.Visible = False cmdOK.Visible = False txtPass.Visible = True ope.Visible = True End If End Sub

В этом случае все и без комментариев становится понятно.

Вот представляешься приперся я усталый домой и посмотрел в твой исходник Я конечно согласен что протормозил, но ведь с кем не случается... Дело в том, что в Си оператор сравнения выглядит так: ==, а тут был знак =. Вот я что-то и подумал, что возвратит тебе операция присваивания...
Но думаю раз все таки случилось - значит надо написать по лучше чтобы и ты сам через год после того как не видел этого кода (попрограммировав может даже на многих других языках) понял, что ты написал когда-то там...

Я сделал одну ошибку пару лет назад - плохо комментировал, плохо называл переменные, про редактировал исходники и т..д. - и на то, что тогда понаписал смотрю теперь с ужасом

Спасибо тебе уважаемый Гуру, дописываю эту программу, а с новой всё начинаю коментировать правильно. Как ты правильно сказал сто чере год туда страшно глянут. Я уже недельки две колдую над программой. И туда ужестрашно залязить... ,а через год есле туда глянуть, то вообще заикаться можно начать