很显然，下面的一段代码是判断时间的，时间藏在注册表中，45天后就不能用了。安装时间放在HKEY_CURRENT_USER\'Software\MSWin0MS08Z\ihex1中。


LCDATE = O.GETVALUE(-2147483647,'Software\MSWin0MS08Z','ihex1',')
DO CASE
CASE EMPTY(LCDATE)
    WITH O 
    .SETVALUE(-2147483647,'Software\MSWin0MS08Z','ihex1',SYS(1))
    ENDWITH
CASE DATE() - CTOD(SYS(10,VAL(LCDATE))) > 45
    WITH O 
    .SETVALUE(-2147483647,'Software\MSWin0MS08Z','ihex1','2415750')
    ENDWITH

标 题:比较注册的过程 (1千字)
发信人:小牧童
时 间:2000-6-20 23:43:44
详细信息:

以下是比较注册码的过程：

注册码“Ｓ“必须为１６位且前两位为“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