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

Костя039

Дата 5.5.2012, 09:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Люди очень очень нужна помощь!
1.Через 6 дней программа предлагает изменить пароль.
2.Логическая бомба срабатывает, если пароль длиннее 10 символов, и при каждом запуске меняет системную дату на день назад.
кто что может подсказать???

Данкинг

Дата 5.5.2012, 10:08 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Что подсказать-то?

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

There's nothing left but silent epitaphs.

Костя039

Дата 5.5.2012, 10:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Данкинг @ 5.5.2012, 10:08)

Что подсказать-то?

Как сделать, что бы программа требовала через 6 дней изменение пароля? и как создать логическую бомбу?

Данкинг

Дата 5.5.2012, 10:33 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Цитата(Костя039 @ 5.5.2012, 11:18

)

Как сделать, что бы программа требовала через 6 дней изменение пароля?

Запомни в реестре дату, когда был установлен пароль, и при каждом запуске программы проверяй, равна ли разница шести дням.

Цитата(Костя039 @ 5.5.2012, 11:18

)

и как создать логическую бомбу?

Во-первых, не знаю, что это такое, во-вторых, правила форума гласят: "Один топик - один вопрос". smile

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

There's nothing left but silent epitaphs.

Костя039

Дата 5.5.2012, 10:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Данкинг @ 5.5.2012, 10:33)

Как это прописать???

Данкинг

Дата 5.5.2012, 11:03 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Цитата(Костя039 @ 5.5.2012, 11:43

)

Как это прописать???

На форуме "работа с реестром" искал? Есть даже готовая функция:

Код


function RegWriteStr(RootKey: HKEY; Key, Name, Value: string): Boolean;
var
  Handle: HKEY;
  Res: LongInt;
begin
  Result := False;
  Res := RegCreateKeyEx(RootKey, PChar(Key), 0, nil, REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS, nil, Handle, nil);
  if Res <> ERROR_SUCCESS then
    Exit;
  Res := RegSetValueEx(Handle, PChar(Name), 0, REG_SZ, PChar(Value),
    Length(Value) + 1);
  Result := Res = ERROR_SUCCESS;
  RegCloseKey(Handle);
end;

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

There's nothing left but silent epitaphs.

northener

Дата 6.5.2012, 01:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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

Имхо, Голливуд какой-то. smile

6 дней, 10 символов...
Косте ещё учиться и учиться. smile

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

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