一个PB程序的注册部分，懂PB的兄弟练手吧，尝试自己作个算法注册机

zhangjf0001

注册程序:
call super::clicked;
string ls_registerno
long ll_version
boolean ls_network = false
boolean ls_distributed = false


ls_registerno = trim(parent.em_register.text)

if len(ls_registerno) <> 10 then
        messagebox(gvar.apptitle,"输入的产品注册号必须为十位的数字，请重新输入！")
        parent.em_register.setfocus()
        return
end if

if not gstart.of_checkregisterno(ls_registerno) then
        messagebox(gvar.apptitle,"输入的产品注册号不对，请重新输入！")
        parent.em_register.setfocus()
        return
else
        gvar.registerno = ls_registerno
        ll_version = gstart.of_getversion(ls_registerno)

        if ll_version = 2 then
                ls_distributed = true
                ls_network = true
        else

                if ll_version = 1 then
                        ls_distributed = false
                        ls_network = true
                else
                        ls_distributed = false
                        ls_network = false
                end if

        end if

        ls_registerno = gfunc.of_str_encrypt(ls_registerno)
        gfunc.pub_f_put_sysvar("Register_No",ls_registerno)
end if

gstart.of_checkversion()
messagebox(gvar.apptitle,"系统注册成功！")
closewithreturn(parent,"1")
return

jiller

你贴这个支离破碎的东西干吗？ ，
几个关键函数代码你都没贴

野猫III

呵呵。。。先支持学习下。。。

xingbing

PB程序程序注册，关键是函数。

caterpilla

只是框架,具体函数如何处理的没有

hs55555

要是这么容易就破解了,那才是奇迹,一般用PB编程的软件,都是专用软件!!!没有那么容易的!!!/:014