网站 › 『UnPackMe◇CrackMe◇KeyGenMe◇ReverseMe』 › 一个AUTOLISP版的cm

dianziguan 发表于 2025-1-7 15:34

一个AUTOLISP版的cm

本帖最后由 dianziguan 于 2025-1-7 15:35 编辑

一个acad下的lisp程序源码，混淆过的。
要求找出正确密码，并还原出源码。

怕怕吓一跳 发表于 2025-1-8 15:20

本帖最后由 怕怕吓一跳 于 2025-1-8 15:23 编辑



密码是32765。代码可能长这样：
(defun c:tt()
(setq iptstr (getstring "\nplease input a string："))
(if (= iptstr "32765")
    (princ "\nok!ok!")
    (exit)
)
(princ)
)

Labra 发表于 2025-1-8 09:28

这个代码还熟悉点，能稍微捡起
打开看了一下，代码没加密，就是格式换了一下，把程序名、变量名换了，算是隐藏功能

第一个函数简单，自动格式后方便看
第二个函数好像太长，用了两个工具自动格式都没成功，估计得手动分解一下了，空了再细看

十点睡先生 发表于 2025-1-8 08:50

收藏了，感谢付出

tianxiangyu 发表于 2025-1-8 10:07

感谢分享

dianziguan 发表于 2025-1-8 16:38

怕怕吓一跳 发表于 2025-1-8 15:20
密码是32765。代码可能长这样：
(defun c:tt()
(setq iptstr (getstring "\nplease input a string ...

厉害！源码是这样的：
(defun c:tt()
(setq ss (getstring "please input a string："))
(if (/= 32765 (read ss)) (exit))
(princ "ok! "))

怕怕吓一跳 发表于 2025-1-8 19:43

dianziguan 发表于 2025-1-8 16:38
厉害！源码是这样的：
(defun c:tt()
(setq ss (getstring "please input a string："))


我只是猜的，还是有些不对

ludaweb 发表于 2025-1-8 20:03

用了猫老师的混淆，源代码就好像一滴水掉进了大海了~~

alphagis 发表于 2025-1-10 08:20

厉害！源码是这样的

mscsky 发表于 2025-1-10 09:53

怕怕吓一跳 发表于 2025-1-8 15:20
密码是32765。代码可能长这样：
(defun c:tt()
(setq iptstr (getstring "\nplease input a string ...

有没有过程？{:1_904:}

查看完整版本: 一个AUTOLISP版的cm