• 标 题:这是用vf遍的,我用Sice拦不住! (152字)
  • 作 者:笨狗狗知秋
  • 时 间:2000-6-17 19:38:56
  • 链 接:http://bbs.pediy.com

这儿好热闹呀~~真是个好地方。软件在这里下载,是个bulk emailer http://www.internetmarketers.net/ipl/ea98nl.exe

我用Sice拦不住!
大家帮帮我!!
谢了

  • 标 题:本人不懂VF,我把它UNFOX,请VF高手分析。 (44千字)
  • 作 者:mmxm
  • 时 间:2000-6-19 17:18:43
  • 链 接:http://bbs.pediy.com

  • 标 题:判断时间的 (479字)
  • 作 者:郭大志
  • 时 间:2000-6-19 18:36:33
  • 链 接:http://bbs.pediy.com

很显然,下面的一段代码是判断时间的,时间藏在注册表中,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
  • 链 接:http://bbs.pediy.com

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

注册码“S“必须为16位且前两位为“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'    ******此处比较S和A是否为16位字符且S的首位是否为“ET.EP等******
    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
*------


有了源程序找注册码很简单,在VF6命令窗口中就可以完成。做一个注册机如下"VF"的:
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