请问下面这一段函数是什么意思?

Question

Public Function ReturnAscii(ByVal ls_in As String) As String
    Dim ls_all As String
    Dim ls_tmp As String
    Dim LI_LEN As Integer
    
    For i = 0 To Len(ls_in) - 1
        ls_tmp = Asc(Mid(ls_in, i + 1, 1))
        If ls_all <> "" Then
            ls_all = CStr(CLng(ls_all) + CLng(ls_tmp) * (10 * i * i + 2 * i + 1))
        Else
            ls_all = CStr(CLng(ls_tmp) * (10 * i * i + 2 * i + 1))
        End If
    Next
    
    ReturnAscii = ls_all
End Function

Answer 1

to_char()与to_number()都是类型转换函数

Answer 2

看不出有什么特别意思，这是oracle中一个把字符串变为一堆数字串的过程，to_number(ls_tmp)*(10*i*i+2*i+1)是他自己的一定算法。