求助Grip的加密方法

真的汉子

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

danyfer

通过条用子程序来完成。
N01:
CALL/'COMPUTER',DME
" m" ^; {8 H' A/ J+ kIF/DME==0,MESSG/'软件只允许在公司内部使用.'
IF/DME==0,JUMP/TRM:
% j5 C% d# n- M- a4 ^" v
PROC/DME
9 H; O7 j5 H+ F8 Y# LNUMBER/STRLEN,ASCCOM(20),CHECK,QUEREN
STRING/COMNAM(20),PASNM(100),PASS(1000,100),PATH(100)
0 v: @0 ~1 H. t+ G- }ST1:
: j  o& w' \# U8 A( K$ JCOMNAM=ENVVAR/'UGS_LICENSE_SERVER',ASK,IFERR,ERR1:
PATH=ENVVAR/'UGII_USER_DIR',ASK,IFERR,ERR1:
STRLEN=LENF(COMNAM)
+ l5 G& H' c& B. wCOMNAM=SUBSTR(COMNAM,7,STRLEN-6)

3 u! o% I7 e, L# v% z, BDO/ST2:,I,1,STRLEN-6
ASCCOM(I)=ASCII(COMNAM,I)
IF/ASCCOM(I)>=97 AND  ASCCOM(I)<=122,ASCCOM(I)=ASCCOM(I)-32
7 i* R- s  Q1 ~8 M3 M+ V3 ]/ D4 |PASNM=PASNM+ISTR(ASCCOM(I))
. @+ D% Y7 e( v& ]7 z, ^9 C5 \2 N: a, CST2:
1 y1 n4 P3 q6 b) w' T; DST3:
2 T$ f0 B& ]" |' E, rFETCH/TXT,1,PATH+'startup\LICENSE.DAT',IFERR,ERR2:
5 B" k" W3 c7 R8 b2 G5 cRESET/1
" m4 r4 F! v! Z4 o$ H2 V  q) J
$ [- X4 Y) L+ x6 \; Y# LDO/ST4:,I,1,1000
; L3 d$ y0 t6 b: \READ/1,IFEND,ST5:,PASS(I)
CHECK=CMPSTR(PASNM,PASS(I))
IF/CHECK==0,DME=1
ST4:
5 ~$ K3 w, I7 B2 w3 u  a$ y7 EST5:
FTERM/TXT,1
JUMP/TRM:

+ c! a; g  P# ~ERR1:
) j/ |% n; i# }4 y; Z" ]MESSG/'请正确安装UG软件。'
4 `% Q- _- q' i! t- F' l2 eJUMP/TRM:
; P5 q9 C/ f3 z3 q8 oERR2:
MESSG/'请先注册软件。'
- {5 |1 G8 o. q* ^4 g" W+ _0 N& RJUMP/TRM:

TRM:
RETURN
( v! G6 `3 A& `* E
' Q% w7 p$ s2 b! }1 Z

zmjacky

学学了。感谢分享

zzh1385

看不明白啊？

240995912

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

baton520

持续关注中，等待好回复