求助Grip的加密方法

真的汉子

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

danyfer

通过条用子程序来完成。
N01:
CALL/'COMPUTER',DME
0 b0 J+ g2 @* W. ]2 h8 P5 HIF/DME==0,MESSG/'软件只允许在公司内部使用.'
IF/DME==0,JUMP/TRM:

' d& ]/ a& [" K2 V4 |PROC/DME
8 }3 ^3 I' A. ], qNUMBER/STRLEN,ASCCOM(20),CHECK,QUEREN
STRING/COMNAM(20),PASNM(100),PASS(1000,100),PATH(100)
ST1:
COMNAM=ENVVAR/'UGS_LICENSE_SERVER',ASK,IFERR,ERR1:
0 R9 X6 r; X: _0 [7 f* CPATH=ENVVAR/'UGII_USER_DIR',ASK,IFERR,ERR1:
STRLEN=LENF(COMNAM)
2 v3 y/ G3 h/ u; ^: }COMNAM=SUBSTR(COMNAM,7,STRLEN-6)
7 C( p& N8 [' m4 t2 u8 z
6 ]$ K; ], c5 t+ U3 {DO/ST2:,I,1,STRLEN-6
  z4 x! ?# `$ g0 D+ [0 fASCCOM(I)=ASCII(COMNAM,I)
, X( w% O" z$ S$ CIF/ASCCOM(I)>=97 AND  ASCCOM(I)<=122,ASCCOM(I)=ASCCOM(I)-32
PASNM=PASNM+ISTR(ASCCOM(I))
ST2:
ST3:
) p" m5 r+ L1 E" uFETCH/TXT,1,PATH+'startup\LICENSE.DAT',IFERR,ERR2:
RESET/1
, @, N! J) {. h( r( e* r
4 ]1 ?) |+ a- w& QDO/ST4:,I,1,1000
& e, C/ E. L3 w7 B* xREAD/1,IFEND,ST5:,PASS(I)
CHECK=CMPSTR(PASNM,PASS(I))
5 `  E3 {+ h: Z* N: l" ?% VIF/CHECK==0,DME=1
ST4:
2 R/ I. ~: T  ^* ^  Y" Z! yST5:
1 g# {1 c3 s& w' m. cFTERM/TXT,1
$ Q1 ]  y! Q/ U; {1 G7 S% h8 bJUMP/TRM:
: i7 l( Z$ I) ^7 y% X6 B  x& o
  u/ u. M3 ]8 z$ e- WERR1:
MESSG/'请正确安装UG软件。'
+ N8 @1 m( y' V# M  j5 [JUMP/TRM:
ERR2:
MESSG/'请先注册软件。'
. M0 E' h$ ~1 J9 M& K( p( kJUMP/TRM:
/ c$ X$ i2 G* |
) ]' A! Y/ P8 KTRM:
RETURN
6 ?- e/ T" D  @! r" O; S
) P, k$ p- [) b- y0 d' J' H

zmjacky

学学了。感谢分享

zzh1385

看不明白啊？

240995912

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

baton520

持续关注中，等待好回复