在这个asp函数中使用了哪种加密形式

Question

下面的asp函数用于加密密码。

Function EncryptPassword(vPwd)
    vTempPwd = ""
    EncryptPassword = ""
    For i = 1 To Len(vPwd)
        vTempPwd = vTempPwd & Chr((255 - Asc(Mid(vPwd, i, i))) / 2)
    Next
    For i = Len(vPwd) + 1 To 10
        vTempPwd = vTempPwd & CStr(i - Len(vPwd))
    Next
    EncryptPassword = vTempPwd
End Function

任何人都可以告诉我这种加密方法是什么？我想使用相同的加密方法是asp.net。