网站安全之ASP程序加密/解密方法大揭密

　　FUNCTION base64Decode(scrambled)
　　if len(scrambled) = 0 then
　　base64Decode = ""
　　exit function
　　end if
　　dim realLen
　　realLen = len(scrambled)
　　do while mid(scrambled, realLen, 1) = "="

　　realLen = realLen - 1
　　loop
　　dim ret, ndx, by4, first, second, third, fourth
　　ret = ""
　　by4 = (realLen \ 4) * 4
　　ndx = 1
　　do while ndx <= by4
　　first = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
　　second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
　　third = Base64DecMap(asc(mid(scrambled, ndx+2, 1)))
　　fourth = Base64DecMap(asc(mid(scrambled, ndx+3, 1)))
　　ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3))
　　ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
　　ret = ret & chr( ((third * 64) AND 255) + (fourth AND 63))

　　ndx = ndx + 4
　　loop
　　if ndx < realLen then
　　first = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
　　second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
　　ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3))
　　if realLen MOD 4 = 3 then
　　third = Base64DecMap(asc(mid(scrambled,ndx+2,1)))
　　ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
　　end if
　　end if
　　base64Decode = ret
　　END FUNCTION
　　'还原单引号、回车换行函数UnEncode
　　function UnEncode(cc)
　　for i = 1 to len(cc)
　　if mid(cc,i,1)<> "水" then
　　if mid(cc,i,1)="加" then
　　temp = """" & temp
　　else
　　temp = Mid(cc, i, 1) + temp
　　end if
　　else
　　temp=newline&temp
　　end if
　　next
　　UnEncode=temp
　　end function