UG GRIP中几种加密写法

xcb

( P) O) @3 a9 H! `4 \, ?2 Q

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

- u  n( l2 H+ B: L* F; Y

原帖地址：http://www.ugufun.com/?p=83

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)
" D0 g6 ~, y  Ynumber/n_usd,n_dat,n_cmp,n_dom

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

n_cmp=0
' p5 v' b$ K. ~* X3 K. z1 Jn_usd=0
' ?8 @6 B. P4 Q. O) sn_dat=0
3 u9 e- o. F* o7 H2 Mn_dom=0

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

comp=envvar/'computername',ask
ifthen/cmpstr(comp,'XXX')==0
n_cmp=1
! a: Q5 Q9 H9 y4 @/ oendif

$$=========================================================
* V4 t( G1 Q6 ~; o* m! d5 Cn_dom:
" W; ^3 \3 p$ r- ^/ L: p" n& \- K) Zcomp=envvar/'userdomain',ask
ifthen/cmpstr(comp,'yue-SUZHOU')==0
- _% R; Q. [( w4 p1 K; n) K# o2 f" nn_dom=1
endif

$$=========================================================
* b" Y( o* B2 x3 A1 w+ d) n' tn_usr:

ifthen/&userid=='tagore'
* R# A) t( `, [  En_usd=1
3 X; R+ i2 u7 Z2 O3 k% wendif

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

n_dat:
. a9 i2 Z: u( i' S( K&fulldt=2
6 d& p2 N& X! Z! x( ]) vifthen/date<='10-01-2014'
n_dat=1
) J$ `. C/ v2 Eendif

$$=========================================================
7 @/ }( ?& H$ u3 A0 bhal:
- _8 [1 m3 ^: i# @return
$$halt

baton520

是挺不错的，根据用户名和日期还有电脑名来加密了，不过这样可以通过修改还可以继续使用，最近在研究通过提取网卡的MAC地址来加密，这个改了也没用

magoo123456

楼主，不论什么情况你一定要hold住！hold住就是胜利！hold就是对UG网最大的支持！

XIAObo595219317

敢问楼主此段代码如何插入其他GRS文件？

zmjacky

厉害，谢谢分享

UG-GRIP

以前看帖常常忘了回帖，感动于作者的悲情史，每每回首未尝不感慨涕淋，痛哭流涕，于是哀余生之短暂，诲曾经之过失，然时不可逆，天不可违，隧抒以感慨以兹慰藉，以求无愧于心