江湖救急啊~~ 谁能帮帮小弟？

[wlhtake]

下面是power builder的一段语句，涉及到3各字符串的转化，麻烦哪位大哥帮我用VB.NET的语法写出来，定将感激不尽！！！！！ 我在asc、reverse这几个函数面前束手无策啦
string ls_temp1, ls_temp2, ls_temp3
int i

ls_temp1 = as_pass

do while len(ls_temp1) > 0
ls_temp2 += string(char(asc(ls_temp1) - len(ls_temp1) * 2))
ls_temp1 = right(ls_temp1, len(ls_temp1) - 1)
loop


ls_temp2 = reverse(ls_temp2)

for i = 1 to len(ls_temp2)
ls_temp3 = reverse(ls_temp3)
ls_temp3 += mid(ls_temp2, i, 1)
next

as_pass = ls_temp3

[hbzxf]

虽然我不会，但我可以帮你顶