[LISP函数]：LISP编程问题之二

hqd9639 · 发表于 2002-6-5 23:52:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何编写一个具有时间限制的LSP函数,供其它LISP程序调用，使LISP程序具有使用时间上的限制？

JINGSABING · 发表于 2002-6-7 01:31:32

什么意思

hqd9639 · 发表于 2002-6-11 01:48:45

有点像这样：

(DEFUN C:SECTIONL ( )
(if(=(findfile "secdtsrt.srt")nil)
  (progn
(setq date1(rtos(getvar "date")2 6))
(setq sectiondate (open  "secdtsrt.srt"  "w"))
(write-line date1 sectiondate)
(setq retdf (close sectiondate))
  )
  (progn
(setq sectiondate (open (findfile "secdtsrt.srt") "r"))
(setq date1(read-line sectiondate))
(setq retdf (close sectiondate))
  )
)
(if(= date1 "out")
  (progn
(alert "1.)Sorry times up, 0 days left.\n2.)See the buymesec.doc file to order or\nemail me at Staylor781@aol.com\nfor ordering information.")
  )
  (progn
(setq date1a (distof date1))
(setq date30(getvar "date"))
(setq dateleft(itoa(fix(- 31(- (+ date30 0.0000001) date1a)))))
(if(or(<=(distof dateleft)0.0)(>(distof dateleft)30.5))
(progn
   (alert "1.)Sorry 0 days left.\n2.)See the buymesec.doc file to order or\nemail me at Staylor781@aol.com\nfor ordering information.")
   (if(<=(distof dateleft)0.0)
   (progn
   (setq dateout "out")
   (setq sectiondate (open  "secdtsrt.srt"  "w"))
   (write-line dateout sectiondate)
   (setq retdf (close sectiondate))
   )
   )
   )
(progn
   (setq atest " days left to use this shareware.\nSee the buymesec.doc file to order or\nemail me at Staylor781@aol.com\nfor ordering information.")
   (alert (strcat dateleft atest))
   (section_sec_srt)
)
)
  )
)
(princ)
)

LUCAS · 发表于 2002-6-11 03:59:05

由程序建立的”secdtsrt.srt”档案很容易被人发现,你这个程序是不可行的.所以我想还是使用出现对话框方式来要求注册有效,并增加对话框出现的时间

前生 · 发表于 2002-6-11 05:22:34

仔细看看doslib的函数

hqd9639 · 发表于 2002-6-12 00:06:02

我也是这么想，由程序建立的”secdtsrt.srt”文件是很容易被人发现，有没有不用建立"secdtsrt.srt"的方法呢？

hqd9639 · 发表于 2002-6-12 00:12:12

DosLib6.0中dos_getpassword函数可用于加密，但不能使LISP程序具有使用时间上的限制。

前生 · 发表于 2002-6-12 00:38:24

doslib +注册表了

LUCAS · 发表于 2002-6-12 00:50:54

前生兄,举个范例可以吗???

hqd9639 · 发表于 2002-6-12 01:05:22

是呀，不明白。

cy956 · 发表于 2002-6-12 11:02:14

doslib可以编辑注册表，这样把信息加入，
也许隐蔽些，不过也只是相对的。

前生 · 发表于 2002-6-13 00:36:21

呵呵那到是，其实vlisp里已经有写注册表的函数了。
一切的东西都是相对的。长清兄说是矛和盾的关系.!
其实读时间，还不如读disk的序列号来的方面

cy956 · 发表于 2002-6-13 11:37:15

vl是有注册表功能，doslib还有读硬盘序列号等；
但时间或次数控制要靠写入。

火狼 · 发表于 2005-4-21 11:58:51

请教如何用硬盘序列号实现自己开发的工具集的注册授权？
万分感激！！！！

lijiao · 发表于 2005-4-21 12:56:48

由程序生成文本文件也是可行的，只是文本的内容要做一下处理（我曾做过的处理方法是将每个字符的ASIIC码大于256的减去256，小于256的加上256，然后保存修改后的字符），别人看不懂文本内容，就不敢轻易删除和修改。

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：LISP编程问题之二

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块