明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 107962|回复: 514

[【不死猫】] (加密代码1.0免费下载!)猫老师首创Lisp源代码加密技术,无法批量还原!加密思路大公开

    [复制链接]
发表于 2013-4-23 17:53:46 | 显示全部楼层 |阅读模式
本帖最后由 不死猫 于 2014-9-23 00:15 编辑

为了方便大家学习研究,提供当时第一版加密工具的完整源码!
有兴趣的朋友可以不断改进这段代码.

单一函数加密正式版看这里
http://bbs.mjtd.com/thread-111133-1-1.html


在线演示加密非正式版点我进入
http://nonsmall.mjtd.com/myweb/default.aspx



下面是代码混淆器的1.0版完整源码!!!!
这个版本功能比较弱,不过后面的代码都是根据这个代码改进出来的.



其中部分源码预览:
  1. (while (< i (length newlst))
  2.     (setq item (nth i newlst))
  3.     (cond
  4.       ((= item "setq")
  5.         (setq allstr (strcat allstr "(setq " 前缀 (itoa i) " " "set" " )"))
  6.         (setq nowstr (strcat nowstr " " 前缀 (itoa i)))
  7.         (setq i (+ 1 i))
  8.         (setq item (nth i newlst))
  9.         (cond              
  10.           ((= (type (read item)) 'STR)
  11.             (setq nowstr (strcat nowstr " " item))
  12.           )
  13.           ((setq pos (vl-position item 变量表))
  14.             (setq allstr (strcat allstr "(setq " 前缀 (itoa i) " " item " )"))
  15.             (setq nowstr (strcat nowstr " (read \"" (nth pos 变量混乱表) "\") "))
  16.           )
  17.           (1
  18.             (setq allstr (strcat allstr "(setq " 前缀 (itoa i) " " item " )"))
  19.             (setq nowstr (strcat nowstr " (read \"" 前缀 (itoa i) "\") "))
  20.             (setq 变量表 (append 变量表 (list item)))
  21.             (setq 变量混乱表 (append 变量混乱表 (list (strcat " " 前缀 (itoa i)))))
  22.           )
  23.         )
  24.       )
  25.       ((setq pos (vl-position item 变量表))
  26.         (setq allstr (strcat allstr "(setq " 前缀 (itoa i) " " item " )"))
  27.         (setq nowstr (strcat nowstr (nth pos 变量混乱表)))
  28.       )
  29.       ((vl-string-position (ascii ";") item)
  30.         item
  31.       )
  32.       ((and
  33.           (not (vl-string-position (ascii ":") item))
  34.           (not (vl-string-position (ascii ")") item))
  35.           (not (vl-string-position (ascii "(") item))
  36.           (not (vl-string-position (ascii " ") item))
  37.           (/= "DEFUN" item)
  38.           (/= "WHILE" item)
  39.           (/= "REPEAT" item)
  40.           (/= "PROGN" item)
  41.           (/= "IF" item)
  42.           (/= "COMMAND" item)
  43.           (/= "COND" item)
  44.           (/= "/" item)
  45.           (/= "\t" item)
  46.           (/= "OR" item)
  47.           (/= "nil" item)
  48.         )
  49.         (setq allstr (strcat allstr "(setq " 前缀 (itoa i) " " item " )"))
  50.         (setq nowstr (strcat nowstr " " 前缀 (itoa i)))
  51.       )
  52.       (1
  53.         (setq nowstr (strcat nowstr " " item))
  54.       )
  55.     )
  56.     (setq i (1+ i))
  57.   )


=======================思路的分割线=============================

随着技术的不断增强,vlx fas都已经不够安全,vlx-fas已经不是秘密,fas还原lsp也已经实现.
但其实加密技术也可以不断的创新,代码混淆就是个不错的办法
源码加密方式可以千变万化,完全可以达到几乎"不可逆"的程度,而且不影响正常功能的使用.
先简单加密一个小程序作为加密的范例,有需要的朋友可以按这个思路来写自己的加密工具!
谁偷走了我的源码?

程序源码:
加密后的:

===========版本2分割线==============
第二版:

(defun c:aa ()
(alert "aa")
(setq s (+ 3 4))
)

加密后(加密过程中,使用随机密码表,可以防止批量的可逆操作)

(setq setq6 (eval (read (vl-list->string (mapcar '(lambda (x) (- x 5 0)) '(102 113 106 119 121))))) )(setq setq7 (eval (read (vl-list->string (mapcar '(lambda (x) (- x 5 0)) '(39 102 102 39))))) )(setq setq10 set )(setq setq11 s )(setq setq13 (eval (read (vl-list->string (mapcar '(lambda (x) (- x 5 192)) '(240))))) )(setq setq14 (eval (read (vl-list->string (mapcar '(lambda (x) (- x 5 1)) '(57))))) )(setq setq15 (eval (read (vl-list->string (mapcar '(lambda (x) (- x 5 0)) '(57))))) )
( defun c:aa ( ) ( setq6 setq7 ) ( setq10 (read "setq11")  ( setq13 setq14 setq15 ) ) )

===========版本3分割线==============
第三版:
我们已经知道,对于command setq or cond if while等核心函数无法重定义,那有什么办法进行隐藏呢?
答案是肯定的,因为lisp语言允许字符串和符号互转.
(read (strcat "(command " "\"line\" " "pt1 " "pt2 " "\"\")"))
OK 然后把其中的字符串再用第二版的方法进行替换隐藏:)
这样在主程序中就看不见写了神马.(每个字符串可以拆分单独定义,并且可以打乱定义顺序)
程序加密的基本意义在于程序能用,难读,难改,隐藏核心代码,极大的提高解密难度.
在后续的发展中,如果能巧妙的隐藏用户注册部分的代码,解密需要花费很多工日,相信对代码的保护会有一定的帮助.

