那位高手可以把这个ASP加密代码多加几行注释

ndison888 2005-12-06 12:30:14

Function toAscii(str_base64) '对输入参数进行解密，并返回解密后的字符串，即用户的密码原型
dim int_array_count

int_array_count = len(trim(str_base64)) / 4
for i = 0 to int_array_count - 1
array_temp0 = mid(str_base64 ,(i * 4 + 1) ,4)
for j = 1 to len(array_temp0) '此循环将0变量中的字符转换为位数为8倍数的二进制字符，并赋值到1变量
array_temp2 = Asc(Mid(array_temp0 ,j ,1))
if array_temp2 < 123 and array_temp2 > 96 then
array_temp1 = array_temp1 & TenturnTwo((array_temp2 - 97) ,6)
elseif array_temp2 < 91 and array_temp2 > 64 then
array_temp1 = array_temp1 & TenturnTwo((array_temp2 - 39) ,6)
elseif array_temp2 < 58 and array_temp2 > 47 then
array_temp1 = array_temp1 & TenturnTwo((array_temp2 + 4) ,6)
elseif array_temp2 = 35 then
array_temp1 = array_temp1 & TenturnTwo(62 ,6)
elseif array_temp2 = 36 then
array_temp1 = array_temp1 & TenturnTwo(63 ,6)
end if
next
for k = 0 to 2
if mid(array_temp1 ,(k * 8 + 1) ,8) <> "00000000" then
array_temp3 = array_temp3 & chr(cint(TwoTurnTen(mid(array_temp1 ,(k * 8 + 1) ,8))))
end if
next
array_temp1 = ""
next
toascii = torot13(trim(array_temp3))
End Function

...全文