Вверх ↑
Этот топик читают: Гость
Ответов: 11
Рейтинг: 1
#1: 2009-12-18 22:05:45 ЛС | профиль | цитата
как реализовать такую задумку:пользователь запускает программу, ему выводится поле для ввода логина и пароля, он их вводит(если ввёл не правильно, то вход в программу не осуществляется.).После того ,как пользователь ввёл правильный логин и пароль, открывается вторая(основная программа)..Хотелось бы что бы пользователей было несколько, а ни один логин и пароль на всех
карма: 1

0
Ответов: 578
Рейтинг: 14
#2: 2009-12-18 22:41:30 ЛС | профиль | цитата
можно вот так code_16024.txt
карма: 0

0
файлы: 1code_16024.txt [2.2KB] [132]
Ответов: 11
Рейтинг: 1
#3: 2009-12-19 00:46:40 ЛС | профиль | цитата
а где там логин и пароль???и куда вставлять ссылку на прогу
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#4: 2009-12-19 00:54:16 ЛС | профиль | цитата
GanjaKyp, у меня не работает.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 294
Рейтинг: 64
#5: 2009-12-19 03:11:07 ЛС | профиль | цитата
Tad писал(а):
у меня не работает

У меня работает...

Только я бы не стал хранить логин/пароль в открытую, ибо можно открыть exe_шник в том же блокноте (если запкован, предварительно распаковав), найти текст о неверном вводе и рядышком обнаружить заветное...
Можно использовать не сами логины/пароли, а их HashSum (защитой это не назовешь, но все-таки).
И судя по:
qazd писал(а):
и куда вставлять ссылку на прогу

требуется запускать отдельное прилложение.
Вот чуть переделанный вариант:

Add(MainForm,2953706,658,252)
{
Width=262
Height=120
Color=-16777215
BorderStyle=6
DragForm=0
Position=1
}
Add(Edit,1593883,308,238)
{
Left=70
Top=10
Width=180
Color=-16777215
Font=[MS Sans Serif,8,1,16777215,1]
Text="user"
}
Add(Edit,12996056,357,238)
{
Left=70
Top=30
Width=180
Color=-16777215
Font=[MS Sans Serif,8,1,16777215,1]
Text="pass"
}
Add(Label,7102031,252,203)
{
Left=30
Top=10
Width=30
Font=[MS Sans Serif,8,1,16777215,1]
Transparent=0
Caption="Login:"
}
Add(Label,8682868,252,217)
{
Left=5
Top=35
Font=[MS Sans Serif,8,1,16777215,1]
Transparent=0
Caption="Password:"
}
Add(Button,8087888,252,301)
{
Left=5
Top=90
Width=245
Color=-16777206
Font=[MS Sans Serif,8,1,0,1]
Caption="Start"
link(onClick,3679571:doString,[])
}
Add(FormatStr,3679571,329,301)
{
Mask="%1<:>%2"
link(onFString,7594975:doHashsum,[])
link(Str1,1593883:Text,[(335,285)(314,285)])
link(Str2,12996056:Text,[(342,285)(363,285)])
}
Add(StrList,16205029,420,259)
{
Strings=#32:99CDDBC7C3C061EE5881F09D0C548E72|32:789BB28ED667E031C76C16B0CD14432C|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,9628082:doCompare,[])
}
Add(Hashsum,7594975,371,301)
{
link(onResult,16205029:doGetIndex,[])
}
Add(WinExec,8084295,588,273)
{
FileName="notepad.exe"
link(onExec,9600782:doWork2,[])
link(FileName,138064:Text,[])
}
Add(Message,7007874,539,112)
{
Message="Wrong login or password!"
Caption="Error"
link(onMessage,9600782:doWork1,[(641,118)])
}
Add(Edit,138064,588,217)
{
Left=70
Top=60
Width=180
Text="mspaint.exe"
}
Add(DoData,3361052,539,273)
{
link(onEventData,8084295:doExec,[])
}
Add(Label,6973626,252,238)
{
Left=40
Top=65
Width=25
Font=[MS Sans Serif,8,1,16777215,1]
Transparent=0
Caption="File:"
}
Add(hcVisualText,15513200,406,119)
{
Lines=#13:Существующие:|11:user - pass|13:user1 - pass1|24:------------------------|25:В StrList можно добавлять|23:Хэш-суммы других связок|12:login<:>pass|
Width=95
Height=130
}
Add(hcVisualText,11298349,546,154)
{
Lines=#27:Путь к "основной" программе|
Width=74
Height=53
}
Add(If_else,9628082,469,266)
{
Op2=Integer(-1)
link(onTrue,7007874:doMessage,[(520,272)(520,118)])
link(onFalse,3361052:doData,[])
}
Add(HubEx,9600782,637,273)
{
link(onEvent,2953706:doClose,[])
}


карма: 0

0
Ответов: 3851
Рейтинг: 159
#6: 2009-12-19 18:54:55 ЛС | профиль | цитата
GanjaKyp, у меня после удачного ввода не закрываются формы..
карма: 0
начавший
0
Ответов: 11
Рейтинг: 1
#7: 2009-12-19 20:18:43 ЛС | профиль | цитата
всё получилось. только как в HashSum зашифровать???просто ни когда не интересовался
карма: 1

0
Ответов: 4641
Рейтинг: 334
#8: 2009-12-19 20:33:30 ЛС | профиль | цитата
qazd писал(а):
не интересовался

так поинтересуйся Hashsum
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 11
Рейтинг: 1
#9: 2009-12-19 21:02:35 ЛС | профиль | цитата
бред какой-то. добавляю хеш-сумму(user33<:>qazd) в StrList, запускаю программу ввожу логин и пароль и пишет Ошибка!

В чём ошибка??вот код:
code_16039.txt
карма: 1

0
файлы: 1code_16039.txt [2.5KB] [146]
Ответов: 4641
Рейтинг: 334
#10: 2009-12-19 21:20:06 ЛС | профиль | цитата
qazd писал(а):
бред какой-то.

а регистр не надо что ли соблюдать?
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 11
Рейтинг: 1
#11: 2009-12-19 21:57:35 ЛС | профиль | цитата
Ravilr писал(а):
а регистр не надо что ли соблюдать?

???
карма: 1

0
Ответов: 4641
Рейтинг: 334
#12: 2009-12-19 22:02:50 ЛС | профиль | цитата
qazd писал(а):
???

BEC3A196E79A1D410384D90059853C08
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
12
Сообщение
...
Прикрепленные файлы
(файлы не залиты)