===========版本4分割线==============
第四版
在加密字符串的过程中,使用自定义的随机密码表,可以提高批量还原的难度.
这个范例中的原代码是这个帖子的
http://bbs.mjtd.com/thread-101021-1-1.html
初步加密后的样子是这样的,通过不断增加加密的方法,最终还原的难度会大于写一个新的程序.




===========版本5分割线==============
第五版  加入真正的随机变量分布,而且变量长度也是随机的...


===========版本6分割线==============
第六版的加密度达到5级了!(假设10级是不可逆转的)
其中的变量都做了隐藏,想通过简单的替换来处理,比较困难.
手工还原的可能性越来越低了,而且写程序还原的难度也很大(随便改进一下加密方式,解密程序就废了.)
以后如果搞几种加密方式,并且加密方式的选择是系统随机性组合的话:)

原代码121KB  加密后1165KB !!


===========版本7分割线==============
对所有可重新定义的函数做了隐藏
源代码:
  1. (defun tt (a b c)
  2.   (+ a b c)
  3. )
  4. (defun c:tt()
  5.   (print (tt 1 2 3))
  6. )


经过加密后:

===========版本8分割线==============
第八版
加密度上升到6级!(假设10级是不可逆转的),主要是把定义函数放到程序内部,这样就不能简单的替换了。
同时加入随机扰乱代码!!这个步骤很重要,终于实现了无法用反编译程序完全自动还原的目的,因为任何程序都无法判断代码是否有用!
加密前:

加密后:



===========版本9分割线==============
第九版
加密度6.5
在完成上面的加密后,把每行代码重新定义为随机函数,然后把这些行代码函数顺序随机打乱.
  1. (defun c:tt()
  2. a
  3. b
  4. c
  5. )

  1. (defun c:tt()
  2. (defun bb ()
  3.   b
  4. )
  5. (defun cc ()
  6.   c
  7. )
  8. (defun aa ()
  9.   a
  10. )
  11. (aa)
  12. (bb)
  13. (cc)
  14. )


之后将执行函数按正确顺序排列.可正确执行.
再次重新定义执行函数为新的一组函数,把原顺序的执行函数再次打乱.
打乱步骤重复执行多次.
这样所有行代码的文本内顺序均为随机乱序排列了.
  1. (defun c:tt()
  2. (defun bb ()
  3.   b
  4. )
  5. (defun cc ()
  6.   c
  7. )
  8. (defun bbb()
  9.   (bb)
  10. )
  11. (defun aa ()
  12.   a
  13. )
  14. (defun ccc()
  15.   (cc)
  16. )
  17. (defun aaa()
  18.   (aa)
  19. )
  20. (aaa)
  21. (bbb)
  22. (ccc)
  23. )

