求助Grip的加密方法

真的汉子

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

danyfer

通过条用子程序来完成。
N01:
CALL/'COMPUTER',DME
: S$ \! ]6 H4 c8 y3 RIF/DME==0,MESSG/'软件只允许在公司内部使用.'
IF/DME==0,JUMP/TRM:
/ q$ b9 D8 q' ]% d5 a# ?
PROC/DME
9 }) ~; `* M6 p( T6 n1 xNUMBER/STRLEN,ASCCOM(20),CHECK,QUEREN
/ q! G+ d; |0 h2 Z/ O7 t, u# tSTRING/COMNAM(20),PASNM(100),PASS(1000,100),PATH(100)
ST1:
4 _5 e' r$ B, d* K) M6 f- aCOMNAM=ENVVAR/'UGS_LICENSE_SERVER',ASK,IFERR,ERR1:
PATH=ENVVAR/'UGII_USER_DIR',ASK,IFERR,ERR1:
STRLEN=LENF(COMNAM)
COMNAM=SUBSTR(COMNAM,7,STRLEN-6)

; v- v0 k% }% q3 BDO/ST2:,I,1,STRLEN-6
ASCCOM(I)=ASCII(COMNAM,I)
: K+ C: U2 |1 M, V( xIF/ASCCOM(I)>=97 AND  ASCCOM(I)<=122,ASCCOM(I)=ASCCOM(I)-32
PASNM=PASNM+ISTR(ASCCOM(I))
ST2:
ST3:
3 y/ h: t8 V  i8 E" L/ q  y. w7 B( W: lFETCH/TXT,1,PATH+'startup\LICENSE.DAT',IFERR,ERR2:
RESET/1

7 v# ~! x4 K: }9 Z+ q2 Y1 tDO/ST4:,I,1,1000
READ/1,IFEND,ST5:,PASS(I)
: A+ p4 \; P6 w" r- ]! B3 V& LCHECK=CMPSTR(PASNM,PASS(I))
+ s; y0 P" q1 j7 G0 r% k- f' L& dIF/CHECK==0,DME=1
4 l3 X& B; D! p" GST4:
ST5:
FTERM/TXT,1
! O9 t- \' s3 g9 d4 U" [# y* z4 ]JUMP/TRM:

9 v2 i) ^0 Q) {! j7 H' s+ `6 yERR1:
/ H+ }5 [6 `7 {, PMESSG/'请正确安装UG软件。'
( k, I3 ~* ?  W9 DJUMP/TRM:
& Y" @; S  F& l/ e4 O( q% p! RERR2:
MESSG/'请先注册软件。'
) w; E5 V; Y. O$ y# T- N+ n/ xJUMP/TRM:
4 f1 \! O7 S$ w* w8 p1 R2 N
2 Y" q- `2 g' C, h' M- [3 N& NTRM:
0 b. |6 w( \; L! lRETURN
8 C, ^1 S6 o+ _, y" _! Y

zmjacky

学学了。感谢分享

zzh1385

看不明白啊？

240995912

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

baton520

持续关注中，等待好回复