现有一ASP的加密代码，求对应原解密代码！

<%
password="abc"
li_ch=""
ls_result = ""
for li_pos = 1 to len(password)
    li_ch = asc(mid(password,li_pos,1))
    if li_pos mod 6=1 then
            li_ch = li_ch + asc("z") + li_pos
            if li_ch mod 128 = 0 then
                li_ch = asc("z") - li_pos
            end if
    elseif li_pos mod 6=2 THEN
            li_ch = li_ch + asc("Y") + li_pos
            if li_ch mod 128 = 0 then
                li_ch = asc("Y") - li_pos
            end if
    elseif li_pos mod 6=3 THEN
            li_ch = li_ch + asc("1") + li_pos
            if li_ch mod 128 = 0 then
                li_ch = asc("1") - li_pos
            end if
    elseif li_pos mod 6=4 THEN
            li_ch = li_ch + asc("@") + li_pos
            if li_ch mod 128 = 0 then
                li_ch = asc("@") - li_pos
            end if
    elseif li_pos mod 6=5 THEN
            li_ch = li_ch + asc("!") + li_pos
            if li_ch mod 128 = 0 then
                li_ch = asc("!") - li_pos
            end if
    elseif li_pos mod 6=0 THEN
            li_ch = li_ch + asc("6") + li_pos
            if li_ch mod 128 = 0 then
                li_ch = asc("6") - li_pos
            end if
    end IF
    li_ch = li_ch mod 128
    li_ch = li_ch mod 26 + 65
    ls_result = ls_result + trim(chr(li_ch))
next
response.write "密码="&ls_result
%>