Auto Lisp字符串自动加密器 ver 1.12 免费版
本帖最后由 baitang36 于 2019-6-26 17:02 编辑自动加密lsp程序中的字符串,保护程序中的提示信息!
例如(princ "注册成功")
加密后变成
(princ (vl-list->string(mapcar '(lambda (x)(boole 6 x 6))(list 209 164 180 231 181 207 191 160 ))))
程序使用方法非常简单,双击pstr.exe,选择要加密的lsp文件,点打开按钮,文件就加密成功了.
如果继续加密下一个文件,点是,不想再继续就点否.
加密后的文件名是在原文件名后添加_str
本程序用汇编语言编制,速度非常快,几乎感觉不到它需要运行时间,点击后瞬间完成加密
本程序的收费版可以定制加密算法,如有需要可联系qq5520971
baitang36 发表于 2019-8-14 11:03
你的字符串有多长?
原因找到了,是晓东的一个函数在里面起的怪:
(setq XD-ODCL-DATA-PURGEALL '
("YWt6A4JyAADSMNCXBuKTIxcSIilrQO26iDVEDyjJ8C2st5BI56qFPHUUkqY3ZBGP5NYrk1LtZhy5" "KGi5xtT17lTZxus+fPrewf9hPiX3/P5hP2rbG9eWcSqP/WE+fztUV3uvSiMORpmyppGjjSCQA22x"
"BuBLna/CB6GimcmiheOR4AWQTNURs6K0Ufl01vpU1vhkPjKRizkeYQo9fYo9aYo+eUo/WZBJviCC" "yGEPcZyDhhN2fqBSfib/4YrxpRSPSqsC1HRGe7le9NlQ/WaRK7931jti+wSiRfuFL0LQaLSHnE+C"
"ULilZDKdZcc7GdK4gVP5REbwoaidRfQFuY/BMIxnl41aASn50WaQq5yPCwZrxGgj6ZDaaK8wdq2j" "oDsJdLse+x53WoCOTHuxQoGjN4XH0oE/AFxPOskcw16O5r7B+sInMmWVMVyD7PyRRX/heLSdVsqd"
"yG8kDrHAhCC6U85rrbC8PwIBcFCehWZynwh8YbS0cdcZgSYiEyIeNWKBRNLjA4g6WCbjznJiAait" "j3nfwRUmbqgkZQFvidLhpubxATueYXWCXf9Bz9E5d6hqarKcJQrD06Sch8vsxKTq6yjXA4s5DlHC"
"ewlUZhDuMiage93irWmOa/0NNkBVElaTF++AIU6YiWzOmIzco8DFo/qBE50z+oFdjgUN6ZmtJ1U6" "p0e09GzSXGWxLqAIpsb/tIzO80HfipNIkN6KSGXpr4dw98wSb8Yrnjl7iFJDxbLcVkRjJhR5LxI2"
"BtLjnIdi26cy2zfHL7AO3VKzghhSvx1O8lsnm1DJ38dtuY9n//mZUGrEP2dNXKxBUc6BDJBY4tGi" "FCB6AGQlq2H/9izcEmMZ61290+Y9bwJxnB1zn1X8R0Z62evsmVVGNIDx+mNbQXYUt9FYwiNikVaH"
"kT90NGA8lA3XMi405K1jWwN6oZ8FXzA//iwnrAnL3aPsMPDeHMiemQc6m7hM70TJsshTMBEpkb4U" "MKpehslKAJ9bkfCLiq2ZKpI4ZQBQk5QRk+KXy3CmOYznIG0HD9kbgk2FQqn7TAH4sI1zDyB5eYB0"
"VHngfut9u/rRpObrBjjisb/vCT6btqlfe2LXeWM5KMSr3OvrwTe14Bi8VXNM4BRHlm2p7au6FP9h" "KQ/m4IU/uAUixKj81Aji1y/vNPARfulQ/4vsrqHpO0DZ/7eKQqhQD+E7/FdwWEFclM8RLIRFnEdi"
"spNvi6RQNgfDKJYYlD8WPVjI7VIXxrQ0VSPwQp+8w1asAV6OcXuAgHwNIQyDhCKgus/TVF8AgAm7" "gYENsGHynROcgYEboXETpiiITqin9PlR6bUmE7gY/8jOcZOu6Ik+q+hwLsv7YEDGpCzfq+h9hnDR"
"M6JqHt0mpjTGfYObb7K+DebfmY+r/si9E163lXKNML3N8dfCQW6bDS2eLja7kfWKZXw1YESGKnxA" "pCY1PFShkM+tMWxQyE/hwTpC4RLdQ1qQOb25TfzxO+54MQD56NEVw6QGo2IwlL9DdFILlINJonVt"
"/5AZBsGak/Q46P5tDngxSHydFngrENMhFnlOniSTzuf5vtuzhyO5OcWATwMLjFGTXX2Xrh8QDxQk" "VeKQzt1Mn53DdwSgKXWgYfzKjkAxvzigCZ5gFwuJ4hyVBkH+kU5LSjVnkAjLBMVPvbnP26V+aUcc"
"O9MhDfW+L4xLnlCHduihJSPp+ZctKT1NMD/S/KXjZFjCcVRtxlpjMiZ7BFgqdljKP2Tm3uiCo5Ds" "ETrrFb0TbblWZU7bZSGThuPwf3H91UvOu3BhhUUBQuqith8z7LZmqEdHuamu3F7Vpbem4avHpGjl"
"wvXXY5flVeAKqQtAanCEAQVKVnSJdNZ0SXPUvMs9nmqw3RANLaXaEmLFobIuacXRcgaS4IdKCIbT" "SJgtZNyJWCEW6qx9YsOBe8C9Wm5FZgAo6MsbVRSiBQmX4TeRdGkmkfD1lSNoJngBHfgejsmLv57K"
"lZfXmoRSYWobI1jO3dOP7/Z1D8S94Hh2WWV5JF2kuQmkYNfFA6FXuQfaGBUcrBIdcGWbZooQHz0v" "/2FuqQErHvnzAfuOGP2nks/xwYfKwLBWaAt4iXbYzon4D2xkP4ezZM/j3zddtA1k7612m4ZyFrpE"
"NjBduD+r9qlfk2TPynKI7s9a33JV+0zi+cpVvQTRdp9eZIRHSgaUsEG13cUEy3QsefdWn0j4ANz6" "68dWX4bwbHD+tY0jMGCRTbGtiIRbpCDnMjnSDkOWpTEqG0aTFN2O8QF9BLj5e51RPmSCGwPSzrq1"
"fHAeVdRtJX1TYlMSnE/xmy7xJWQpJ9vL+L3uzvjTcoMmPTuwZIIlvWbG0v+l/21tMfMzuwjhsPpj" "BqhRcEXGegRFxn/UYwJn/B55M670xmXwjPa+XcbzXCu1rnAWig7L37Htk15R7weERj077pxyUf/1"
"IWiPlfMXpPBh2BNUHHNiRTZcqF45dHD+tOc2VnPiN9xjP6kZo6W8rvGQB/J1t5egksCqw8H99el7" "urvs3SlYFXkXehVuQ/6h/SCH2D4bj/nOnrTJsBUS3SONKQ7zIdmbAHVaxmEflvmFG42fvLG/u/tC"
"nDx5QDcNOAaOey4HjmTWQgZsikIGZypgThFMsP0GAGx5FCbQ1HLAYY9epVrzBwFhHU2Rt/ewyHI0" "0+NRXRWjMQNCZ86MST7LDPAuRtLinUz1sLSdh2cb8ch0oQt4y2H+epVJT4q9hMQK1oNAlrXupOUU"
"A61m396M3vGrwGIlh5smP6lkJEZCYFi1uvIHgVe4AAYh5QtnSnFFGdWPFgcIH+isSipkZMJmA8Vp" "PsuIwb/8JcUZ4sXvmddIjxIX5NMinam1wenfYYCp2uZx+2/CgR1Ct/BYtzjO60zyhgq4xk8h8V5+"
"olYMDd1pjevYnpGbTwNLQsnA7HStnmsa5abPSxIakrlk1M1Q/SwVg2KR5+bek9FYXfWsjXX+wwWq" "e7AGcfcIW6h6hOhAhwCygGz4AKbh5Wd/gKeBbwbN4Rg5GlCkRyExlmLWklFyU0aFqQY7xyTe4wUJ"
"1N+irpjnjf9IToq9hbQKjh6OjL39553/t5Xff5J/mf85hekY+EtaQhwUgSia3OOgYDFPHUGisYuS" "vYITw9YBT4kOe76oEZ2PrkQjWcdjN0Niq/iIs+KMob2ucYXtIXk4oaFnWEjKnCO5JcGPu8ewvZyK"
"e3yujZefdcqMkh5kkTqdQrLytkgHnW9T+/ILXSRCGJAZEDo1F7YlKQlChz+pnpu2ApK5H1HKuL8C" "uM1OCKa9FkQKjDC4zaKzrvGg6xvjR9oooXVdrrU19iMaG1m4Iz7jsyKapZqZLZZVnmSRL4nVr7NE"
"kOqpyYQGa0ZcOG896VNS6cjulZt5gegul6gZYK8kTgYT9oKgXgTD2EYhQ9ayoeFwSzHkh4UuI/hj" "1GzxiIf0jdMdFhiAwgSEQ+a+Q4NDrvYJ43dgonrreSK1RQa+1aR65XlgVeO4jU20cwoD4SFbGt/x"
"NTm5VxKYBRNE6pGkrg35wYg6l7syTuCZ3kZmgUUuZ4FbdkKdQ6h2lrqTANKPRY5rkZGoz4Avtiyo" "0R8SGAMzqBsxFNMCZyeHqxmhkLT6+8F01PtBe9T7TYX9E59gC2QHizOuuZ1rig8F1K3mk9Vn5Kfg"
"lcl5gRJBCuVEE1SoiSbYwodB/rSGXy5nwXuK8qFyVJ2FaeCPYKCCkrx6MAEgkbPvG02NKU9KTcFU" "u01rB6AQAs+xD8KZcWFFiCJuJQnYB8V/5tGWz6zl49GPgDXkyy2znYQyjWrNM6CmeChMSKU+ENBA"
"sjWDp6nHTEej6Xc1gWjW6IBjLlODUnogh0M4VLLQMq/zyEC0xNGJBpgo1nZNSg1Ah6uDAw4e2Mmf" "jzIOHn4qcIJnKnCOdDS/mP75waX806fdgjVLLz0V6DRBpVryp4B+HU2lDY3OX2uoo+lv+0mHDBG9"
"HMqQeGDtprZVJZQByf3L47Aoty6JRWq38Tqq0gmxwaxdASk/UPNYs7TK6OgiEChQ21jpJO21s6BX" "gdpHNA3rmFKzI7T/ms3qcbeRI/xhcAABayoAwXZgDJ+eRYnH5Jo8tPXKcVdpWAcPpq0ONstZ4H/N"
"HsE9L9fL66y6mYF/g/yDOg=="
)
) satan421 发表于 2019-8-19 11:15
这个加密貌似没什么难度啊
"注册成功"字符串转ascii码表
(vl-string->list "注册成功")->(215 162 178 22 ...
是的,很简单。
这程序的定制版算法是随机的,不一定是6,是个随机数。
单个字符串手工处理很简单,但程序里的字符串很多,会烦死你的。 本帖最后由 satan421 于 2019-8-19 11:44 编辑
这个加密貌似没什么难度啊
"注册成功"字符串转ascii码表
(vl-string->list "注册成功")->(215 162 178 225 179 201 185 166)
将得到的表与6做异或运算,得到表(209 164 180 231 181 207 191 160)
还原就很简单了,只需要知道6 摆渡是不是要会员才能下载 加密后lisp,有时运行不下去 bai2000 发表于 2019-5-30 07:28
加密后lisp,有时运行不下去
你哪一句出错了?贴上来看看,改一下 nzl1116 发表于 2019-5-29 23:38
摆渡是不是要会员才能下载
不用吧?百度网盘,谁都可以下载吧 运行不了,显示有病毒。
ssyfeng 发表于 2019-5-30 13:24
运行不了,显示有病毒。
用汇编语言写的程序,误报。保证无毒,选择信任。 下载地址链接: https://pan.baidu.com/s/1hR7fbgA9ycdCRWmCAz9qEA 提取码: p5i2 升级到1.12版
链接: https://pan.baidu.com/s/1M2lwzxTAqOUjsGYV4pVjpw 提取码: b32b 提示“错误: 输入的字符串太长”
页:
[1]
2