UG GRIP中几种加密写法

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

2 o' f: O! Y! l5 W

) y6 H# W! n5 q4 m% ]9 B0 f

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

2 [* n9 \! C' D

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

0 O t& }) ?6 x5 e5 a

proc/n_cmp,n_usd,n_dat,n_dom

8 e" N; t) C1 r- a5 m& A4 L5 ~
string/r_dir(132),l_con(50,132),l_add(132)
3 S$ l# x+ x+ S4 c5 _$ estring/user(132),c_name(132),comp(132) a; M7 g/ P( u0 I- ?. j
number/n_usd,n_dat,n_cmp,n_dom

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

n_cmp=0: v$ A0 q; Q& O# h- q
n_usd=0+ o- T8 M. ^$ m# Z- G/ n2 d8 U
n_dat=0! [6 R# i' g& s' O' H
n_dom=0

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

comp=envvar/'computername',ask
' Z* |# J2 z4 v! W; S2 G3 mifthen/cmpstr(comp,'XXX')==0% K- |- t, D* C' b
n_cmp=1
: r4 C& t7 j, N- nendif

$$=========================================================/ P- j4 K& r4 v9 \/ ]; a
n_dom:
o8 c- M( N: {9 o9 {/ i, `# Ecomp=envvar/'userdomain',ask
% l' D4 M( l% Q+ W: E: }# mifthen/cmpstr(comp,'yue-SUZHOU')==0 Z7 U7 ^; b9 c* I e- D+ D
n_dom=1
" v0 w5 W9 o! R/ t$ @endif

$$=========================================================' R8 w0 _; q6 s/ E& V
n_usr:

ifthen/&userid=='tagore') s+ ~# ?" `* q0 I6 `& O( |
n_usd=11 f- }7 Y: `% @8 j! h
endif

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

n_dat:! y9 g: G- F8 |' j/ d( R5 V m- \
&fulldt=2( ]% i, L( p* H# v9 W
ifthen/date<='10-01-2014'
, O, `$ D5 [ d) s1 en_dat=10 I0 d3 }' Q! C# j3 N# O8 A
endif

$$=========================================================
1 d7 ^% r+ @$ _1 O2 m5 z3 jhal:0 M0 v9 s( h4 q: X+ o/ B9 w. R
return
; y0 F2 L+ G3 `0 U* I* x8 _$$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中几种加密写法