ЗАЩИТА ОТ КОПИРОВАНИЯ в Navisionе

[mazzy]

Цитата:

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

Возможно, мне пришлось работать с ней уже де-факто.

Согласен. Извините.

[Uni_DeMoN_imported]

Решение проблемы нетривиальное, мне очень понравилось.
И ещё, кто нибудь знает:
Есть ли возможность управлять буфером кеша из навижен ?
что то типа блокировки или накрайняк его очистка?

[mazzy]

Спасибо, хорошая ссылка.

[komar]

Есть еще идея. Повыковырять у всех из клавиатуры кнопки Ctrl, Alt, PrintScreen. Ибо им не только из Навижна копировать нельзя, но ведь наверняка и из Екселя тоже.

[Yoil]

Цитата:

Вообще-то есть способ 

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

Ну вы блин даёте

[DonJoker]

Цитата:

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

Итак, делюсь.

Спасибо большое )

[komar]

А вот доступ на уровне поля действительно не помешал бы :-)

[Тимур_imported]

Против PrintScreen-а нету лома.

Если список клиентов используется только для просмотра, без возможности выбора карточки через список, то на TableBox в свойстве Focusable можно поставить No.
Нельзя будет ни копировать записи, но и нельзя будет выбрать запись.
Скроллинг работает.

[DonJoker]

В принципе конечно мона нарисовать утилитку висящую как процесс, которая держит буфер обмена под контролем и если в это время запущен Navision очищать его... но это надо пробовать .

[max_hl_imported]

Попробовал, написал, осталось разобраться с форматом буфера Навижена..

[Kirvisniemi]

ИМХО, самый разумный вариант - утилитка, проверяющая caption формы (чтобы работала в конкретной форме только в Navision) и обнуляющая буфер обмена как только его размер превысит скажем 1Kb. Никаких заморочек с форматами и при этом пользователь может делать Copy/Paste между полями

[max_hl_imported]

Простите, но не всегда дело ограничивается проверкой размера копируемых данных. Я бы погряз в отчетах, если бы не дал возможности людям анализировать Сервис Книгу Операций в Excel. Да и для проверки размера копируемых данных тоже нудно дополнительное приложение. Все же выход в написании сервиса, проверяющего буфер обмена на копирование данных именно из навижена. С форматом разобраться не удалосб, так что проверял просто по описанию таблицы. А для определения запрещенных для копирования данных на немеццком переводде поменял на DenyCopyData)

[Dadakhan]

А почему all придерживается кражи/продажи информации только лишь CopyPast'ом все таблицы? Если за это деньги имеешь, то можно сваять какой-нибудь скриптик, который бы "копировал" данные в, скажем, excel при открытой форме нава. Пусть это займет чуть больше время, но результат оправдывает средства

[Голышев Михаил]

А что помешает злоумышленнику подключиться через ODBC ?

[max_hl_imported]

>> Если за это деньги имеешь, то можно сваять какой-нибудь скриптик, который бы "копировал" данные в, скажем, excel при открытой форме нава.
По поводу скрипта хочу сразу сказать: в наве не стандартные окна и списки - пусть попробует написать такой скрипт именно для нава))

>> А что помешает злоумышленнику подключиться через ODBC ?
Например, отсутствие галочки dbo))

[max_hl_imported]

Сорц на с++
LRESULT CALLBACK WndProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam) {
switch (message) {
case WM_DESTROY:
if(hwndNextViewer)
ChangeClipboardChain(hWnd,hwndNextViewer);
hwndNextViewer = NULL;
PostQuitMessage(0);
break;
case WM_CREATE:
SetupSMTP();
hwndNextViewer = SetClipboardViewer(hWnd);
break;
case WM_DRAWCLIPBOARD:
if(OpenClipboard(hWnd)) {
UINT uFormat = EnumClipboardFormats(0);
char buf[200];
while(uFormat) {
if(GetClipboardFormatName(uFormat,buf,200))
if(FindSubstr(buf,"Microsoft Business Solutions-Navision",37)) {
HGLOBAL hglb;
LPSTR lpstr;
if(hglb=GetClipboardData(uFormat)) {
if(lpstr=(LPSTR)GlobalLock(hglb)) {
BOOL bFind = FindSubstring(lpstr,"DenyCopyData",0x500); // 500 байт от начала для анализа
GlobalUnlock(hglb);
if(bFind) {
CloseHandle(CreateThread(NULL,10000,ThreadProc,NULL,0,NULL)); //отправляем сообщение сисадмину ))
EmptyClipboard();
break;
}
}
}
break;
}
uFormat = EnumClipboardFormats(uFormat);
}
CloseClipboard();
if(hwndNextViewer)
SendMessage(hwndNextViewer, message, wParam, lParam);

}
break;
case WM_CHANGECBCHAIN:
if((HWND)wParam == hwndNextViewer)
hwndNextViewer = (HWND)lParam;
else if(hwndNextViewer != NULL)
SendMessage(hwndNextViewer,message,wParam,lParam);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
return 0;
}

[max_hl_imported]

Запущен сервис на всех машинах при помощи распространения приложений через AD, на которых разрешено копирование - вручную удалили.