wzh 发表于 2006-8-7 01:08:00

这样限制次数的话，如果到500次后，我打开注册表修改一下不就又可以用了吗?

aphey 发表于 2006-8-7 12:58:00

<P>我写的限制使用天数的程序。通过更改参数，可以实现对不同程序的注册管理。</P>
<P>程序采用将注册信息编码写入注册表的方法。注册表的位置由机器序列号计算得出。不固定。</P>
<P>新的程序打算采用注册信息保存于多个位置的方法，某个位置的信息非程序更改后都会引起整个注册资料的失效。</P>
<P>有需要的可与我联系。有对此感兴趣的也可一起讨论。</P>
<P><A href="mailto:aphey@163.com" target="_blank" >aphey@163.com</A>&nbsp;&nbsp;&nbsp;&nbsp; qq:27887287</P>
<P>命令：</P>
<P>LSSTEST1&nbsp; 检测注册状态，返回剩余天数的提示，过期调用exit，退出程序</P>
<P>LSSTEST2&nbsp; 注册码输入</P>
<P>LSSTEST3&nbsp; 注册码计算，该演示程序只提供对程序名“ABCDEFG1.0”的计算。</P>

gdjdh 发表于 2006-9-16 06:53:00

做人要诚实.

WJQ6080 发表于 2006-9-16 09:54:00

<P>还不理解,要多学习,</P>
<P>十二楼,你的附件怎么用啊??</P>

zhang007 发表于 2006-10-17 15:54:00

<P>这个容易破,看看我以前写的一个东东,运行程序时总是那一天,你就是只给一天的试用期,也可天天用.不过我们写程序是给那些不会编程的人用的,稍稍有个门坎就行了</P>
<P>&nbsp;&nbsp;&nbsp; ' 返回系统时间<BR>&nbsp;&nbsp;&nbsp; Dim SysTime As SYSTEMTIME<BR>&nbsp;&nbsp;&nbsp; Dim y As Integer<BR>&nbsp;&nbsp;&nbsp; Dim m As Integer<BR>&nbsp;&nbsp;&nbsp; Dim d As Integer<BR>&nbsp;&nbsp;&nbsp; Dim id As Long<BR>&nbsp;&nbsp;&nbsp; Dim r As Long<BR>&nbsp;&nbsp;&nbsp; Dim p As Long<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; GetSystemTime SysTime</P>
<P>&nbsp;&nbsp;&nbsp; With SysTime<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; y = .wYear<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; m = .wMonth<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d = .wDay<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .wYear = 2005'时间自己定<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .wMonth = 3<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .wDay = 11<BR>&nbsp;&nbsp;&nbsp; End With<BR>&nbsp;&nbsp;&nbsp; SetSystemTime SysTime<BR>&nbsp;&nbsp;&nbsp; ' 执行外部程序<BR><BR>&nbsp;&nbsp;&nbsp; id = Shell("D:\Program Files\abc\abc.exe", 1)<BR>&nbsp;&nbsp;&nbsp; p = OpenProcess(SYNCHRONIZE, False, id)<BR>&nbsp;&nbsp;&nbsp; r = WaitForSingleObject(p, INFINITE)<BR>&nbsp;&nbsp;&nbsp; r = CloseHandle(p)</P>
<P>&nbsp;&nbsp;&nbsp; ' 还原系统时间<BR>&nbsp;&nbsp;&nbsp; GetSystemTime SysTime<BR>&nbsp;&nbsp;&nbsp; With SysTime<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .wYear = y<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .wMonth = m<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .wDay = d<BR>&nbsp;&nbsp;&nbsp; End With<BR>&nbsp;&nbsp;&nbsp; SetSystemTime SysTime<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; End</P>

hanyu_gis 发表于 2006-10-19 15:38:00

<P>我大的程序一般是这样做的：</P>
<P>加载时就生成一个key1点，记录下第一次运行时间。以后每次程序运行时，记录下key2点，用key1和key2比较，这个值只能为你限定的一个正整数范围内，这样可以限制天数。</P>
<P>如果在允许范围内，就可以运行，但弹出提示，如果超期，则直接退出。</P>
<P>如果注册成功，则没有限制，全功能使用。</P>
<P>其实加密也只是好玩，我还没用这个难为谁过，</P>
<P>呵。。。小试试手吧。</P>
<P>这样做：</P>
<P>(defun c:pro()<BR>&nbsp; (WRITEDATE)<BR>&nbsp; (if (or reg)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (run pro)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn (if (check date)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;(progn (alert)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;(run pro)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;(alert)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;(PROGN (over date)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;(alert)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; )<BR>&nbsp; &nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp; )<BR>)</P>

aphey 发表于 2006-11-3 00:45:00

<P>我的程序也只是打算做个简单的试用控制，所以采用了天数控制。</P>
<P>楼上的说得没错，如果将当前程序运行的时间取得更详细一点，精确到秒，然后做比较，程序可能会更严密。</P>
<P>最好的加密或许还是用狗。</P>

abcxyz0517 发表于 2006-11-17 08:17:00

<P>经典,为什么我对LSP不精通呢~~</P>
<P>&nbsp;</P>

随便逛一逛 发表于 2006-11-25 21:38:00

<P>加密，解密。。。</P>
<P>在于加密的运算方法。</P>

tcht 发表于 2007-1-26 12:53:00

说到底，我还是不懂，能否简单点说明
页: 1 [2] 3 4
查看完整版本: [LISP]请教如何把自编的AutoLISP程序做成限次版