Открытие формы через пароль

[segail]

Здравствуйте.

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

[motorway]

Вариант с отсылкой данных на сервер и проверкой там не подходит?

[segail]

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

[doober]

А в каком виде хотите хранить пароль-зашифрованои или нет
Если в зашифрованом,то какой ключ применять открытый или закрытый?

[segail]

Не встречался с этим делом, только видал, как это происходит.
Вводится числовое значение (пароль), затем клик по кнопке и вход в базу данных.
Наверно в зашифрованном, и закрытый ключ…

[motorway]

Сообщение от segail

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

Да или локальная сеть

[segail]

Сообщение от motorway

Да или локальная сеть

Да нет, так не пойдет.
А вообще такое возможно, или я полез в дебри?

[doober]

Вот простой Алгоритм для шифрования пароля
Create_Parol() создает файл с зашифрованой фразой.
Вы сами со своей книги запустите


А Load_Parol вставите в форму ПАРОЛЯ в загрузку

 Sub Create_Parol()
Dim Parol As String

Parol = "Мой новый пароль" 'Ваш пароль

Set oFSO = CreateObject("Scripting.FileSystemObject")

  Set Myfile = oFSO.CreateTextFile("C:\Пароль.dat") ' Ваш путь и имя файла
For i = 1 To Len(Parol)
    letter = Mid(Parol, i, 1)
   r = Asc(letter) Xor CInt(9999 * Sin(3 * i))

    
Myfile.WriteLine r
    
   
Next

 Myfile.Close

End Sub

 Sub Load_Parol()
Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim s, rez As String
 Set Txt = oFSO.OpenTextFile("C:\Пароль.dat", 1, True)
г = Txt.Line
 i = 1
  Do
  On Error Resume Next
  
        s = Chr(Txt.ReadLine Xor CInt(9999 * Sin(3 * i)))
        
        i = i + 1
       rez = rez & s
       
    Loop While Err = 0
    
    rez = Mid(rez, 1, Len(rez) - 1)
    
MsgBox rez

End Sub

[doober]

Ловите,сначала создайте пароль,потом проверяйте

[doober]

Совсем упустил обработку ошибок
Замените на

 Sub Load_Parol()
Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim s, rez As String

On Error GoTo 1

 Set Txt = oFSO.OpenTextFile("C:\Пароль.dat", 1, True)
г = Txt.Line
 i = 1
  Do
  On Error Resume Next
  
        s = Chr(Txt.ReadLine Xor CInt(9999 * Sin(3 * i)))
        
        i = i + 1
       rez = rez & s
       
    Loop While Err = 0
    
    rez = Mid(rez, 1, Len(rez) - 1)
Parol = rez

1
End Sub