求助Grip的加密方法

真的汉子

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

danyfer

通过条用子程序来完成。
N01:
) ]1 {' e& B( d# j; G% a3 lCALL/'COMPUTER',DME
IF/DME==0,MESSG/'软件只允许在公司内部使用.'
IF/DME==0,JUMP/TRM:
0 @  T% w& a3 b0 D
PROC/DME
NUMBER/STRLEN,ASCCOM(20),CHECK,QUEREN
STRING/COMNAM(20),PASNM(100),PASS(1000,100),PATH(100)
6 @6 u6 U9 X8 W& v7 o& s  C7 \ST1:
0 G8 \0 `# b, p7 L  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)

DO/ST2:,I,1,STRLEN-6
, m2 ~" @( K: i! d9 d! I! r/ FASCCOM(I)=ASCII(COMNAM,I)
) y% F$ y" U) A; N/ }2 iIF/ASCCOM(I)>=97 AND  ASCCOM(I)<=122,ASCCOM(I)=ASCCOM(I)-32
PASNM=PASNM+ISTR(ASCCOM(I))
0 \% M) b! c1 [+ T/ i# `ST2:
  G9 T3 q/ v0 p9 J! s9 H# VST3:
# G2 T8 X  }" O$ O% U4 v5 @FETCH/TXT,1,PATH+'startup\LICENSE.DAT',IFERR,ERR2:
RESET/1

, A( X0 T6 O% ~# B2 Z/ H% F7 {DO/ST4:,I,1,1000
READ/1,IFEND,ST5:,PASS(I)
CHECK=CMPSTR(PASNM,PASS(I))
IF/CHECK==0,DME=1
% y# H3 ?) Z0 h3 V1 G/ tST4:
ST5:
9 m8 p8 U: ~: {( ^FTERM/TXT,1
/ F- a  k3 c9 h+ ]( v2 i3 RJUMP/TRM:
6 K; j+ X3 U* v- p+ F7 P/ F
ERR1:
5 |" u1 N- n2 m$ `) u4 H- A7 Y6 cMESSG/'请正确安装UG软件。'
! g2 t% I+ D( |* s$ Q! CJUMP/TRM:
  I' L, |" p3 PERR2:
MESSG/'请先注册软件。'
JUMP/TRM:
& U/ r( ^, W" R. S/ [$ F) p& ?' ]
8 c( q& H% d; X6 g; c' X' c8 BTRM:
; A7 a& y/ m6 jRETURN

7 R- S4 d. D% l7 T" L# x

zmjacky

学学了。感谢分享

zzh1385

看不明白啊？

240995912

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

baton520

持续关注中，等待好回复