VPF::пароль в программе - Форум программистов

skorpik

Дата 6.11.2008, 00:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 10.1.2008

Репутация: нет
Всего: нет

Хочу сделать досту к одному из пунктов меню в программе по паролю. Можно ли где-нить хранить пароль в программе, но так, чтобы была возможность его менять?
Т.е. где нужно хранить пароль в программе,чтоб его можно было менять, зная старый пароль? А при открытии вновь программы в другой раз этот пароль стал уже новым?

Данкинг

Дата 6.11.2008, 00:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

В реестре храни...

--------------------

There's nothing left but silent epitaphs.

AntonN

Дата 6.11.2008, 01:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18

skorpik, в исполняемом файле хранить данные - плохой способ.
Я бы хранил в зашифрованом файле, хранящемся в CSIDL_APPDATA.

--------------------

Darisvet

Дата 6.11.2008, 01:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.11.2008

Репутация: нет
Всего: нет

Можно шифровать и хранить в реестре.

Код


uses Registry;

var
 rif: TRegIniFile;
 temp : string;
begin
 rif := TRegIniFile.Create();
 rif.RootKey := HKEY_LOCAL_MACHINE;
 rif.OpenKey("Software\............", true);
 rif.WriteString(MyCrypt("PASSWORD"));
end;

кажется что то вроде этого, если память не изменяет...

skorpik

Дата 6.11.2008, 01:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 10.1.2008

Репутация: нет
Всего: нет

Через реестр то я знаю, так и делаю. Только вот вдрух Антивирус какой у кого или еще какой защитник - вот что. Думал, может можно как-то в проге хранить. Спасибо за ответы. Считаю тему закрытой.

А вот AntonN что такое CSIDL_APPDATA не знаю. Может подскажешь?

Poseidon

Дата 6.11.2008, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(skorpik @ 6.11.2008, 01:43

)

Только вот вдрух Антивирус какой у кого или еще какой защитник - вот что

Враздел Software доступ окрыт всегда. Если кто его блокирует, то это уже не корректность той программы. Но хранить пароль в реестре...

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

AntonN

Дата 6.11.2008, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18

skorpik, это константа, хранится в ShlObj smile

с ее помощью можно узнать путь к папке C:\Documents and Settings\юзер\Application Data

Код


uses ShlObj,ActiveX; 

function SpecialDir(Spec:integer):string;
var Allocator: IMalloc;
  SpecialDir: PItemIdList;
  FBuf: array[0..MAX_PATH] of Char;
begin
  if SHGetMalloc(Allocator) = NOERROR then
  begin
    SHGetSpecialFolderLocation(application.Handle,  spec , SpecialDir);
    SHGetPathFromIDList(SpecialDir, @FBuf[0]);
    Allocator.Free(SpecialDir);
    result:=string(FBuf);
  end;
end;

caption:=SpecialDir(CSIDL_APPDATA);

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »