比较注册的过程 (1千字)
以下是比较注册码的过程：注册码“Ｓ“必须为１６位且前两位为“ET“,“EP“,“ES“,“ER“,“ED“之一，前两位决定了你注册的类型是标准的还是超级的等。
实用的注册码如下：
S:ES01234567891234
A:2431415542075383
S:EP01234567891234
A:4860757235651113
S:ET01234567891234
A:0983717441260851
S:ED01234567891234
A:2685502731111191
S:ER01234567891234
A:6144637450459665
*------
PROCEDURE CKID
GCVERSION = 'not'
IF LEN(ALLTRIM(GCNSERIAL)) = 16 AND LEN(ALLTRIM(GCNAUTH)) = 16 AND ;
SUBSTR(GCNSERIAL,1,2) $ 'ET,EP,ES,ER,ED' ******此处比较Ｓ和Ａ是否为１６位字符且Ｓ的首位是否为“ＥＴ．ＥＰ等******
IF GCNAUTH = PADL(SYS(2007,'3' + GCNSERIAL),5,'0') + PADL(SYS(2007,'5' + GCNSERIAL),5,'0') + ;
PADL(SYS(2007,'7' + GCNSERIAL),5,'0') + ;
SUBSTR(SYS(2007,'1' + GCNSERIAL),1,1) ******这里进行比较*****
IF SUBSTR(GCNSERIAL,1,2) = 'ET'
GCVERSION = 'tmp'
ENDIF
IF SUBSTR(GCNSERIAL,1,2) = 'EP'
GCVERSION = 'pro'
ENDIF
IF SUBSTR(GCNSERIAL,1,2) = 'ES'
GCVERSION = 'std'
ENDIF
IF SUBSTR(GCNSERIAL,1,2) = 'ER'
GCVERSION = 'rtl'
ENDIF
IF SUBSTR(GCNSERIAL,1,2) = 'ED'
GCVERSION = 'opt'
ENDIF
ENDIF
ELSE
GCVERSION = 'not'
ENDIF
IF GCVERSION <> 'not'
DO SETOPTIONS
DO CKVOID
ENDIF
RETURN GCVERSION
ENDPROC
*------
有了源程序找注册码很简单，在ＶＦ６命令窗口中就可以完成。做一个注册机如下"ＶＦ"的：
PROCEDURE CKID
GCNSERIAL="ES01234567891234" *****这里你可以自已修改
GCNAUTH = PADL(SYS(2007,'3' + GCNSERIAL),5,'0') + PADL(SYS(2007,'5' + GCNSERIAL),5,'0') + ;
PADL(SYS(2007,'7' + GCNSERIAL),5,'0') + ;
SUBSTR(SYS(2007,'1' + GCNSERIAL),1,1)
messagebox (GCNAUTH )
ENDPROC
