求教lisp程序加密程序的写法

模具狂

这样的LISP程序谁会写
，设置一个口令，如果验证，错误　则运行　10次后，就不能再运行了
正确则没有次数限制

myloveflyer

具体怎么去用呢?怎么在里面加入你要编辑的的程序呢?

模具狂

难到就没有一个会写这种程序的高手了吗？

detflapw

:kiss: :kiss:

hxb7609

(DEFUN C:JM (/ cc1 ccI cnn cm)
  (SETVAR "CMDECHO" 0)
  (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Network\\Recent")
  (SETQ cc1 (VL-REGISTRY-READ "HKEY_CURRENT_USER\\Network\\Recent"))
  (IF
    (EQUAL cc1 "HUANGXIONGBIN");引号里为授权码
     (pbb);运行要加密的程序
     (PROGN
       (SETQ ccI (STRCAT (CHR 77)(CHR 65)(CHR 83)(CHR 84)(CHR 69)(CHR 82)(CHR 67)(CHR 65)(CHR 77)));将授权码译成代码
       (SETQ cnn 3)
       (WHILE (> cnn 0)
         (SETQ cm (GETSTRING T "请输入您的授权码:"))
         (IF
           (EQUAL ccI cm)
            (PROGN (VL-REGISTRY-WRITE
                     "HKEY_CURRENT_USER\\Network\\Recent"
                     ""
                     "HUANGXIONGBIN";写入注册表的授权码
                   )
                   (SETQ cnn 0)
                   (pbb)
            )
            (SETQ cnn (1- cnn))
         )
         (IF (NOT (EQUAL cm ccI))
           (PRINC "SORRY, 请尊重他人劳动成果！")
           (PRINC "谢谢购买！")
         )
       )
     )
  )
  (SETVAR "CMDECHO" 1)
)

whqiang

有没必要这样子做，如果简单点，就限制用户名或时间过期，或限制硬　盘号

罗浩哲

支持老狼

dwg9702

支持啊@顶顶啊@加油啊@

NBMD

好東西,看一下好東西,看一下好東西,看一下

hjg831218

是什么宝贝呀
下来看看

majinguang

顶起来，急需类似的程序！！！！