这儿好热闹呀~~真是个好地方。软件在这里下载,是个bulk emailer http://www.internetmarketers.net/ipl/ea98nl.exe
我用Sice拦不住!
大家帮帮我!!
谢了
- 标 题:这是用vf遍的,我用Sice拦不住! (152字)
- 作 者:笨狗狗知秋
- 时 间:2000-6-17 19:38:56
- 链 接:http://bbs.pediy.com
这儿好热闹呀~~真是个好地方。软件在这里下载,是个bulk emailer http://www.internetmarketers.net/ipl/ea98nl.exe
我用Sice拦不住!
大家帮帮我!!
谢了
略
很显然,下面的一段代码是判断时间的,时间藏在注册表中,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
以下是比较注册码的过程:
注册码“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