[LISP]请教如何把自编的AutoLISP程序做成限次版

wzh

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

aphey

我写的限制使用天数的程序。通过更改参数，可以实现对不同程序的注册管理。

程序采用将注册信息编码写入注册表的方法。注册表的位置由机器序列号计算得出。不固定。

新的程序打算采用注册信息保存于多个位置的方法，某个位置的信息非程序更改后都会引起整个注册资料的失效。

有需要的可与我联系。有对此感兴趣的也可一起讨论。

aphey@163.com     qq:27887287

命令：

LSSTEST1  检测注册状态，返回剩余天数的提示，过期调用exit，退出程序

LSSTEST2  注册码输入

LSSTEST3  注册码计算，该演示程序只提供对程序名“ABCDEFG1.0”的计算。

gdjdh

做人要诚实.

WJQ6080

还不理解,要多学习,

十二楼,你的附件怎么用啊??

zhang007

这个容易破,看看我以前写的一个东东,运行程序时总是那一天,你就是只给一天的试用期,也可天天用.不过我们写程序是给那些不会编程的人用的,稍稍有个门坎就行了

    ' 返回系统时间
    Dim SysTime As SYSTEMTIME
    Dim y As Integer
    Dim m As Integer
    Dim d As Integer
    Dim id As Long
    Dim r As Long
    Dim p As Long
   
    GetSystemTime SysTime

    With SysTime
        y = .wYear
        m = .wMonth
        d = .wDay
        .wYear = 2005'时间自己定
        .wMonth = 3
        .wDay = 11
    End With
    SetSystemTime SysTime
    ' 执行外部程序

    id = Shell("D:\Program Files\abc\abc.exe", 1)
    p = OpenProcess(SYNCHRONIZE, False, id)
    r = WaitForSingleObject(p, INFINITE)
    r = CloseHandle(p)

    ' 还原系统时间
    GetSystemTime SysTime
    With SysTime
        .wYear = y
        .wMonth = m
        .wDay = d
    End With
    SetSystemTime SysTime
   
    End

hanyu_gis

我大的程序一般是这样做的：

加载时就生成一个key1点，记录下第一次运行时间。以后每次程序运行时，记录下key2点，用key1和key2比较，这个值只能为你限定的一个正整数范围内，这样可以限制天数。

如果在允许范围内，就可以运行，但弹出提示，如果超期，则直接退出。

如果注册成功，则没有限制，全功能使用。

其实加密也只是好玩，我还没用这个难为谁过，

呵。。。小试试手吧。

这样做：

(defun c:pro()
  (WRITEDATE)
  (if (or reg)
      (run pro)
      (progn (if (check date)
                      (progn (alert)
                                 (run pro)
                                 (alert)
                        )
                       (PROGN (over date)
                                      (alert)
                       )
                    )
      )
   )
)

aphey

我的程序也只是打算做个简单的试用控制，所以采用了天数控制。

楼上的说得没错，如果将当前程序运行的时间取得更详细一点，精确到秒，然后做比较，程序可能会更严密。

最好的加密或许还是用狗。

abcxyz0517

经典,为什么我对LSP不精通呢~~

 

随便逛一逛

加密，解密。。。

在于加密的运算方法。

tcht

说到底，我还是不懂，能否简单点说明