| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Пароль [D6, Win95/98]
diks © (2003-01-20 22:36:00)procedure TForm1.PasswordClick(Sender: TObject);
begin
if Edit1.Text = "password" then
Form2.Show
else
ShowMessage("Неправильный пароль!");
end;
Как сделать чтобы этот пароль изменяла другая программа?
Ich Hasse (2003-01-20 23:46:00) [1]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;
Anatoly Podgoretsky (2003-01-20 23:38:00) [2]Книги почитай
diks (2003-01-20 23:13:00) [3]1 это не удобно
2 шифровать надо
3 так надежнее
4 не знаю как в файл
!и БОЛЬШАЯ подсказать а не давать советы книги читать!
Романов Р.В. (2003-01-20 22:46:00) [4]А ты его в файл запиши
| |
