[ivspec]

Как можно открыть чертеж через LISP на котором стоит пароль?
Незнаю как это сделать

[Alan]

Сообщение от ivspec ....Незнаю как это сделать

Вначале правильно сформулируйте вопрос.
Пароль стоит на LISP'e или на чертеже?

[ivspec]

Вот есть чертеж... с помощью стандартных возожностей ставлю пароль...(через Автокад)... затем хочу его открыть через LISP
как это можно сделать?
или лучше сказать я его хочу вставить как блок в открытый чертеж с помощью LISP
как сделать? подскажите пожайлуста

[asys]

проще говоря сломать пароль, во завернул

[ivspec]

Сообщение от Asys проще говоря сломать пароль, во завернул

Не для взлома а для защиты своих чертежей
Которые можно открыть тока через мою функцию на лиспе
Они несмогут узнать пароль

[Alan]

Не для взлома а для защиты своих чертежей

ivspec , тема защиты обсуждалась неоднократно.
Посмотрите поиском, проанализируете, сделаете выводы...
PS. Против лома нет приёма.., окромя другого лома.

[Эдуард]

object.Open Name[, ReadOnly][, Password]
Если на файле стоит пароль , то открыть его можно
только с паролем.

[{Smirnoff}]

Запоролить то и открыть можно. Однако надо иметь ввиду что криптует файл стороннее приложение и надо перед его вызовом проверять версию AutoCAD, а также правильно указывать параметры шифрования. Это для 2004-го.

Код:

[Выделить все]

(defun SecureSaveAs(Document FileName FileType Pass)
  (vl-load-com)
  (if
    (and
     (setq secPar
      (vla-GetInterfaceObject
        (vlax-get-acad-object)
        "AutoCAD.SecurityParams.16"))
     Document FileName FileType Pass
     ); end and
    (progn
     (vlax-put-property secPar
       'Action ACADSECURITYPARAMS_ENCRYPT_DATA)
     (vlax-put-property secPar
       'Algorithm ACADSECURITYPARAMS_ALGID_RC4)
     (vlax-put-property secPar
       'KeyLength 40)
     (vlax-put-property secPar
       'Password (strcase Pass))
     (vlax-put-property secPar
       'ProviderName "Microsoft Base Cryptographic Provider v1.0")
     (vlax-put-property secPar
       'ProviderType 1)
     (vla-SaveAs Document FileName FileType secPar)
     (vlax-release-object secPar)
     ); end progn
    ); end if
  ); end of SecureSaveAs


(defun c:SSave(/ actDoc)
  (vl-load-com)
  (setq actDoc
   (vla-get-ActiveDocument
     (vlax-get-acad-object)))
  (SecureSaveAs
    actDoc
    "C:/Secure_Drawing.dwg"
    ac2004_dwg
    "123456"
    ); end of SecureSaveAs
  (princ)
  ); end of c:SecureTest


 (defun c:SOpen(/ Doc)
   (vl-load-com)
   (setq Doc
   (vla-Open
     (vla-get-Documents
       (vlax-get-acad-object))
     "C:/Secure_Drawing.dwg"
     :vlax-false
     "123456")); end setq
   (vla-Activate Doc)
   ); end of c:SOpen

При проверке кода имейте ввиду что файл один раз открытый с набором пароля, в течении текущей сессии AutoCAD открывается уже без пароля.

Вообще криптование файлов штука опасная