[Konrad]

Сообщение от 6666

а есть какие нибудь предложения?

Я незнаю что именно ты думаешь так защищать.
Какие возможности нападающего. и т.д.
В каких реальных условиях будут использовать твою прогу.

Но вобщем случае систему лучше сделать:

На входе пасс пользователя.
Далее берем от него хеш, записываем хеш+соль в файл.
Паралельно с помощью паса шфруем некоторые важные данные, без которых прога просто не будет работать.
Ну и + какая-то привязка к железу.
И все это в таком виде записываем в некий файл.


Опять же, если у нападающего будет доступ к памяти запущенной проги - мало что поможет.

Опять же, если прога чисто для тебя и пары доверенных тебе друзей: используй тот же дисккриптор,трукрипт,дарккрипт и т.п. и не парь мозг

Если тебе нужна система распределения ролей типа юзер/админ, тогда система вида клиент/сервер.
Где атакующий с кувалдой не имеет физического доступа к серверу.

[6666]

защищать буду просто кнопки. они заблокированы а при вводе пароля они открываются. а про предложения я имел ввиду чем можно защитить пароль и полегче способ

[Pilot_Red]

enumchildwindow+enableWindow и твои конпочки будут активированы

а вот и лекарство против твоей защиты

[Konrad]

Сообщение от 6666

защитить пароль и полегче способ

Полегче было взломать?)))

Та никак полегче не защитишь.
Все способы "полегче" защищают от блондинок, но не от продвинутого юзера.


Та вобщем, можешь использовать предложенный тобой способ.
Если взломают прогу: напишешь тут на форуме - посоветуем более изощренные способы.
А так, пока что не стоит парить себе мозги.
Было бы там что защищать

[6666]

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

[Konrad]

Сообщение от 6666

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

Ну тогда вопрос решен.

[6666]

а как реализовать шифрования/дешифрования файла с паролем методом xor. вот есть функция а как ее привязать к edit для ввода пароля или для кнопки принять пароль незнаю

Код:

function proc_encr(s_source, s_gamma: String): string;
Var
  i, j: Integer;
  s_rez: string;
begin
  s_rez := '';
  i := 1;
  While i <= Length(s_source) do
  begin
    For j := 1 to Length(s_gamma) do
      s_rez := s_rez + chr(ord(s_source[i + j - 1]) xor ord(s_gamma[j]));
    i := i + Length(s_gamma);
  end;
  Result := s_rez;
end;