Тема: Как защитить автокад от несанкционированного доступа.

Может есть у кого лиспик  вызывающий диалог для ввода пароля при открытии Автокада.

Re: Как защитить автокад от несанкционированного доступа.

Может есть у кого лиспик вызывающий диалог для ввода пароля при открытии Автокада.

А это еще зачем?
Есть пароли на включение ПК, загрузку ОС, вход в сеть, на архив, на файл документа Ворда, чертежа Автокада...
Большое количество программ на ограничение запуска тех или иных программ.
Причём практически все они написаны на других языках, это не ЛИСП!

Re: Как защитить автокад от несанкционированного доступа.

shuba пишет:

Может есть у кого лиспик вызывающий диалог для ввода пароля при открытии Автокада.

Чтобы запустить лиспик, надо сначала запустить AutoCAD.

Re: Как защитить автокад от несанкционированного доступа.

> Владимир Громов
Результат должен быть такой:
Запускаем автокад. Автоматически идет загрузка файла LOCK.lsp который вызывает диалоговое окно с запросом пароля. Пока не будет введен пароль диалоговое окно будет блокировать роботу в акаде. Возможно это примитивно но такой вариант меня устроит.

Re: Как защитить автокад от несанкционированного доступа.

> shuba
Запихните куда-нибудь на пути доступа файл acad.lsp с таким кодом:

(setvar "cmdecho" 0)
(vl-cmdf "_QUIT")
(princ)

Когда приспичит вам работать, уберите этот файл с того самого пути.

Re: Как защитить автокад от несанкционированного доступа.

Вот вариант с паролем.
Файл acad.lsp

(setvar "cmdecho" 0)
(load "dostup_acad") ; для lsp
;(load "dostup_acad.fas") ; для fas

Файл dostup_acad.lsp

(defun dostup_acad ( / )
        (setvar "cmdecho" 0)
        (princ "\ Проверка доступа... ")
        (setq dcl_id (load_dialog "dostup"))
        (if (not (new_dialog "dostup" dcl_id)) (exit))
        (action_tile "pwd" "(setq pass $value)")
        (action_tile "accept" "(setq done 1)(done_dialog)")
        (start_dialog)
        (unload_dialog dcl_id)
(if (or (= pass "загружай") (= pass "pfuhe;fq"))
        (alert "   Доступ разрешен!")
        (progn
        (alert "   Доступ запрещен!")
        (vl-cmdf "_QUIT")
        )
)
(princ)
)
(dostup_acad)

Файл dostup.dcl

dostup:dialog {
            fixed_width = true;
            label = "Проверка доступа";
            :edit_box {
            label = "Введите пароль";
            width = 12;
            key=pwd;
            password_char="?";
            }
ok_only;
}

Re: Как защитить автокад от несанкционированного доступа.

> Владимир Громов
Спасибо Владимир. Результат меня устраивает.

Re: Как защитить автокад от несанкционированного доступа.

Пожалуйста объясните поподробнее куда вставить эти коды?

Re: Как защитить автокад от несанкционированного доступа.

Можно сделать так:
Создать папку в месте, не имеющем отношения к AutoCAD'у (запрятать ее от глаз подальше). Прописать ее в настройках на пути доступа AutoCAD к файлам поддержки. Скопировать выше упомянутые 3 файла в эту папку. Файл dostup_acad.lsp желательно скомпилировать в FAS. Необходимо убедиться, что на пути доступа не находится еще какой-нибудь файл acad.lsp. Теперь что получается. После загрузки AutoCAD и чертежа на экран выводится окошко с запросом пароля. Если пароль введен неправильно, то AutoCAD выгружается. Esc и Alt+F4 не помогут. Сообщений о загрузке файла acad.lsp не будет. Поскольку войти в настройки AutoCAD нельзя, то нельзя и посмотреть пути доступа. Конечно, можно другими способами найти эти пути, но рядовой пользователь, надеюсь, не сможет это сделать. Если файл acad.lsp будет скомпилирован, то оригинал с кодом надо сохранить в специальном месте на тот случай, если пароль вылетит из головы. Естественно, сам пароль можно записать в код любой. У меня он повторен дважды - на русском языке в истинном виде, чтобы запомнить, и на английском в тех символах, которые на английской раскладке соответствуют русским буквам. Таким образом, при вводе пароля можно не заботиться о раскладке, а просто вводить пароль русскими буквами. В окошке же будут отображаться вопросительные знаки.

Re: Как защитить автокад от несанкционированного доступа.

Поправлюсь.

Если файл acad.lsp будет скомпилирован

Не acad.lsp, а dostup_acad.lsp

Re: Как защитить автокад от несанкционированного доступа.

> All&Владимир Громов
Пустое это всё занятие. Писал уже, см. > Alan (2007-11-15 18:50:17)
Посмотрите поиском. Вот например:
http://www.exlade.ru/products/diskpassw … rotection/
http://www.rosinvest.com/news/272685/
Вернемся вначало темы > shuba (2007-11-15 17:33:12)
Гораздо проще защищать Запуск Программы, а не вход в запущенное приложение.
Это более походит на защиту разработанной Вами проги под Автокад, но уж очень по-детски.

Re: Как защитить автокад от несанкционированного доступа.

> Alan
Да я сам считаю это баловством. Так, поупражнялся немного. Но ведь shuba это устраивает? Ну, и лады.

Re: Как защитить автокад от несанкционированного доступа.

Что т вы все в такие дебри полезли!-в настройках автокадовских есть вкладка "открытие и сохранение", там есть кнопка-"безопасность"-там вводите свой пароль.Все больше кроме вас никто чертеж не откроет!!

Re: Как защитить автокад от несанкционированного доступа.

> Таля
Речь здесь идет не об открытии файла чертежа, а о несанкционированном запуске самого AutoCAD'а. Человек не хочет, чтобы на его компьютере кто-то работал в AutoCAD'е.

Re: Как защитить автокад от несанкционированного доступа.

Сноси каждый вечер автокад, утром ставь!

Re: Как защитить автокад от несанкционированного доступа.

Поставь автокад на флешку

Re: Как защитить автокад от несанкционированного доступа.

shuba,
В сейф его прячь. :)