首页
社区
课程
招聘
[旧帖] [求助]帮忙看个算法 0.00雪花
发表于: 2007-5-12 11:18 3590

[旧帖] [求助]帮忙看个算法 0.00雪花

2007-5-12 11:18
3590
是pb语言。哪位可以用vb描述出来么(或者vc数学描述也可以)
double pin = 3.14
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)) * 3.14)
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) * 3.14)
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

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

收藏
免费 0
支持
分享
最新回复 (4)
雪    币: 204
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
double pin = 3.14
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)) * 3.14)
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) * 3.14)
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_zipdate + ls_key)
2007-5-12 11:41
0
雪    币: 204
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
谢谢大家,给点提示。我写个注册机
2007-5-12 11:42
0
雪    币: 314
活跃值: (10)
能力值: ( LV12,RANK:570 )
在线值:
发帖
回帖
粉丝
4
占个位置!其实看过去好象很简单的样子!不过现在比较忙.不好意思了!
2007-7-4 16:21
0
雪    币: 203
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
trim(as_userid)
rand(1000)
mid(as_sys_name,i,1)
....
这些都是pb的函数,完成的功能从函数名就能推测到。
2007-7-8 10:13
0
游客
登录 | 注册 方可回帖
返回
//