[LISP程序]：超级加密搞笑版

agang198 · 发表于 2003-8-28 12:39:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

忽然联想到冬天针对女性的侵犯比夏天少,于是有以下LISP 加密程序:
(defun c:pre ()
  (setq n (getint "请输入加密层次(建议大于40):"))
  (command "ucs" "w")
  (command "zoom" "e")
  (command "cutclip" "all" "")
  (setq p0 (list 0 0 0))
  (command "pasteclip" p0 "" "" "")
  (command "ucs" "w")
  (command "zoom" "e")
  (repeat n
(command "cutclip" "all" "")
  (command "pasteclip" p0 "" "" "")
)
  (command "ucs" "w")
  (command "zoom" "e")
);end pre
注意:1、加密层次视图形大小和机子计算能力确定，当然是越大越好；
  2、记注：本程序一定要在R14上运行才有效；
3、解密很简单，下次上传；
4、谢谢论坛上诸位对本人的指导。

fwf1166 · 发表于 2003-9-10 09:26:38

怎么弄啊？

djsjcn · 发表于 2003-9-10 11:14:16

弄不懂

zhynt · 发表于 2003-9-17 03:29:35

简直是吓搞，将图原位复制40次以上，认谁都要疯掉的，至于为什么一定要在R14搞，是因为R14粘贴后是块，这样所谓的解密就好处理，如果是R2000以上，嘿嘿，你试试。

HHSoft · 发表于 2003-9-17 09:20:07

最初由 zhynt 发布
[B]简直是吓搞，将图原位复制40次以上，认谁都要疯掉的，至于为什么一定要在R14搞，是因为R14粘贴后是块，这样所谓的解密就好处理，如果是R2000以上，嘿嘿，你试试。 [/B]

要不1楼楼主怎么会提到衣服呢！呵呵！
记得上学时，把捕捉桌面所得到的图片，做为壁纸，来欺骗同学，原理相通吧。

saintdog · 发表于 2003-9-20 16:48:07

我看解密方法一定是输入UNDO，一百多次就够

agang198 · 发表于 2003-11-19 12:41:53

超级加密搞笑版经实际上应用发现它并非仅仅搞笑。
1、改天你收到一DWG文件，连续炸5次还不开时，你还会续继炸它15次吗？
肯定不会，也就解不开了；
2、若在R14里加的密，则在R2000里也解不开，不信你可试试；
3、你知道了加密原理，解密肯定就简单了，若你不知道呢？
4、在这的都会LISP，若你不会时，你愿意对选择后炸开的操作
重复15次以上？
所以，它并非仅仅搞笑而已。

tchthong · 发表于 2006-6-7 18:07:35

听说有更好的LSP加密软件啦

SGP007 · 发表于 2006-6-8 00:09:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有点意思，楼主喜欢思考

wuzz · 发表于 2006-6-12 10:09:10

贵在琢磨

雨箭风刀 · 发表于 2006-6-29 02:28:52

如果只有一个实体
（while （＝ 1 （sslength （setq ss（ssget “x”））））
（command “.explode” ss “”）
）

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

[LISP程序]：超级加密搞笑版

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子