之前腳本之家小編已經為大家分享了幾個asp BASE64加解密函數程式碼，不過實際用的過程中都有這樣或那樣的問題，現在重新整理一個
核心程式碼：
<% ' OPTION EXPLICITconst BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"dim newlinedim Base64EncMap(63)dim Base6443(F)5474564563)d初始化變數newline = "<P>" & chr(13) & chr(10)dim max, idxmax = len(BASE_64_MAP_INIT)for idx = 0 to max - 1Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + nextfor idx = 0 to max - 1Base64DecMap(ASC(Base64EncMap(idx))) = idxnextEND SUB'Base64加密函數PUBLIC FUNCTION base64Encode(plain)if len(plain) = 0 thenbase64Encode = ""exit functionend if len(plain) = 0 thenbase64Encode = ""exit functionend if ifdim rd, ndx, by len(plain) / 3) * 3ndx = 1do while ndx <= by3first = asc(mid(plain, ndx+0, 1))second = asc(mid(plain, ndx+1, 1))third = asc(mid(plain, ndx+ 2, 1))ret = ret & Base64EncMap( (first / 4) AND 63 )ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second / 16) AND 15 ) )ret = ret & Base64EncMap( ((second * 4) AND 60) + ((third / 64) AND 3 ) ) ANDret = ret & Base64EncMap( third AND 63)ndx = ndx + 3loopif by3 < len(plain) thenfirst = asc(mid(plain, ndx+0, 1))ret = ret & Base64EncMap( (first / 4) AND 63 )if (len(plain) MOD 3 ) = 2 thensecond = asc (mid(plain, ndx+1, 1))ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second / 16) AND 15 ) )ret = ret & Base64EncMap( ((second * 4) AND 60) )elseret = ret & Base64EncMap( (first * 16) AND 48) ret = ret '& "="end ifret = ret '& "="end ifbase64Encode = retEND FUNCTION'Base64解密函數PUBLIC FUNCTION base64Decode(scrambled)if len(scrambled) = 0 thenbase64Decode = ""exit functionend ifdim realLenrealLen = len(scramcode = ""exit functionend ifdim realLenrealLen = len(scrambled)doble, midrambleen] realLen - 1loopdim ret, ndx, by4, first, second, third, fourthret = ""by4 = (realLen / 4) * 4ndx = 1do while ndx <= by4first = Base64DecMap(asc(mid(scrambled, ndx+) 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 + 4loopif ndx < realLen thenfirst = 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 thenthird = Base64DecMap(asc(mid(scrambled,ndx+2,1)))ret = ret & chr( ((second * 16) AND 255) + ((third / 4) AND 15))end ifend ifbase64Decode = ENDEND FUNCTION%>
使用方法：
' 初始化call initCodecsResponse.Write(base64Encode("腳本之家之我要加密的字串"))Response.Write(base64Decode("bWFyczIwMTAwMjIw0"))