Кто сломает мою "защиту"

[spamer]

Ммм...а какой все же пароль хоть был?

[Marsel737]

Вот такой пароль: 18fnth

А теперь вримание, выкладываю исходник, сильно не издеваться Лучше скажите как переделать, не так просто было взломать

function TfrmMain.abcd(abs: string): boolean;
begin
  strPasswordPart1 := Ord(abs[1]);
  strPasswordPart2 := Ord(abs[2]);
  strPasswordPart3 := Ord(abs[3]);
  strPasswordPart4 := Ord(abs[4]);
  strPasswordPart5 := Ord(abs[5]);
  strPasswordPart6 := Ord(abs[6]);
  dcba;
  if cd = 0 then
    Result := false
  else
    Result := true;
end;

procedure TfrmMain.btnOkClick(Sender: TObject);
label
  A;
begin
  if (lbledtPassword.Text = '') or (Length(lbledtPassword.Text) > 6) then
    Close;
  if not abcd(lbledtPassword.Text) then
    goto A;
  Close;
  A:
end;

procedure TfrmMain.dcba;
begin
  if strPasswordPart1 +
    strPasswordPart2 +
    strPasswordPart3 +
    strPasswordPart4 +
    strPasswordPart5 +
    strPasswordPart6 = frmMain.Width + 2 * frmMain.Height then
    cd := 0
  else
    cd := 1;
end;

[Levsha100]

Названия переменных и функций- ужасные, сопровождал бы Ваш код, убил бы

strPasswordPart6 = frmMain.Width + 2 * frmMain.Height

Ууу, батенька, да Вы маньяк 0_0)

Самых надежный вариант- делать проверку в каждой функции, вообще во всех, причем разными способами.

Результаты сравнения должны выполнять функцию констант, и влиять на вычисления.

[Marsel737]

Levsha100, зачем мне названия переименовывать, я специально их так назвал, думал что если будут названия вроде

procedure CheckingPassword;

их легко будет обойти. Остальное учту

[Levsha100]

их легко будет обойти.

Я явно что-то пропустил...

[Arigato]

frmMain.Width + 2 * frmMain.Height

То-то у меня и верный пароль не подходит. Вы уверены, что на всех компах и версия ОС Windows Ваше выражение будет возвращать одно и тоже значение?

[MalCer]

Верный серийник тоже не подходит у меня. Автор как видно из кода- четкого ответа на этот крякми нет! Универсален только патч, так что крякми взломан по полной

[Marsel737]

Arigato, раньще был уверен, теперь начинаю сомневаться

[spamer]

Дык правильный пароль и у меня не подходит.

Ууу, батенька, да Вы маньяк 0_0)

+1 )))

[Arigato]

А что, попробуйте сломать защиту паролем, где ни один пароль не подходит и правильного нет вообще - слабо?