UG GRIP中几种加密写法

xcb · 发表于 2014-3-3 21:25

" A6 }0 A, v( `7 b b

6 o6 p) U% F8 F: K5 H

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

1 X- {& G* c/ W

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

4 d# R( U. x' W2 O

proc/n_cmp,n_usd,n_dat,n_dom

1 f! {) K6 Q2 @' A; u
string/r_dir(132),l_con(50,132),l_add(132)
' j7 r: F0 G3 m$ Astring/user(132),c_name(132),comp(132)0 a8 B$ C4 k' }7 y _& |
number/n_usd,n_dat,n_cmp,n_dom

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

n_cmp=0
5 a x0 `, J6 }+ H1 Un_usd=0
- R2 Z( k* K( \* i% fn_dat=0- J. u# a( G$ i+ q8 z+ W& s) ?
n_dom=0

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

comp=envvar/'computername',ask- j& Q/ E) ~; k! J
ifthen/cmpstr(comp,'XXX')==00 r" t7 I( G2 x! [0 l
n_cmp=18 r% s/ T) V( G
endif

$$=========================================================
, Y& m, r! ?" X! Z6 U$ }+ Dn_dom:
9 ]7 [/ \6 E# u8 }& ]- ^0 Gcomp=envvar/'userdomain',ask) h; l9 ]& N# w4 h
ifthen/cmpstr(comp,'yue-SUZHOU')==0/ t- P) y, Q2 y6 V" F1 E
n_dom=10 R) p6 s p0 U! I; F7 U1 k) Q3 h* C
endif

$$=========================================================" n! q* Q8 }: N+ k5 V$ A6 @( A
n_usr:

ifthen/&userid=='tagore'1 B8 ]# c7 `- s q" K# d
n_usd=16 F1 q0 u, x5 L; _8 m& L
endif

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

n_dat:8 i$ S0 t/ i. O7 R' f
&fulldt=2
/ G/ ?4 E7 M% Z- E5 m% p- Q2 tifthen/date<='10-01-2014'8 x1 X7 v" h2 C3 E
n_dat=1
5 p7 [8 g0 ?$ ^) c/ Vendif

$$=========================================================7 M& M9 G: S8 d1 ?
hal:: V) r _* Q5 Y# {; E
return . t" g% f: E+ x# h! k, ?
$$halt

baton520 · 发表于 2014-3-16 21:08

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

magoo123456 · 发表于 2014-3-21 08:39

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

XIAObo595219317 · 发表于 2014-4-16 10:09

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

zmjacky · 发表于 2014-8-31 15:56

厉害，谢谢分享

UG-GRIP · 发表于 2019-7-14 17:09

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

		自动登录	找回密码
密码			注册

[教程] UG GRIP中几种加密写法