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(已知)

我不知道怎么逆过来写注册机
请大虾帮我看看~~指点指点~~~
管理员请收下留情~~~~

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！