Script House의 편집자는 이전에 여러 ASP BASE64 암호화 및 복호화 기능 코드를 공유했습니다. 그러나 실제 사용 과정에는 몇 가지 문제가 있습니다.
핵심 코드:
<% ' OPTION EXPLICITconst BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"dim newlinedim Base64EncMap(63)dim Base64DecMap(127)'초기화 함수 PUBLIC SUB initCodecs()' 변수 초기화 newline = "<P>" & chr(13) & chr(10)dim max, idxmax = len(BASE_64_MAP_INIT)for idx = 0 ~ max - 1Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1) nextfor idx = 0 ~ 최대 - 1Base64DecMap(ASC(Base64EncMap(idx))) = idxnextEND SUB'Base64 암호화 함수 PUBLIC FUNCTION base64Encode(plain)if len(plain) = 0 thenbase64Encode = ""exit functionend ifdim ret, ndx, by3, first, second, thirdby3 = ( len(일반) / 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( (첫 번째 / 4) AND 63 )ret = ret & Base64EncMap( ((첫 번째 * 16) AND 48) + ((두 번째 / 16) AND 15 ) )ret = ret & Base64EncMap( ((두 번째 * 4) AND 60) + ((세 번째 / 64) AND 3 ) )ret = ret & Base64EncMap( 세 번째 AND 63)ndx = ndx + 3loopif by3 < len(plain) thenfirst = asc(mid(plain, ndx+0, 1))ret = ret & Base64EncMap( (첫 번째 / 4) AND 63 )if (len(plain) MOD 3 ) = 2 thensecond = asc(mid(plain, ndx+1, 1))ret = ret & Base64EncMap( ( (첫 번째 * 16) AND 48) + ((두 번째 / 16) AND 15 ) )ret = ret & Base64EncMap( ((두 번째 * 4) AND 60) )elseret = ret & Base64EncMap( (첫 번째 * 16) AND 48)ret = ret '& "="end ifret = ret '& "="end ifbase64Encode = retEND FUNCTION'Base64 복호화 함수 공용 기능 base64Decode(스크램블)if len(스크램블) = 0 thenbase64Decode = ""exit functionend ifdim realLenrealLen = len(scrambled)do while mid(scrambled, realLen, 1) = "="realLen = realLen - 1loopdim ret, ndx, by4, 첫 번째, 두 번째, 세 번째, 네 번째ret = ""by4 = (realLen / 4) * 4ndx = 1do while ndx <= by4first = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))third = Base64DecMap(asc(mid(scrambled, ndx+2, 1) ))넷째 = Base64DecMap(asc(mid(스크램블됨, ndx+3, 1)))ret = ret & chr( ((첫 번째 * 4) AND 255) + ((두 번째 / 16) AND 3))ret = ret & chr( ((두 번째 * 16) AND 255) + ((세 번째 / 4) AND 15))ret = ret & chr( ((세 번째 * 64) AND 255) + (네 번째 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( ((첫 번째 * 4) AND 255) + ((초 / 16) AND 3)) 만약 realLen MOD 4 = 3 thenthird = Base64DecMap(asc(mid(scrambled,ndx+2,1)))ret = ret & chr( ((두 번째 * 16) AND 255) + ((세 번째 / 4) AND 15))end ifend ifbase64Decode = retEND 기능%>
사용 방법:
' 호출 초기화 initCodecsResponse.Write(base64Encode("스크립트 홈에서 암호화하려는 문자열"))Response.Write(base64Decode("bWFyczIwMTAwMjIw0"))