算法1：
global function string f_regjm2 (string vsn);integer li_1
integer li_l
integer li_r
string ls_snm
string ls_softcode = ""

for li_1 = 1 to len(vsn)
        li_l = integer(left(string(asc(mid(vsn,li_1,1))),1))
        li_r = integer(right(string(asc(mid(vsn,li_1,1))),1))
        ls_snm = ls_snm + right(string(li_l + li_r),1)
next

registryget(g_app.syskey,"SoftCode",regstring!,ls_softcode)
return (trim(ls_softcode) + ls_snm)
end function

算法2:global function string f_regjm (string vsn);string vstr1
string vstr2
string vstr3
integer li_1

for li_1 = 1 to len(vsn)

        if mod(li_1,2) = 0 then
                vstr2 = vstr2 + mid(vsn,li_1,1)
        else
                vstr3 = vstr3 + mid(vsn,li_1,1)
        end if

next

vstr2 = string(long(vstr2) * 2 + 780404)
vstr3 = string(long(vstr3) * 3 + 791004)
vstr1 = vstr2 + vstr3
vstr2 = ""
vstr3 = ""

for li_1 = 1 to len(vstr1)

        if mod(li_1,2) = 0 then
                vstr2 = vstr2 + mid(vstr1,li_1,1)
        else
                vstr3 = vstr3 + mid(vstr1,li_1,1)
        end if

next
vstr1 = "10" + vstr2 + vstr3
想学习算法，有人能讲下上面的算法的意思吗？
最好能详细点，谢谢了

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