Lisp加密程序

caiqs · 发表于 2011-9-16 07:34:20

转成ascii，再随便搞几个数计算一下，别人就很难破了

nxchenjk · 发表于 2011-9-16 16:59:27

下了，可不知道怎么用啊？？

chpmould · 发表于 2011-9-16 20:34:33

下载测试了的,请发表一下你们的看法吧! 很想听听大家的心声...你的心声是我的进步...

cabinsummer · 发表于 2011-9-17 08:03:53

我运行test仅跳出一个对话框就结束了，就这个吗？对话框怎么加密？

chpmould · 发表于 2011-9-17 10:18:43

cabinsummer 发表于 2011-9-17 08:03
我运行test仅跳出一个对话框就结束了，就这个吗？对话框怎么加密？

这只是我写的简单测试,没有写输入注册对话框部分,因为只是测试加密的方法,如果程序可以被破解,那就可以无限制的使用,发此此贴的主要是讨论一下这种方法的缺点在那里...

Tlove2012 · 发表于 2012-4-28 12:42:45

这个是不是富士康里的，还是你自己搞的！

pengfei2010 · 发表于 2013-6-21 21:30:27

学习了，感觉比较深奥

ZMB7211 · 发表于 2017-12-29 11:21:18

怎么用啊；；；；；；；；；；；；；；；；

baitang36 · 发表于 2019-4-18 08:43:30

(defun PASSTEST(/ DIST OBJ )
(setq DIST  (GETDIST  (STRCAT "
请输入单边偏移距离<"  (RTOS  (GETVAR "OFFSETDIST" )  )  ">" )  ) )

(if  (NULL DIST )
(progn (setq DIST  (GETVAR "offsetdist" ) )
INT
)(progn  (SETVAR "offsetdist" DIST )

(if  (SSGET '(0 "Arc,Circle,Ellipse,*Line" ) )
(progn (while (setq OBJ  (collect-next nil))
nil
(vla-Offset OBJ DIST )
)
(collect-release  (vla-Offset OBJ  (* DIST 255 )  ) )
OBJ
)(progn  (vlax-release-object OBJ )
)
(collect-init  (vla-get-ActiveSelectionSet  (vla-get-ActiveDocument  (vlax-get-acad-object) )  ) )

paulpipi · 发表于 2019-8-17 11:26:15

账号		自动登录	找回密码
密码			注册

Lisp加密程序

点评