【原创】用保留函数加密字符串

baitang36

程序中的版权信息不希望被别人修改，可以用本帖的函数来保护。

程序中定义了两个函数，一个用于加密，一个用于解密。
函数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"

baitang36

flowerson 发表于 2022-6-27 11:26
厉害，那就关键是能保住“syz-jm-string.fas”这个安全。

关键是灵活运用，你自己先变换一下，再用这个函数，就猜不出是怎么加密的了。如果直接用，因为知道的人太多，并不安全

baitang36

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)

Bao_lai

又出新作，厉害，感觉桌子里有好多暗箱操作。

lxy_2080

厉害，这个用处还是比较大的

wzg356

程序里放解密程序就行。

wzg356

还可以用楼主以前介绍的注册原里，分散于不同位置验证信息（一个多个字或整个串都可以）是否有改动，搞个突然死亡法

guosheyang

感谢大佬共享资料！

baitang36

没币的朋友在这里下载

lxl217114

谢谢大佬共享，高产了

Dani1988

太棒了，谢谢大师分享！

flowerson

厉害，那就关键是能保住“syz-jm-string.fas”这个安全。