[讨论]：是怎么让lsp程序只能在特定的电脑上的？

formoon

我同学他们公司在推广一套内部使用的lsp程序，但好像只能在他们公司内部的电脑上运行，他们内部使用连密码都不需要的，但把这些东西拷到别的地方就不能运行，不知道是怎么加密的。

gysjy

有可能这些程序都要调用acad.lsp里的一个子程序。

TLHMQH

简单方式：注册

zml84

顾名思义，问题关键是如何特定？
主板、硬盘序列号、网卡编号等均可以作为识别对象。
还有一个比较简单、方便的方法就是：在运行时检查在系统特定位置是否存在特定文件。
但这种方法有可能被跟踪发现。

懒虫

"他们内部使用连密码都不需要的"，也是是
1.内部有服务器
2.或根据IP做了现在

adisonmaster

有可能是内部服务器上装有软件狗。软件是服务器版的！

zhangyaoqiu

你是MAUNSELL的吧，交个朋友交流交流

你从他们公司COPY的程序应该是.VLX或者.FAS的文件吧

你所COPY文件中的命令都要加载存在他们公司网络中另一个LISP文件‘A’。
‘A ’文件中设置了一变量‘B’的值，

当你在别的地方运行命令，就不能加载文件‘A’，即变量‘B’为NIL
命令将检测‘B’的值   (IF (= B NIL) (EXIT) (PRINC))

; error: quit / exit abort

cqxt00

可以通过读取硬盘的物理号,
(defun c:vr        (/ ret serx lccon item lox objw)
  (vl-load-com)
  (setq serx '())
  (if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
    (progn
      (SETQ lccon (VLAX-INVOKE
                    OBJW       'ConnectServer             "."
                    "\\root\\cimv2"          ""             ""
                    ""               ""          128             nil
                   )
      )
      (setq lox        (vlax-invoke
                  lccon
                  'ExecQuery
                  "Select SerialNumber,Tag from Win32_PhysicalMedia"
                )
      )
      (vlax-for        item lox
        (setq serx (cons (list (vlax-get item 'Tag)
                               (vlax-get item 'SerialNumber)
                         )
                         serx
                   )
        )
      )
      (vlax-release-object lox)
      (vlax-release-object lccon)
      (vlax-release-object objW)
    )
  )
  (reverse serx)
)

cqxt00

可以通过读取硬盘的物理号,
(defun c:vr        (/ ret serx lccon item lox objw)
  (vl-load-com)
  (setq serx '())
  (if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
    (progn
      (SETQ lccon (VLAX-INVOKE
                    OBJW       'ConnectServer             "."
                    "\\root\\cimv2"          ""             ""
                    ""               ""          128             nil
                   )
      )
      (setq lox        (vlax-invoke
                  lccon
                  'ExecQuery
                  "Select SerialNumber,Tag from Win32_PhysicalMedia"
                )
      )
      (vlax-for        item lox
        (setq serx (cons (list (vlax-get item 'Tag)
                               (vlax-get item 'SerialNumber)
                         )
                         serx
                   )
        )
      )
      (vlax-release-object lox)
      (vlax-release-object lccon)
      (vlax-release-object objW)
    )
  )
  (reverse serx)
)

zlzlzlzl

楼上的能说一下用法吗？？？？