希望哪位高手提供最间单的加密程序

zfsaaa

我想学lsp程序加密，希望哪位高手提供最间单的程序加密指导。这里有个网上下的LSP源码

(defun c:zx()
    (prompt "欢迎您用此程序")
    (setvar "cmdecho" 0)
 

;创建新层
 
    (setq oldvar (getvar "OSMODE"))
    (setvar "OSMODE" 512)
    (command "pline")
    (while (= 1 1)
 
       (setq p1 (getpoint "\n请选择第一个点："))
       
        (setq firstX (car p1))
        (setq firstY (cadr p1))
        (setq p2 (getpoint "\n请选择第二个点："))
        (if p2
   (progn
           (setq secondX (car p2))
            (setq secondY (cadr p2))
            (setq mX (/ (+ firstX secondX) 2))
            (setq mY (/ (+ firstY secondY) 2))
            (setq mX (rtos mX))
            (setq mY (rtos mY))
            (command (strcat mX "," mY))
    )
   (progn
    (command "") 
   )

        )
 
    )
    (setvar "OSMODE" oldvar)
    (princ)
 
)

我想把程序分成两半，一半是命令文件，另一半是隐藏文件如何做到（就是光有命令文件也加载运行不了，光有隐藏文件也运行不了），如何做到，请给出方法最好是如何编码给个示范，谢谢！

mccad

搜索论坛，取计算机名，或用户名，或硬盘号等等，讨论得太多了。

mccad

分成两个文件，命令文件定义用(defun c:xxx())，这样就是命令了，而且加入(load"XXX")加载隐藏文件。

另一个文件用(defun yyy())，这样定义的是函数，用于被命令调用的函数。

zfsaaa

mccad发表于2009-6-30 6:25:00分成两个文件，命令文件定义用(defun c:xxx())，这样就是命令了，而且加入(load\"XXX\")加载隐藏文件。另一个文件用(defun yyy())，这样定义的是函数，用于被命令调用的函数。

谢谢楼上答复。(已解决）
 ，谢谢！