求大侠帮忙分析一下这段pb代码

flypiao

get_registration_key

double pin = 1.9670926551
string ls_no
string ls_name
string ls_key
double ll_no
double ll_name
double ll_system
double ll_enddate
double ll_diskid
double ll_key
integer i
string ls_zipdate


ls_key = string((rand(1000) * rand(1000)) * 1.9670926551)
ls_key = left(ls_key,8)

if isnull(as_serial_no) then
        return ls_key
end if

if trim(as_serial_no) = "" then
        return ls_key
end if

if isnull(as_company_name) then
        return ls_key
end if

if trim(as_company_name) = "" then
        return ls_key
end if

ls_zipdate = f_zip_date(as_enddate)
as_serial_no = as_serial_no + "3.0"

for i = 1 to len(as_serial_no)
        ll_no = ll_no + logten(asc(mid(as_serial_no,i,1)) / i + i)
next

for i = 1 to len(as_company_name)
        ll_name = ll_name + logten(asc(mid(as_company_name,i,1)) / i + i)
next

for i = 1 to len(as_sys_name)
        ll_system = ll_system + logten(asc(mid(as_sys_name,i,1)) / i + i)
next

for i = 1 to len(as_enddate)
        ll_enddate = ll_enddate + logten(asc(mid(as_enddate,i,1)) / i + i)
next

for i = 1 to len(as_diskid)
        ll_diskid = ll_diskid + logten(asc(mid(as_diskid,i,1)) / i + i)
next

ll_key = logten((ll_no + ll_name + ll_system + ll_enddate + ll_diskid) * 1.9670926551)
ls_key = string(ll_key)
i = pos(ls_key,".")

get_registration_password

double pin = 1.9670926551
string ls_no
string ls_name
string ls_key
double ll_no
double ll_name
double ll_key
integer i


ls_key = string((rand(1000) * rand(1000)) * 1.9670926551)
ls_key = left(ls_key,8)

if isnull(as_userid) then
        return ls_key
end if

if trim(as_userid) = "" then
        return ls_key
end if

if isnull(as_password) then
        as_password = ""
end if

for i = 1 to len(as_userid)
        ll_no = ll_no + logten(asc(mid(as_userid,i,1)) / i)
next

for i = 1 to len(as_password)
        ll_name = ll_name + logten(asc(mid(as_password,i,1)) / i)
next

ll_key = logten((ll_no + ll_name) * 1.9670926551)
ls_key = string(ll_key)
i = pos(ls_key,".")

if i > 0 then
        ls_key = replace(ls_key,i,1,"")
end if

ls_key = left(ls_key,8)
return ls_key

flypiao

求大侠们帮忙分析一下吧，谢谢/:014

flypiao

自己顶上去，让大侠们看到/:002

飘云

对照PB语法，翻译成你熟悉的语言。。这样有提高

flypiao

vb的我稍微能看懂一点
飘云大大能不能帮忙翻译成vb的？谢谢！/:014

crackiss

我是菜鸟我克不会啊  帮帮你顶下

zxc

/:010 没有人帮你分析，应该需要相互帮助才对啊，
对我们菜鸟更应该如此