Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi] Программа с паролем


Автор: Sphinx-vip 2.3.2005, 13:11
smile
Мне нужно сделать для своей программы так, чтобы ее настройки открывались только после того как введется пароль. Но паролей два. Один - который знаю только я, а другой -который выводится после выполонения определенного условия самой программой, при том пароль по мере запусков программ шифруется по определенному смыслу.
Проблема в том, что шифровать я могу но я не умею делать так чтобы один пароль сохранялся всегда, а другой постоянно менялся столько раз, сколько запускалась программа. Помогите пожалуйста. И если можно приведите пример этого действия.
smile

Автор: Dr.No_xXx 2.3.2005, 13:58
если пороль числовой или текстовый(не смешанный) то создай 1 массив если смешанный то 2 массива или так
Код

var
i:integer;//string как тебе подходит
n:integer;//переменная в которой хранится пароль
begin
randomize;
for i:=1 to 100 do begin
//пароль должен хранится в переменной до определенного времени
//здесь сам обработаешь время,а дальше
n:=random(i);

вроде все smile

Автор: a.S.d 2.3.2005, 14:42
Dr.No_xXx
То, что ты написал равносильно n:=Random(100);
Вот код для генегации пароля из чисел:
Код

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
s:string;
n: array[1..100] of integer;
begin
randomize;
for i:=1 to 8 do begin //8-длина пароля
n[i]:=random(9);
s:=s+inttostr(n[i]);
end;
edit1.text:=s;
end;

Автор: Sphinx-vip 3.3.2005, 11:14
[quote]//здесь сам обработаешь время,а дальше

Вот это то я и не знаю как зделать, я ведь начинающий программист smile

Автор: Тьма 3.3.2005, 17:07
не могу понять зачем тебе это надо

Автор: Alex 3.3.2005, 18:29
Модератор: Название темы должно отражать ее суть!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)