grip 时间加密

时间加密

虽然时间加密可以通过修改计算机时间来破解
但是修改计算机时间会产生麻烦（如网页证书无效经常会弹出提示..)
所以时间加密有一定限制效果

string/m_tt(12),m_t1(4),m_t2(2),m_t3(2)
number/m_t(6)

$$时间限制
m_t(1)=2016 $$年
m_t(2)=1    $$月
m_t(3)=3    $$日

&FULLDT=2  
m_tt=Date
m_t1=substr(m_tt,7,4)
m_t2=substr(m_tt,1,2)
m_t3=substr(m_tt,4,2)
m_t(4)=intf(valf(m_t1))
m_t(5)=intf(valf(m_t2))
m_t(6)=intf(valf(m_t3))

print/m_t(1..3)
print/m_t(4..6)

if/m_t(4)>m_t(1),JUMP/LMT:
if/m_t(4)==m_t(1) and m_t(5)>m_t(2),JUMP/LMT:
if/m_t(4)==m_t(1) and m_t(5)==m_t(2) and m_t(6)>m_t(3),JUMP/LMT:

messg/'梅雷提示！时间加密程序未过期。'

end:
halt

LMT:
messg/'梅雷提示！注册码已过期。'
jump/end:

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/