СРОЧНО! Защита от ВОРА?

antoxa

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

Может быть, как-то наложить на отчет пароль, но чтобы в моей программе он подставлялся автоматически?

gpi

В дизайнере меню Отчёт-Настройки Пароль
У объекта отчёт в самой программе выставить frxReport.ReportOptions.Password

antoxa

IF OpF.Execute then frxReport1.LoadFromFile(OpF.FileName);
frxReport1.ReportOptions.Password:='123456';
frxReport1.DesignReport;

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

gpi

Да, действительно, так не получается
Дело в том, что информация о пароле удаляется при загрузке отчёта, да и хранится она в frxReport1.ReportOptions.PrevPassword
Пришлось закомментировать одну строку в frxClass.pas

procedure TfrxReportOptions.Clear;
begin
  if not FInfo then
  begin
    FAuthor := '';
    FCompressed := False;
    FCreateDate := Now;
    FDescription.Clear;
    FLastChange := Now;
    FPicture.Assign(nil);
    FVersionBuild := '';
    FVersionMajor := '';
    FVersionMinor := '';
    FVersionRelease := '';
  end;
  FConnectionName := '';
  FInitString := '';
  FName := '';
  FPassword := '';
 { FPrevPassword := ''; }
end;

Тогда такой код работает
frxReport1.ReportOptions.PrevPassword:='123456';
IF OpF.Execute then frxReport1.LoadFromFile(OpF.FileName)
Правда, криптостойкость пароля оставляет желать лучшего

Kilya

gpi написал: »

Да, действительно, так не получается
Дело в том, что информация о пароле удаляется при загрузке отчёта, да и хранится она в frxReport1.ReportOptions.PrevPassword
Пришлось закомментировать одну строку в frxClass.pas

procedure TfrxReportOptions.Clear;
begin
  if not FInfo then
  begin
    FAuthor := '';
    FCompressed := False;
    FCreateDate := Now;
    FDescription.Clear;
    FLastChange := Now;
    FPicture.Assign(nil);
    FVersionBuild := '';
    FVersionMajor := '';
    FVersionMinor := '';
    FVersionRelease := '';
  end;
  FConnectionName := '';
  FInitString := '';
  FName := '';
  FPassword := '';
 { FPrevPassword := ''; }
end;

Тогда такой код работает
frxReport1.ReportOptions.PrevPassword:='123456';
IF OpF.Execute then frxReport1.LoadFromFile(OpF.FileName)
Правда, криптостойкость пароля оставляет желать лучшего

Не работает!!!!
У кого есть еще советы...
Тема актуальна - отзовитесь!!!!

LOGic_BBS

Файлы отчеты запихнуть в ресурсы т.е. в ехе

gpi

написал:

Не работает!!!!
У кого есть еще советы...
Тема актуальна - отзовитесь!!!!

Не работает в FR3 или в FR4? В тройке данный способ работал, а вот в четвёрке в frxCrypt.pas внесите изменения

function TfrxCrypt.AskKey(const Key: String): String;
begin
  Result := Key;
  if Result = '' then
  Result:='1234'; // set your password
   { with TfrxPasswordForm.Create(Application) do
    begin
      if ShowModal = mrOk then
        Result := PasswordE.Text;
      Free;
    end;}
end;

LOGic_BBS

http://fast-report.com/ru/forum/index.php?showtopic=5324

Kilya

gpi написал: »

Не работает в FR3 или в FR4? В тройке данный способ работал, а вот в четвёрке в frxCrypt.pas внесите изменения

function TfrxCrypt.AskKey(const Key: String): String;
begin
  Result := Key;
  if Result = '' then
  Result:='1234'; // set your password
   { with TfrxPasswordForm.Create(Application) do
    begin
      if ShowModal = mrOk then
        Result := PasswordE.Text;
      Free;
    end;}
end;

Работает!!! но не так как хотелось бы...
А нельзя ли чтоб вот так было:
в программе указал пароль - открыл отчет с этим паролем, если не указал то вылезла форма для ввода пароля.????
Это былоб идеально!

gpi

написал:

А нельзя ли чтоб вот так было:
в программе указал пароль - открыл отчет с этим паролем, если не указал то вылезла форма для ввода пароля.???

Создайте тикет и напишите об этом в техподдержку