[求助]请教在lisp中加入注册码

he520930

有点问题想请教，我想学习一下怎样在lisp中加入注册码，
附件中是我在网上收集的小程序，是用来修改字高和字宽和一个自动加载aaa.lsp的源程序，
命令分别为：ZG，ZK。我想修改为加入注册码：注册后才能使用命令:ZG，ZK和自动加载aaa.lsp文件;如果没有注册，侧提示请注册！
注册后就可以用这两个命令和自动加载aaa.lsp而且不再提示(简单说：注册后才能用lsp文件里的程序,如不注册提示请注册而不能运行这个lisp的程序)。
注册码没所谓，随便写一个吧，如果我要改的话我在源程序上改就行了，最好按这个写一个完整的出来看看，
以前我看过论坛中有讲到这样的问题，但说得不完全，对于我们这些不懂编程的人来说看不明白，不会编程真是麻烦！ 求回复！

cag

(vl-load-com)
(vl-load-all "Register")
(UseLimit)

;;;请在任何LSP文件中加入以上三行即可，注意一定要放在最前面！！！
;;;只支持AutoCAD2000及以上的版本
;;;Register.fas文件必须放在AutoCAD的支持路径下
;;;如Register.fas文件不在AutoCAD支持路径，请自行指定路径
;;;如(vl-load-all "C:/Program Files/AutoCAD 2004/Support/Register")
;;;现在的加密方式为
;;;获取物理磁盘C的序列号进行除2取整运算
;;;所以注册码=取整(申请码/2)
;;;如申请码为1550011861，则注册码=1550011861/2=775005930.5，去掉小数
;;;注册码则为775005930，即可注册成功

当然，技术在于交流，如果不涉及到什么机密及版权，只有共享才能让更多的人提高，也让自己提高。

xjw888

不明白!

ketxu

Thanks for sharing, but i thing we shouldn't generate code by serial disk, which change whenever re-install windows

hpy

非常不错，谢谢！

lanbosui

2楼楼主能否说的再明白点呀！我是新手！在此谢过！

7686599

等到能做出需要加密的程序时，自然会加密的技术了。

he520930

你不明白我告诉你吧,这个也是别人帮助我的,我也好应该帮助其它人,

首先你把"Register.lsp"文件下载放入你的CAD按装目录中,如:C:/Program Files/AutoCAD 2004/Support/

然后把(vl-load-com)
(vl-load-all "Register")
(UseLimit)

这一句话放在你的源程序的最上面,也就是说第一行,就可以了,

当你打开CAD,在命令行中提示有一个序号,你把这个序号除以2就是你的注册码了,就把除得的数输入命令行中就可以注册了,注意有小数的就去掉小数,见"cag"上面所说的,程序注册了就可以运行你的程序了.

程序在CAD第一次有效,如果你注册不了,可以再打开cad,再进行注册.

bai2000

怎么吧把直接编到LISP中？

同时把lsp加密呢？

phoenixdjq

翻译一下5楼的话，就是如果你真的能做出一个很好的程序

那你的水平就已经很高了，也就知道怎么加注册码了

如果真的有一个值得加注册码的程序，你就会想尽一切办法去学习这个方法，也就会了

如果是很简单的程序，应该共享出来，大家互相学习

楼主的这个程序好象很多的书上都是当作例题来讲的

jdhszh

很好!