加密前

加密后

人工还原的可能性降低了很多,因为嵌套的函数定义和乱序可以不断自我加密.


===========版本10分割线==============
在这个版本完成后,密级应该达到了7级以上.
如果想用编程来还原,也将很难实现,原始代码只有5句话,我就不贴源码了,
加密后的中间代码请看:
简单测试

添加点难度

---

===========版本N分割线==============
中间已经不记得改过多少次了,新的加密思路很简单,对于之前所进行加密过的代码,再次进行加密.对vl-list->string 中的数字,用变量替换,并把变量隐藏到其他地方去.
例如:增加扰乱的函数定义,隐藏所有的函数调用,隐藏加密过程数据,替换加密后的代码等等.

经过测试,这样的加密已经无法进行批量替换还原.因为代码执行时正确,执行后变量释放,想批量处理,几乎没可能了.
我已经彻底放弃批量逆向的想法,退路全部堵死.
在国内,能够逆向这套加密算法的程序,相信在未来很多年都不会有人开发出来,包括我自己.只要稍微改进加密手段,破解者之前的工作就白白浪费了.这也是比fas加密最大的优势.想想去破解这样的代码,如果替换出了错误根本找不到哪里出错,这才是最头疼的.
加密前代码:
加密后代码: (本代码无法使用vlide打开调试,也算是一种保护呦)

关于效率部分的说明:对于需要高效率执行的部分,简单加密,对于注册部分,超级加密.不影响执行速度,又保障了注册代码的安全.

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

适合研究LISP的人用,  发表于 2013-5-11 01:22
加密这东西可以不要么。  发表于 2013-4-24 18:57
呵呵 世上没有完全的加密  发表于 2013-4-24 13:58
实没必要隐藏帖子赚眼球!  发表于 2013-4-24 07:39

评分

参与人数 6明经币 +12 金钱 +120 收起 理由
风树 + 1 + 30 i 服了 u
飞诗(fsxm) + 3 + 30 很给力!
gufeng + 1 神马都是浮云
linshiyin2 + 1 很给力!但是真的不愿意把一行代码变成10行代.
【KAIXIN】 + 3 + 30 很给力!
Gu_xl + 3 + 30 赞一个!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

发表于 2018-1-5 22:29:24 | 显示全部楼层
楼主你好,你的《单一函数加密正式版》不能识别变量值为 > 或 <的变量。
如:当某变量名为aa  其值为 >   经《单一函数加密正式版》加工过的变量aa便无法识别了,即便在程序内部
发表于 2020-12-1 11:40:19 | 显示全部楼层
为了方便大家学习研究,提供当时第一版加密工具的完整源码!
有兴趣的朋友可以不断改进这段代码.
发表于 2018-5-28 20:53:13 | 显示全部楼层

看看,希望不是太高深,太高深看不懂
发表于 2013-4-23 17:55:28 | 显示全部楼层
本帖最后由 nonsmall 于 2013-5-14 01:14 编辑

,通过不断增加加密的方法,最终还原的难度会大于写一个新的程序[em01]

点评

线上加密地址 http://nonsmall.mjtd.com/  发表于 2013-9-5 18:49
可以把函数/变量都拆分为单个字符转换格式后加入随机运算,在源码中无法解读到任何内容,就差不多了.  发表于 2013-4-23 18:36
发表于 2013-4-23 17:59:00 | 显示全部楼层
回复可见源码
发表于 2013-4-23 17:59:16 | 显示全部楼层
顶顶小猫猫
发表于 2013-4-23 17:59:20 | 显示全部楼层
参观一下呢.
发表于 2013-4-23 18:00:08 | 显示全部楼层
矛与盾的关系
发表于 2013-4-23 18:00:11 | 显示全部楼层
看看,希望不是太高深,太高深看不懂
发表于 2013-4-23 18:01:37 | 显示全部楼层
学习猫猫大作
发表于 2013-4-23 18:02:19 | 显示全部楼层
老师的贴一定要顶
发表于 2013-4-23 18:02:32 | 显示全部楼层
打酱油的 谢谢老大
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-5 12:20 , Processed in 0.225915 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表