-
-
[求助]PB程序算法求助
-
发表于:
2010-3-7 22:51
5321
-
得到代码如下
IF left(PARENT.sle_2.text,2) = right(PARENT.sle_3.text,2) AND left(right(PARENT.sle_2.text,8),2) = right(left(PARENT.sle_3.text,4),2) AND left(right(PARENT.sle_2.text,4),2) = left(PARENT.sle_3.text,2) AND right(PARENT.sle_2.text,2) = right(left(PARENT.sle_3.text,6),2) THEN //10
li_len_t = len(PARENT.sle_2.text)
ls_zc_hao_t = right(PARENT.sle_2.text,li_len_t - 2)
li_len_t = len(ls_zc_hao_t)
ls_zc_hao_t = left(ls_zc_hao_t,li_len_t - 8)
ELSE //10
messagebox(PARENT.title,"请录入正确的 * 用户名 * 与 * 注册号 * ")
RETURN
END IF //10
IF string((dec(PARENT.sle_1.text) - dec(156425414)) / dec(126),"#####################") = string((dec(ls_zc_hao_t) - dec(901347)) / li_edition,"#####################") THEN //18
PARENT.wfc_update_dh()
update sys_install set zc_id =:ls_zc_hao_t USING sqlca;
COMMIT USING sqlca;
registryset("HKEY_CURRENT_USER\software\Dart Communications\PowerTCP\License","h",regstring!,string(li_edition))
messagebox(PARENT.title,"注册成功 !!!")
HALT
ELSE //18
messagebox(PARENT.title,"注册号不正确 !!!")
END IF //18
RETURN
PARENT.sle_2.text为要计算的注册号,PARENT.sle_3.text为填写注册的用户名
PARENT.sle_1.text为机器码(已知),li_edition=274.0(已知)
我不知道怎么逆过来写注册机
请大虾帮我看看~~指点指点~~~
管理员请收下留情~~~~
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课