求助Grip的加密方法

真的汉子

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

danyfer

通过条用子程序来完成。
0 d3 H; }) J7 }' o" @3 G! YN01:
* E2 v$ b4 i. Z( f. W1 w  v3 [CALL/'COMPUTER',DME
- q4 e' {. q" u' RIF/DME==0,MESSG/'软件只允许在公司内部使用.'
IF/DME==0,JUMP/TRM:
: l* v6 I& G' S7 Z6 x: I9 n7 o
PROC/DME
NUMBER/STRLEN,ASCCOM(20),CHECK,QUEREN
8 G9 n6 d% j! s& C5 PSTRING/COMNAM(20),PASNM(100),PASS(1000,100),PATH(100)
+ R: j% V5 e- L- n; e$ J* d# yST1:
+ k0 {3 W; W5 F  i8 v) wCOMNAM=ENVVAR/'UGS_LICENSE_SERVER',ASK,IFERR,ERR1:
, [* S8 }7 w8 q( \* M& m  [PATH=ENVVAR/'UGII_USER_DIR',ASK,IFERR,ERR1:
STRLEN=LENF(COMNAM)
COMNAM=SUBSTR(COMNAM,7,STRLEN-6)
& ]  V; X( _& A7 k: v" i
DO/ST2:,I,1,STRLEN-6
9 n( Q- `: n0 I. S' z0 BASCCOM(I)=ASCII(COMNAM,I)
4 i8 W/ g7 v, z/ O8 G2 bIF/ASCCOM(I)>=97 AND  ASCCOM(I)<=122,ASCCOM(I)=ASCCOM(I)-32
4 r2 ?4 ]' P5 }: dPASNM=PASNM+ISTR(ASCCOM(I))
ST2:
ST3:
9 B2 }+ ^; G: ^0 J+ hFETCH/TXT,1,PATH+'startup\LICENSE.DAT',IFERR,ERR2:
RESET/1
5 ?  Q# ?- P8 N+ i  ?% \
+ G* Z, K+ E: U. rDO/ST4:,I,1,1000
READ/1,IFEND,ST5:,PASS(I)
' `. F- u+ u! N8 Q! I" A6 ^" FCHECK=CMPSTR(PASNM,PASS(I))
IF/CHECK==0,DME=1
7 _5 s! t% M  B8 A' RST4:
ST5:
FTERM/TXT,1
3 P# O+ R# q; JJUMP/TRM:
. O4 D* E, k; ?/ U5 U" R0 ~$ @" J
. f6 d  o  L% i8 D$ q: MERR1:
MESSG/'请正确安装UG软件。'
JUMP/TRM:
ERR2:
+ |; Y$ A6 _2 ~5 N& nMESSG/'请先注册软件。'
JUMP/TRM:
' w! W! m+ ^' S1 Z) ~
  f3 I2 V) ~: S4 M8 c% WTRM:
RETURN

. d' C& G/ o3 i0 r2 |) h

zmjacky

学学了。感谢分享

zzh1385

看不明白啊？

240995912

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

baton520

持续关注中，等待好回复