Моя программа и пароль

[B_N]

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

Чтобы вытащить Ring0Sn из-под стола напишу:..........

Stilet, боюсь, что Ring0Sn так под столом и останется. Вряд ли его так поразила сама эта конструкция. Скорее: а) Вход в систему осуществляется вовсе не по факту проверки пароля, а по нажатию на кнопку. Все мы знаем, как "нажать" кнопку, даже если её "нет". б) Пароль хранится в открытом виде. в) валидность пароля можно проверить не входя в систему - это подарок для взломщика. И, скорее всего - и так далее. Вообще, некоторые хорошо известные соображения:

1. Пароль в чистом виде хранится только его если есть возможность обеспечить серьёзное его шифрование И если это действительно необходимо. В подавляющем числе случаев хранятся дайджесты, причём список алгоритмов невелик - даже известный MD5 очень давно для этого не рекомендуется.
2. Никогда, ни в коем случае, нельзя давать возможность понять является ли пароль верным до входа в охраняемую систему. Наоборот:
3. Проверку пароля на валидность надо стараться максимально запутать так, чтобы даже в случае верного пароля программа проходила долгий и нудный путь. Разных протовоотладочных способов много, очень сильно мешает отладке, например, использование диспетчерских механизмов ОС, скажем простой PostMessage случайного, автоматически согласованного, сообщения неопределённому окну, так, чтобы сообщение обрабатывалось не конкретным окном, а неизвестным заранее потоком, может так усложнить трассировку, что ломать программу будет просто невыгодно.

[Dj_smart]

Полностю поддерживаю B_N.
Хочу только добавить, что никаких сообщений выводить не надо, если пароль неверный. Лучше, чтобы при неверном пароле программа просто закрывалась.

[Stilet]

Лучше, чтобы при неверном пароле программа просто закрывалась.

Это тоже легко ломается.

Я когда занимался проблемой аккаунтирования пользователей вместо того чтоб напрягать их принудительно вводить пароль просто брал их аккаунт из сетевого логина. т.е. вошел пользак в винду под своим паролем, я получаю его логин и соответственно организовываю ему личное рабпространство. ТАким образом пользунки не напрягаясь сразу попадали "к себе в кабинет", да и заломать такую штуку уж немного посложнее. Ведь согласитесь, зачем дважды вводить один и тот же аккаунт )

[JTG]

Если кому на досуге нечего делать - вот, набросал простенькое крякми по теме. Задача - снять защиту и заставить запуститься вторую форму, пароль узнать невозможно, т.к. захеширован. ДеДе распаковывает без проблем - лень было динамически всё создавать

GenAcid, да мне не надо супер защиут делать) Ее все равно никто не сможет у нас в селе сломать). Я для программу для школы делаю, а там мозгов ни у кого не хватит сломать защиту.

а вот на это никогда нельзя полагаться )))

_

[Oleg Romanchuk]

В данном случае, могу предложить это, если нужно чтобы прога работала на одном компе)
Создаешь отдельное приложение примерный исходник:

procedure TMainForm.Pass_EditChange(Sender: TObject);
begin
  if Pass_Edit.Text='1988' then
    begin
      StatusBar1.Panels[1].Text:='пароль верный';
      Crack_BitBtn.Enabled:=true;
      Crack_BitBtn.SetFocus;
    end
    else
    StatusBar1.Panels[1].Text:='пароль верный';
   // Crack_BitBtn.Enabled:=false;
    //Pass_Edit.SetFocus;
end;

procedure TMainForm.Crack_BitBtnClick(Sender: TObject);
var
  Reg:TRegIniFile;
begin
  Reg:=TRegIniFile.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;

  try

    if Reg.OpenKey('SOFTWARE\MICROSOFT\DiskBasa\Option',false) = true then
      begin
        MessageBox(Handle, 'Внимание прога уже активирована!', 'Сообщение', MB_Ok+MB_Iconinformation);
        Application.Terminate;
        exit;
      end
      else
         Reg.OpenKey('SOFTWARE\MICROSOFT\DiskBasa\Option', true);
         MessageBox(Handle, 'Поздравляем, вы успешно активировали свою прогу', 'Внимание!', MB_Ok+MB_IconInformation);
         Application.Terminate;

  except
      Reg.CloseKey;
      Reg.Free;
  end;

  end;

В самой проге на событие OnShow пишешь примерно следующее:

procedure TMain_Form.LoadProgParm;
var
  Reg:TRegIniFile;
begin
  
  Application.OnHint:=ShowHintSB;
    if Table1.Active=false then
      MessageBox(Handle, 'Не могу найти базу данных', 'Ошибка', MB_OK+MB_ICONINFORMATION);
  Reg:=TRegIniFile.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
    try
  if Reg.OpenKey('SOFTWARE\MICROSOFT\DiskBasa\Option', false) = false  then
    begin
    MessageBox(Handle, 'Программа не активирована, следует выполнить активаци... ', 'Ошибка', mb_Ok+MB_ICONERROR);
    MainMenuPanel.Enabled:=false;
    DBGrid1.Visible:=false;
    InformationAdrPanel1.Visible:=true;
    Editing_Menu.Enabled:=false;
    Main_Form.Caption:='Моя прога - The program is not registered is a demo the version';
    Abaut_Form.Ver_Label.Caption:='ver: Not registry';
    Abaut_Form.Ver_Label.Color:=clRed;
    end;
    finally
   end;

end;

Получается что ты создаешь как бы отделную прогу (крэк) к своей программе! Этот крэк добовляет в реестр нужную информацию, а сама программа проверяет есть ли информация, и если есть она работает

Пример оч. простой, но в полне подайдет против обычных пользователей!

[Ring0Sn]

Stilet, если вам только это

If (Edit1.Text=S) And (Edit2.Text=P) Then
Begin
Button1.Enabled:=True;
End
Else
Begin
Button1.Enabled:=False;
End;

показалось удивительным в коде предложенным выше, то сочувствую...
B_N, +, это точно не защитой наз-ся.

[JTG]

Неужели Индусское Крякми никто не вскрыл ?
Хех.. Надо призовой фонд организовать =)