【原创】用保留函数加密字符串
本帖最后由 baitang36 于 2022-6-25 09:21 编辑程序中的版权信息不希望被别人修改，可以用本帖的函数来保护。
程序中定义了两个函数，一个用于加密，一个用于解密。
函数pack-string->list用来把字符串加密成一个表，用法与vl-string->list相同
函数pack-list->string用来把加密的表解密，转化成字符串，用法与vl-list->string相同
由于加密密钥是随机的，每次加密的结果是不同的。都能正确解密。
用法：
命令: (LOAD "C:/05/syz-jm-string.fas")
命令: (pack-string->list "1234567")
(5 78 144 172 250 185 73 149 195 188 30 129 79)
命令: (pack-string->list "1234567")
(5 11 2 37 147 142 12 7 68 126 78 88 255)
命令: (pack-string->list "1234567")
(5 137 211 65 10 32 142 214 80 232 9 123 69)
命令: (pack-string->list "1234567")
(5 207 216 208 219 45 200 221 88 166 76 175 64)
命令: (pack-string->list "1234567")
(5 52 64 137 194 14 51 69 68 65 51 137 127)
命令: (pack-list->string '(5 196 214 230 138 79 195 211 210 39 195 22 168))
"1234567"
命令: (pack-list->string '(5 81 53 141 91 131 86 48 138 234 237 83 60))
"1234567"
flowerson 发表于 2022-6-27 11:26
厉害，那就关键是能保住“syz-jm-string.fas”这个安全。
关键是灵活运用，你自己先变换一下，再用这个函数，就猜不出是怎么加密的了。如果直接用，因为知道的人太多，并不安全 GNAUHSIY 发表于 2022-7-26 22:37
老哥，pack-string->list的源码可以分享一下吗？
可以
(defun pack-list->string (list1)
(if list1
(crunch-pack->string (list->string list1))
) ;_ if
) ;_ defun
(princ) 又出新作，厉害，感觉桌子里有好多暗箱操作。 厉害，这个用处还是比较大的 程序里放解密程序就行。 还可以用楼主以前介绍的注册原里，分散于不同位置验证信息（一个多个字或整个串都可以）是否有改动，搞个突然死亡法 感谢大佬共享资料！ 没币的朋友在这里下载 谢谢大佬共享，高产了 太棒了，谢谢大师分享！ 厉害，那就关键是能保住“syz-jm-string.fas”这个安全。
页:
[1]
2