|
Вопрос # 289/ вопрос открыт / |
|
Уважаемые программисты, доброго времени суток.
Подскажите каким образом можно поставить пароль на вход в программу и затем изменять его в готовой программе.
Заранее спасибо.
 |
Вопрос задал: Илья Бабаков (статус: Посетитель)
Вопрос отправлен: 29 января 2007, 06:03
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
1) В файле твой_проект.dpr напиши перед Application.Run:
if InputBox('Пароль', 'Введи пароль', '') = Password
then Application.Run;
Примечание: лучше сделать своё окно вместо InputBox(), для ввода пароля юзать TEdit при его PasswordChar:= '*'.
2) Для изменения пароля делаешь форму, на ней 3 TEdit: для старого пароля, нового пароля и его подтвержения, все при PasswordChar:= '*'; Для вызова этого диалога надо предусмотреть, например, соответствующий пунтк меню.
3) Где хранить и как шифровать пароли - выбирай сам, вариантов много.
4) Могу написать простенький пример.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 29 января 2007, 08:36
Оценка за ответ: 4
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 1 февраля 2007, 08:19; участников в обсуждении: 3.
|
|
Илья Бабаков (статус: Посетитель), 29 января 2007, 12:03 [#1]:
Можно подробней про хранение и шифрование.
За пример-не плохо бы.
Спасибо.
|
|
|
min@y™ (статус: Доктор наук), 30 января 2007, 10:10 [#2]:
Написал тебе пример с шифрованием по MD5 и хранением в ini-файле. Куды выслать, мыло давай.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Илья Бабаков (статус: Посетитель), 30 января 2007, 20:34 [#3]:
scuba21@rambler.ru-моё мыло,а на счет InputBox-не получается(компеллятор ругается)
|
|
fd_coder (статус: Посетитель), 31 января 2007, 00:34 [#4]:
а можно и мне пример, токо мне более интересней само шифрование и какие компонент используешь, если можешь тож прикрепи, или ссылочку думаю не мне одному будет интересно 
dovgolutskyy@inbox.ru
|
|
|
min@y™ (статус: Доктор наук), 31 января 2007, 08:20 [#5]:
Выслал всем. Смотрите камменты в исходнике, там ничё нету сложного.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 31 января 2007, 08:24 [#6]:
Залил файл на сервер. Вот ссылка: (файл удалён)
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
fd_coder (статус: Посетитель), 31 января 2007, 09:05 [#7]:
спасибо 
|
|
|
min@y™ (статус: Доктор наук), 1 февраля 2007, 08:19 [#8]:
Пажалусто!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
