求助Grip的加密方法

真的汉子

求助Grip的加密方法，电脑IP,计算机名称，急，急急。。。。。。。

danyfer

通过条用子程序来完成。
N01:
9 z: q# \9 I" V! y3 WCALL/'COMPUTER',DME
IF/DME==0,MESSG/'软件只允许在公司内部使用.'
IF/DME==0,JUMP/TRM:

PROC/DME
: v4 h1 h" W# \" ]4 s6 Q+ bNUMBER/STRLEN,ASCCOM(20),CHECK,QUEREN
5 v1 }# s: A; r% c9 j5 B; Q. M* mSTRING/COMNAM(20),PASNM(100),PASS(1000,100),PATH(100)
ST1:
4 u: b* A& s" Z- @6 pCOMNAM=ENVVAR/'UGS_LICENSE_SERVER',ASK,IFERR,ERR1:
7 O* p) e: V. X* X$ \PATH=ENVVAR/'UGII_USER_DIR',ASK,IFERR,ERR1:
STRLEN=LENF(COMNAM)
6 Q( f! k. D1 X+ d# tCOMNAM=SUBSTR(COMNAM,7,STRLEN-6)

DO/ST2:,I,1,STRLEN-6
ASCCOM(I)=ASCII(COMNAM,I)
IF/ASCCOM(I)>=97 AND  ASCCOM(I)<=122,ASCCOM(I)=ASCCOM(I)-32
" V1 H. N( O6 d+ f7 A4 \$ _PASNM=PASNM+ISTR(ASCCOM(I))
ST2:
ST3:
# U0 P! @, W# q) oFETCH/TXT,1,PATH+'startup\LICENSE.DAT',IFERR,ERR2:
  f' [5 O! Z3 W* y5 |0 M% vRESET/1

" x- N7 }# X9 b/ u; A4 ~DO/ST4:,I,1,1000
READ/1,IFEND,ST5:,PASS(I)
CHECK=CMPSTR(PASNM,PASS(I))
IF/CHECK==0,DME=1
ST4:
) e$ F  t% L6 _ST5:
2 D# R$ V6 M1 O9 E, u) i- h; CFTERM/TXT,1
3 s% ^& i. I2 L, X+ i5 t0 E0 SJUMP/TRM:

2 O0 o# \; |( t9 A# YERR1:
% {9 o) L( ^4 ~0 DMESSG/'请正确安装UG软件。'
JUMP/TRM:
$ i& O/ b5 R8 U6 o5 x; EERR2:
MESSG/'请先注册软件。'
JUMP/TRM:
1 B6 R0 x2 ^8 `+ G! f
# X4 K: J. q( [4 c! n  CTRM:
) c* E' b5 G+ R& e2 Y0 V2 {  vRETURN

zmjacky

学学了。感谢分享

zzh1385

看不明白啊？

240995912

只听说过 图档拿到公司以外的电脑是打不开的，。。。大概就这样回事

baton520

持续关注中，等待好回复