求助Grip的加密方法

真的汉子

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

danyfer

通过条用子程序来完成。
N01:
CALL/'COMPUTER',DME
6 n( [0 p  o( TIF/DME==0,MESSG/'软件只允许在公司内部使用.'
8 s% k0 x. ^7 T' ~IF/DME==0,JUMP/TRM:

. B( P" x4 R8 J5 PPROC/DME
NUMBER/STRLEN,ASCCOM(20),CHECK,QUEREN
; X7 x- |* ^; }: w1 C4 P" E, B2 MSTRING/COMNAM(20),PASNM(100),PASS(1000,100),PATH(100)
; F9 H3 L( X4 M- o/ l0 y+ z8 f" d# PST1:
7 k; D3 s% P9 Y- X/ u; ^1 v4 hCOMNAM=ENVVAR/'UGS_LICENSE_SERVER',ASK,IFERR,ERR1:
PATH=ENVVAR/'UGII_USER_DIR',ASK,IFERR,ERR1:
STRLEN=LENF(COMNAM)
COMNAM=SUBSTR(COMNAM,7,STRLEN-6)

& r7 h( G/ ~" K) A+ j- L8 CDO/ST2:,I,1,STRLEN-6
- Q/ A! `- H1 y! V( jASCCOM(I)=ASCII(COMNAM,I)
, W* }' G3 h7 d* rIF/ASCCOM(I)>=97 AND  ASCCOM(I)<=122,ASCCOM(I)=ASCCOM(I)-32
PASNM=PASNM+ISTR(ASCCOM(I))
ST2:
  o8 v1 K4 H% f9 MST3:
FETCH/TXT,1,PATH+'startup\LICENSE.DAT',IFERR,ERR2:
+ q" U% B+ L# z1 A3 eRESET/1

DO/ST4:,I,1,1000
; _# \, r' j! c2 @3 G7 I5 d* fREAD/1,IFEND,ST5:,PASS(I)
CHECK=CMPSTR(PASNM,PASS(I))
IF/CHECK==0,DME=1
ST4:
! |0 P  W; q7 K) L7 D- e+ [ST5:
! B; K+ W6 x$ G6 A' cFTERM/TXT,1
JUMP/TRM:

ERR1:
MESSG/'请正确安装UG软件。'
2 J% I, q3 c8 F3 l- UJUMP/TRM:
0 i0 P- K% c! `3 x: ?ERR2:
MESSG/'请先注册软件。'
JUMP/TRM:
* M" t3 z8 ^+ l. _. s/ Z8 t3 h, e( w
- S+ T1 I# \9 q4 o0 F' wTRM:
RETURN
( V: ^  E6 d- H* z+ D+ E# Y
2 p9 U6 G& F. S7 X/ W

zmjacky

学学了。感谢分享

zzh1385

看不明白啊？

240995912

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

baton520

持续关注中，等待好回复