找出算法，可不会写出注册机，谁能帮我写出！谢谢!zy510soft@163.com
string ls_serialno
string ls_name
string ls_code
string ls_prestr
long ll_serialno
long ll_pwd
long ll_prestrasc
integer li_hhpos
integer li_cnt
integer li_len

if isnull(as_username) or isnull(as_serialno)then
   return  ""
end if

ls_serialno=as_serialno
ls_name=as_username
ls_hhpos=pos(ls_serialno,"-")
ls_prestr=left(ls_serialno,li_hhpos-1)
li_len=len(ls_prestr)

for li_cnt=1 to li_len
    ll_prestrasc +=asc(mid(ls_prestr,li_cnt,1))
next

ls_serialno=mid(ls_serialno,li_hhpos+1)
ll_serialno=ll_prestrasc + long(left(ls_serialno,5)) + long(mid(ls_serialno,7,5)) + long(right(ls_serialno,5))
ll_pwd=ll_serialno + al_pwd
ls_code=my_encstring(ls_nmae,ll_pwd)
return ls_code

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)