现有一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
%>
