Текущий архив: 2003.01.30;
Скачать: CL | DM;

Вниз

Пароль   Найти похожие ветки 

← →
diks ©   (2003-01-20 22:36) [0]

procedure TForm1.PasswordClick(Sender: TObject);
begin
if Edit1.Text = "password" then
Form2.Show
else
ShowMessage("Неправильный пароль!");
end;

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

---

← →
Романов Р.В. ©   (2003-01-20 22:46) [1]

А ты его в файл запиши

---

← →
diks ©   (2003-01-20 23:13) [2]

1 это не удобно
2 шифровать надо
3 так надежнее
4 не знаю как в файл
!и БОЛЬШАЯ подсказать а не давать советы книги читать!

---

← →
Anatoly Podgoretsky ©   (2003-01-20 23:38) [3]

Книги почитай

---

← →
Ich Hasse ©   (2003-01-20 23:46) [4]

1. Почему неудобно?
2. Используй алгоритм хэширования md5
3. Я не думаю, что так надежнее, в нашем (компьютерном) мире все перехватывается.
4. procedure WritePassword(Pass: string[50]);
var F : file string[50];
begin
AssignFile(F,"C:\File.pwd");
Rewrite(F);
try
Write (F, pass);
finally
CloseFile(F);
end;
end;

Function RaedPassword: string[50];
F : file of string[50];
begin
AssignFile(F,"C:\File.pwd");
Reset(F);
try
Read (F, Result);
end;
finally
CloseFile(F);
end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c