UG GRIP中几种加密写法

UG GRIP中几种加密写法，可以做成子程序。



proc/n_cmp,n_usd,n_dat,n_dom
string/r_dir(132),l_con(50,132),l_add(132)
string/user(132),c_name(132),comp(132)
number/n_usd,n_dat,n_cmp,n_dom

$$=========================================================

n_cmp=0
n_usd=0
n_dat=0
n_dom=0

$$=========================================================

comp=envvar/'computername',ask
ifthen/cmpstr(comp,'XXX')==0
n_cmp=1
endif

$$=========================================================
n_dom:
comp=envvar/'userdomain',ask
ifthen/cmpstr(comp,'yue-SUZHOU')==0
n_dom=1
endif

$$=========================================================
n_usr:

ifthen/&userid=='tagore'
n_usd=1
endif

$$=========================================================

n_dat:
&fulldt=2
ifthen/date<='10-01-2014'
n_dat=1
endif

$$=========================================================
hal:
return
$$halt

不好意思我初学者不知道这页面在哪？能否告诉下

改系统时间会不会失效？