UG GRIP中几种加密写法

xcb

3 A7 T1 }: e3 o' C$ R

& K1 _& M- X% Q* s9 ~' N

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

' w4 L9 x* q' B/ b# }  D! \

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

9 f4 O7 S9 |) h( W* o9 \

proc/n_cmp,n_usd,n_dat,n_dom

string/r_dir(132),l_con(50,132),l_add(132)
9 L* \% v4 i% ^8 h8 Istring/user(132),c_name(132),comp(132)
number/n_usd,n_dat,n_cmp,n_dom

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

n_cmp=0
7 W7 R$ r3 ]5 Xn_usd=0
5 B7 U2 T6 N5 {n_dat=0
n_dom=0

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

comp=envvar/'computername',ask
) G) Q2 T8 a6 g* Iifthen/cmpstr(comp,'XXX')==0
n_cmp=1
endif

$$=========================================================
8 o8 s* q3 X! v& W0 N0 mn_dom:
, T! E3 H6 G5 \6 `& B& X" Wcomp=envvar/'userdomain',ask
ifthen/cmpstr(comp,'yue-SUZHOU')==0
n_dom=1
endif

$$=========================================================
' D2 l: w; m7 f" E6 f0 }/ [n_usr:

ifthen/&userid=='tagore'
/ _  Q2 j; W, Pn_usd=1
endif

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

n_dat:
; ^8 O* `/ a3 S- y&fulldt=2
ifthen/date<='10-01-2014'
3 n9 q( z7 x6 u* zn_dat=1
endif

$$=========================================================
hal:
' r3 y. q7 g/ S! i" dreturn
- S) W* X# ]9 u5 M2 w$$halt

baton520

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

magoo123456

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

XIAObo595219317

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

zmjacky

厉害，谢谢分享

UG-GRIP

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