При запуске программы появляется окно для ввода пароля. При его вводе в этом окошке набираемый текст закрывается звездочками. Как сделать?

Ну думаю текстовый бокс ты в состоянии расположить на форме... У тектового бокса в свойстве PasswordChar поставь *.
Короче говоря, символ, который стоит в этом свойстве будет отображаться, как маска, скрывающая то, что вводит пользователь.

а в inputbox можно сделать звездочки?
или только в textbox ?

Если только в textbox то как сделать, что бы загрузилась form1 ввел пароль если паоль праильный form1 закрывается и открывается form2 (сама программа). Если пароль не верный в form1 то в программу не пускает. Выход.

Ну так алгоритм ты сам только что рассказал, что мешает его реализовать? Воспользуйся условиями If(...) Then .... Else..., ну и соответственно либо выгружай форму, либо выгружай и загружай вторую форму.

Код

Dim strPass As String strPass = "d1fg25" If txtPass.Text <> strPass Then    ' Пароль не совпал, выгружаем форму Else    ' Пароль совпал, выгружаем форму с запросом пароля    ' и подгружаем вторую форму. End If

Удачи.

Так, для Login формы есть соответствующий шаблон...
Для inputbox'а нельзя, разве только ты сам его сделаешь, т.е. будет не inputbox, а твоя форма его заменяющая.

загрузить, выгрузить форму как?
Login форма где?

Цитата(Guest @ 16.7.2005, 20:13)

загрузить, выгрузить форму как?

блин, почитай книжку какую-нибудь...

Код

Load Form1 Unload Form1

Цитата(Guest @ 16.7.2005, 20:13)

Login форма где?

правой кнопкой на окне проектов, Добавить - Форма - в появившемся окне выбираем Log in Dialog

Spawn™Production®

Цитата

Для inputbox'а нельзя

Если очень хочется, то можно:

Код

'Modul1.bas Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SetTimer& Lib "user32" (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal lpTimerFunc&) Private Declare Function KillTimer& Lib "user32" (ByVal hwnd&, ByVal nIDEvent&) Private Sub TimerProc(ByVal hwnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)     Dim myHwnd As Long     myHwnd = FindWindowEx(FindWindow("#32770", App.Title), 0, "Edit", "")     Call SendMessage(myHwnd, &HCC, 42, 0)     KillTimer hwnd, idEvent End Sub Sub main() SetTimer 0, &H5000&, 10, AddressOf TimerProc Dim strPass As String, strInpt As String strPass = "d1fg25" strInpt = InputBox("Введите пароль доступа") If StrPtr(strInpt) <> 0 Then     If strInpt <> strPass Then            MsgBox "Пароль не совпал, выгружаем форму"         Else            MsgBox "Пароль совпал, выгружаем форму с запросом пароля " & _            "и подгружаем вторую форму."     End If End If End Sub

bom, хех, уж лучше я под енто дело форму забадяжу, имхо сразу возможностей больше.

Инпутбокс и вправду выглядит не очень

Кстати, Spawn™Production®, спасибо за линк на API-Guide, только что скачал, классная весчь.

Это сообщение отредактировал(а) bom - 16.7.2005, 22:12

Самое простое решение:

в свойствах Text1 - PasswordChar поставить *

Для формы 1

Private Sub Command1_Click()
If Text1 = "пароль" Then Form2.Show Else End
End Sub

----------------------------------------------------
Для формы 2

Private Sub Form_Load()
Unload Form1
End Sub

Да форма проще и удобнее. И возможнностей побольше будет...

А это надежная "система защиты", если ее так можно назвать ? Можно будет как-то узнать пасс в if-условии ? Кроме как из отладчика ?

Цитата(assassin @ 24.7.2005, 11:17)

А это надежная "система защиты", если ее так можно назвать ?

Весьма сомневаюсь.

Цитата(ArtNeoX @ 17.7.2005, 11:28)

Самое простое решение: в свойствах Text1 - PasswordChar поставить *

Код

Private Sub Command1_Click() If Text1 = "пароль" Then Form2.Show Else End End Sub

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

Надо применять алгоритмы шифрования (симметричные/несимметричные), впрочем открыть справочник по криптографии и на основе какого-нибудь алгоритма (табличный алгоритм с открытым ключом например, как самый простой) написать подпрограмму на VB, шифрующую по такому принципу: например ввел слово "пароль" получил "63&Da830)~e", предположим, взломщик вычислил "63&Da830)~e", но без второго ключа, зная даже "63&Da830)~e" и формулу он сделать ничего не сможет. Если пишешь для своей организации, где все свои, но в она все-таки просочилась в Сеть вряд ли крэкеры будут для нее что-то писать, уж очень специфичный задачи на VB.

А то, что вводится в TextBox.Passwordchar = "*" это ИМХО самый последний шаг, интерфейс. И защищать программу стоимостью > 100$ никто по такому принципу (да еще в VB) не будет. Я вот мучался с Фотошопом 8 в результате сделал дедовским способом - удалением/установкой заново с помощью Total Uninstaller (вот такие программы нужны, как воздух ).

Хранить незащищенный ключ в теле программы - неправильно, это все понимают, но и другие способы имхо не особо надежны - в частности предлагаемый Voldemar2004 с шифрованием. Главная уязвимость это условие If Text1 = "пароль" Then Form2.Show Else End. Дизассемблировав программу, его можно увидеть как на ладони в виде Asm кода наподобие:

Код

push 004011EB Call 0040115A xor byte ptr [eax], a1 add byte ptr [eax], a1

Извините в Асме не разбираюсь
После несложных манипуляций c Asm кодом более опытным чем я кодером, наше условие будет иметь вид:
If Text1 = "пароль" Then Form2.Show Else Form2.Show, т.е. после сохранения изменений, наша программа будет считать правильным паролем любую строку и даже пустую.

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