Auto Lisp字符串自动加密器 ver 1.12 免费版

baitang36

自动加密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

cghdy

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=="
                )
  )

baitang36

satan421 发表于 2019-8-19 11:15
这个加密貌似没什么难度啊
"注册成功"字符串转ascii码表
(vl-string->list "注册成功")->(215 162 178 22 ...

是的，很简单。
这程序的定制版算法是随机的，不一定是6，是个随机数。
单个字符串手工处理很简单，但程序里的字符串很多，会烦死你的。

satan421

这个加密貌似没什么难度啊
"注册成功"字符串转ascii码表
(vl-string->list "注册成功")->(215 162 178 225 179 201 185 166)
将得到的表与6做异或运算，得到表(209 164 180 231 181 207 191 160)
还原就很简单了，只需要知道6

nzl1116

摆渡是不是要会员才能下载

bai2000

加密后lisp，有时运行不下去

baitang36

bai2000 发表于 2019-5-30 07:28
加密后lisp，有时运行不下去

你哪一句出错了？贴上来看看，改一下

baitang36

nzl1116 发表于 2019-5-29 23:38
摆渡是不是要会员才能下载

不用吧？百度网盘，谁都可以下载吧

ssyfeng

运行不了，显示有病毒。

baitang36

ssyfeng 发表于 2019-5-30 13:24
运行不了，显示有病毒。

用汇编语言写的程序，误报。保证无毒，选择信任。

baitang36

下载地址链接: https://pan.baidu.com/s/1hR7fbgA9ycdCRWmCAz9qEA 提取码: p5i2

baitang36

升级到1.12版
链接: https://pan.baidu.com/s/1M2lwzxTAqOUjsGYV4pVjpw 提取码: b32b

cghdy

提示“错误: 输入的字符串太长”