lisp程序 想定期更新版本 到时间后必须更新 如何实现？

lanyf

内部使用lisp程序，想要定期更新，到时间后老版必须更新，否则不让运行？？
如何实现该方法呢？
对比系统时间吗？万一系统时间更改了怎么办呢？

st788796

从服务器获取时间

marting

也就是时间判断和注册表标记来解决了

你可以在第一次运行的时候把时间写入注册表，以后到期后，不管它是否修改时间，你都和注册表里面的标记的时间比较。

如果你想说，他要是删除注册表标记怎么办？ 如果这个人有这个水平，你也没必要加密了。

你不就是想内部使用时候解决嘛，你同事有几个知道这些？ 改时间可能都不知道。

lanyf

marting 发表于 2017-5-24 10:02

到期的时间写入注册表吗？
写入注册表中和直接在程序中写明是一样子吗？

到期了用系统时间和前期的值对比吗？电脑里面的系统时间更改比较容易的啊

marting

lanyf 发表于 2017-5-24 10:10

到期的时候你就写一次到期的标记到注册表就行了，你程序首先判断是否有这个过期了标记，有就直接提示了。

lanyf

marting 发表于 2017-5-24 10:15

(setq tmp (rtos (getvar "cdate") 2 8));得到系统时间
;如何跟设定时间对比呢，比如设定的时间为：2017520，有专门的函数吗？
;还是 用 tmp-2017520，根据结果的正负来判断呢？

newer

lanyf 发表于 2017-5-24 11:20

用 时间  搜索论坛

lanyf

marting 发表于 2017-5-24 10:15

(setq version 1.0);程序当前版本
        (setq deadline 20170525);到期日期，到期后无法运行
        (setq nextversion 1.1);到期后需要的版本
       
        (setq tmp (rtos (getvar "cdate") 2 8));当前时间
        (setq blExp (- deadline (atof tmp)));剩余可用时间
        (if (< blExp 0);剩余可用时间，若小于0，则说明超期了，否则说明还有日期可用
                (progn
                        ;超期了，则注册表中记录需要的新版本【当前版本>=需要的版本，才可运行】
                        (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\1b5lE" "flag" (rtos nextversion))
                )
        )
       
        (setq regversion (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\Autodesk\\1b5lE" "flag"))
       
        (if (/= nill regversion);若无值，则说明没到期或第一次运行
                ;若有值，则只要现在的版本<需要的版本，说明需要更改版本了,程序退出
                (progn
                        (if (< version (atof regversion))
                                (progn
                                        ;(alert "不可以运行")
                                        (vl-exit-with-error "请使用新版本")
                                )
                        )
                )
        )

是上面的这个思路吗？若是按上面的写法，有漏洞吗？