-
-
[原创]PB8 CM 欢迎大家来搞
-
发表于: 2013-4-12 10:31
-
某商业软件注册算法，提取出来的！
和大家一起分享一下吧。。。。。。
和大家一起分享一下吧。。。。。。
open(w_pass_input)
ls_serial = message.stringparm
ls_serial = trim(ls_serial)
IF len(ls_serial) = 0 THEN RETURN
IF inv_serial.of_check(ls_serial) = 1 THEN //4
li_ver = inv_serial.of_getversion(ls_serial)
ld_date = inv_serial.of_getdate(ls_serial)
IF li_ver = 5 AND ld_date > date("2000-1-1") AND ld_date < date("2100-1-1") THEN //7
COMMIT USING sqlca;
ls_com = inv_serial.of_getname(ls_serial)
ls_key = "HKEY_LOCAL_MACHINE\SOFTWARE\INFOEASY\易胜特零售配送版 2003"
li_rtn = registryset(ls_key,"serial",regstring!,ls_serial)
IF li_rtn <> 1 THEN //12
messagebox("系统提示","注册失败！")
RETURN
ELSE //12
messagebox("系统提示","注册成功！")
END IF //12
ELSE //7
messagebox("系统提示","该序列号非法，注册失败！")
END IF //7
ELSE //4
messagebox("系统提示","非法的序列号，注册失败！")
END IF //4
[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课
|
|
|---|---|
