Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Работа с паролем

Автор: Костя039 5.5.2012, 09:18

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

Автор: Данкинг 5.5.2012, 10:08

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

Автор: Костя039 5.5.2012, 10:18

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

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

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

Автор: Данкинг 5.5.2012, 10:33

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

)

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

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

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

)

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

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

Автор: Костя039 5.5.2012, 10:43

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

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

Автор: Данкинг 5.5.2012, 11:03

Цитата(Костя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;

Автор: northener 6.5.2012, 01:29

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

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