VPF::Можно ли разместить в gdb файле приватную инф-цию

Delphist

Дата 24.10.2007, 09:17 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: нет
Всего: 3

Можно ли в gdb файле разместить информацию, которая была бы не видна стандартными средствами, например, IBExpert'ом. Просто необходимо различать db_demo и db-release, чтобы пользователь немог их подменять. Одна идея есть, но она мне не очень нравится - это через хранимую процедуру откомпилить ее и удалить ее исходник. Может, посоветует что получше. У меня Firebird 2.0

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Deniz

Дата 24.10.2007, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 22
Всего: 44

Delphist, вопрос про метаданные или сами данные?

--------------------

"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)

Delphist

Дата 24.10.2007, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: нет
Всего: 3

Цитата(Deniz @ 24.10.2007, 10:30

)

Delphist, вопрос про метаданные или сами данные?

Неважно что, главное, чтобы была возможность различать db_demo и db-release, чтобы пользователь немог их подменять, т.е. у клиента ест demo-версия программы c db_demo, а он берет и подсовывает db_release, вот и надо как-то невидимо для пользователя идентифицировать БД, т.е. хранить идентификатор БД-Demo и БД-Release.

--------------------

pompei

Дата 24.10.2007, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 7.9.2007

Репутация: нет
Всего: 6

Я сравню метаданные своей демо с чьей-то рилизом, и как раз получу то, что нужно сделать с моей демой, чтобы она стала рилизом.

Поэтому попыткайтесь сменить политику безопасности, например, лицензирование.

Огорчу Вас заранее, если хороший кракер захочет кракнуть, то он кракнет, чего бы Вы не сделали со своей программой. Потому что небыло в истории ещё ни одной десктопной программы, которую бы ещё не кракнули!

--------------------

А всё оказывается гораздо проще: пассивные наноструктуры - активные наноструктуры - системы наносистем - молекулярные наносистемы - сингулярность! По пять лет на каждый этап.

Delphist

Дата 24.10.2007, 10:37 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: нет
Всего: 3

Цитата(pompei @ 24.10.2007, 11:32

)

Я сравню метаданные своей демо с чьей-то рилизом, и как раз получу то, что нужно сделать с моей демой, чтобы она стала рилизом.

Ну моя защита с БД расчитана на лохов, понятно что профи это вопрос не сложный.

--------------------

Deniz

Дата 24.10.2007, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 22
Всего: 44

Delphist, т.е. если я правильно понял, нужно послать какой-то запрос к БД, и определить что это за БД?
В таком случае защиты наверное нет.
Объясни, чем должны отличаться db_demo и db-release, именно по функциям, т.е. какие ограничения или еще чего должны быть в db_demo.

--------------------

"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)

Sansa

Дата 25.10.2007, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 18.10.2006
Где: Королев

Репутация: нет
Всего: 6

Если он не владеет правами sysdba попробуй в разных версиях создать разных пользователей. Изменить он их не сможет, соответственно, выборкой из таблицы users можно будет узнать что за версия

--------------------

- Здравствуйте, я Ваш патологоанатом

Delphist

Дата 25.10.2007, 10:33 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: нет
Всего: 3

Цитата(Sansa @ 25.10.2007, 11:24

)

У меня нет разделение на пользователей, и используется SYSDBA

--------------------

Deniz

Дата 26.10.2007, 05:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 22
Всего: 44

Delphist, таки расскажи подробнее что хочешь получить.
Что-то подсказывает, что нужно еще в клиенте что-то сделать.

--------------------

"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)

Sansa

Дата 26.10.2007, 11:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 18.10.2006
Где: Королев

Репутация: нет
Всего: 6

Delphist, так убери sysdba. Сделай пользователя, который владеет ПОЧТИ всем. И через него работай

--------------------

- Здравствуйте, я Ваш патологоанатом

Akella

Дата 1.11.2007, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 20
Всего: 329

советую такую проверку сделать не в базе а в самой программе, с пом. DEFINE

Delphist

Дата 1.11.2007, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: нет
Всего: 3

Цитата(Akella @ 1.11.2007, 11:20

)

советую такую проверку сделать не в базе а в самой программе, с пом. DEFINE

и каким же образом

--------------------

Sansa

Дата 1.11.2007, 16:34 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 18.10.2006
Где: Королев

Репутация: нет
Всего: 6

Мне это напоминает ситуацию, когда отдаешь пароль для root, а потом пытаешься что то ограничить...

--------------------

- Здравствуйте, я Ваш патологоанатом

Akella

Дата 5.11.2007, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 20
Всего: 329

Цитата(Delphist @ 1.11.2007, 16:13

)

и каким же образом

создаём текстовый файл, например с именем _define.inc
в нём:

Цитата

{$DEFINE local_ver}
{$DEFINE demo}
const firma = '(программа не зарегистрирована)';
const firma_address = '---------------------';

далее в программе

Код


//чистый модуль//
unit uShares;

interface

uses Classes.....
Var
..... переменные модуля

.....
 function  Demo():string;
 function  DemoB():Boolean;
 function  localStr():string;
 function  F_address():string;
 function  F_Name():string;
... другие процедуры


implementation

uses uDM, .....;

{$I _define.inc} //это демоверсия
//{$I _kiev_irina.inc}
//{$I _stolica.inc}
//{$I _npk_moscow.inc}



....
function  Demo():string;
begin
 {$IFDEF demo} result := ' ~ Демонстрационная версия' {$ELSE} result := firma {$ENDIF};
end;

function  DemoB():Boolean;
begin
 {$IFDEF demo} result := True {$ELSE} result := false {$ENDIF};
end;


function  localStr():string;
begin
 {$IFDEF local_ver} result := 'локальная версия' {$ELSE} result := '' {$ENDIF};
end;


function  F_Name():string;
begin
 {$IFDEF demo} result := 'Демоверсия программы' {$ELSE} result := firma {$ENDIF};
end;

function  F_Address():string;
begin
 {$IFDEF demo} result := '--------' {$ELSE} result := firma_address {$ENDIF}
end;

При создании, скажем, главной формы:

Код


procedure TfmMain.FormShow(Sender: TObject);
....
  Caption := Caption + IsDemo();
  StatusBar1.Panels[1].Text := Demo();
ShowMessage('Зарегистрировано на '+F_Name())

вот ещё пример файла описаний:
точка - это типа закомментировано

Цитата

{.$DEFINE local_ver}
{.$DEFINE demo}
const firma = 'Название фирмы';
const firma_address = 'г. Бабруйск, ул.Бабруйска, д.14, оф.2 5эт.';

Добавлено @ 17:10

Если в этом месте меняешь подключаемый файл

implementation
uses uDM, .....;
//{$I _define.inc} //было так
{$I _kiev_irina.inc} //теперь так
//{$I _stolica.inc}
//{$I _npk_moscow.inc}

то обязательно нужно перекомпилировать проект (Build)

Это сообщение отредактировал(а) Akella - 5.11.2007, 17:52

Akella

Дата 5.11.2007, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 20
Всего: 329

теперь в любом модуле, используя функцию function IsDemoBool():Boolean;

можно:

Код


if DemoB then
  aSQL  := 'select first 10 * from table' //в демоверсии выбирае только первые 10 записей, и пофиг, что крякеры ключ нашли к программе  :crazy 
else
  aSQL  := 'select * from table'

Это сообщение отредактировал(а) Akella - 5.11.2007, 17:53

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Firebird, Interbase \| Следующая тема »