【原创】怎样擦掉内存中的注册码

baitang36

我们先来做一个试验
在vlide编辑器中输入如下代码：
(setq regcode (strcat "z68" "c68" "m6868"))
(setq regcode nil)
编译成fas后，加载。
然后用winhex编辑内存，查找“z68c68m6868”这个文本字符串，结果如下：
Offset            0  1   2   3   4   5   6  7    8  9   A   B   C   D  E  F
00DE1FCD0   00 00 00 00 00 00 00 00  00 00 00 00 6D 36 38 36               m686
00DE1FCE0   38 00 63 36 38 00 7A 36  38 00 7A 36 38 63 36 38   8 c68 z68 z68c68
00DE1FCF0   6D 36 38 36 38 00 44 3A  5C 30 38 5C 7A 63 74 2E   m6868 D:\08\zct.
00DE1FD00   66 61 73 00 00 00 00 00  00 00 00 00 00 00 00 00   fas      

在内存中找到了我们的regcode，“z68c68m6868”
为什么会这样呢？难道(setq regcode nil)没起作用？
我研究了很长时间，发现(setq regcode nil)只是把符号regcode清空了，并没对字符串“z68c68m6868”进行任何操作，它仍然完好无损的存在于内存中。
很多破解者利用这个原理，找到真正的注册码，免费使用正版软件。
作为lisp开发者，我们应该如何保护我们的版权呢？
lisp没有指针，没法直接修改内存。
经过很长时间的查找，我找到了能够修改字符串内容的保留函数。
用保留函数来把字符串内容擦除成为可能。
我的试验函数名是syz-wipe
用法：(syz-wipe 'regcode)
我们再试验一次，加载syz-wipe.fas，把上面的程序改成：
(setq regcode (strcat "z68" "c68" "m6868"))
(syz-wipe 'regcode)
(setq regcode nil)
编译后加载
内存中就再也找不到“z68c68m6868”了，我把它全擦成了\000.
在文件syz-wipe.fas中，函数名SYZ-WIPE可以用winhex修改成你自己喜欢的函数名。

tryhi

CAD不会清空的话，那一个循环中动态的字符串，不是会导致内存越来越臃肿？

baitang36

tryhi 发表于 2021-12-16 14:58
CAD不会清空的话，那一个循环中动态的字符串，不是会导致内存越来越臃肿？

它有自动回收机制，无用的内容多了会自己释放内存。以前有个（gc）就是手动干这个的。
gc这个函数的说明是 Forces a garbage collection, which frees up unused memory
内存被回收了，里面的信息也不会擦除的，字符串还在。

baitang36

取消附件收币，免费下载。

guosheyang

感谢大神共享！

czb203

感谢大神共享！

dlfjdy

感谢大神共享！