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 to max - 1Base64EncMap(idx) = Mid(BASE_64_MAP_INIT, idx + 1, 1) nextfor idx = 0 ～ 最大 - 1Base64DecMap(ASC(Base64EncMap(idx))) = idxnextEND SUB'Base64 暗号化関数 PUBLIC FUNCTIONbase64Encode(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) + ((2 番目 / 16) AND 15 ) )ret = ret & Base64EncMap( ((2 番目 * 4) AND 60) + ((3 番目 / 64) AND 3 ) )ret = ret & Base64EncMap(3 番目 AND 63)ndx = ndx + 3loopif by3 < len(プレーン) thenfirst = asc(mid(プレーン, ndx+0, 1))ret = ret & Base64EncMap( (first / 4) AND 63 )if (len(plain) MOD 3 ) = 2 then Second = asc(mid(plain, ndx+1, 1))ret = ret & Base64EncMap( ( (最初の * 16) AND 48) + ((2 番目 / 16) AND 15 ) )ret = ret & Base64EncMap( ((2 番目 * 4) AND 60) )elseret = ret & Base64EncMap( (最初 * 16) AND 48)ret = ret '& "="end ifret = ret '& "="end ifbase64Encode = retEND FUNCTION'Base64 復号関数PUBLIC FUNCTIONbase64Decode(スクランブル)if len(スクランブル) = 0 thenbase64Decode = ""関数終了 ifdim realLenrealLen = len(スクランブル)do while Mid(scrambled, realLen, 1) = "="realLen = realLen - 1loopdim ret, ndx, by4, first, Second, third, fourret = ""by4 = (realLen / 4) * 4ndx = 1do while ndx <= by4first = Base64DecMap(asc(mid(スクランブル, ndx+0, 1)))2 番目 = Base64DecMap(asc(mid(スクランブル, ndx+1, 1)))3 番目 = Base64DecMap(asc(mid(スクランブル, ndx+2, 1) ))4 番目 = Base64DecMap(asc(mid(スクランブル, ndx+3, 1)))ret = ret & chr( ((最初の * 4) AND 255) + ((2 番目 / 16) AND 3))ret = ret & chr( ((2 番目 * 16) AND 255) + ((3 番目 / 4) AND 15))ret = ret & chr( ((3 番目 * 64) AND 255) + (4 番目 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) + ((秒 / 16) AND 3))if realLen MOD 4 = 3 then third = Base64DecMap(asc(mid(scrambled,ndx+2,1)))ret = ret & chr( ((2 番目 * 16) AND 255) + ((3 番目 / 4) AND 15))end ifend ifbase64Decode = retEND機能%>
使用方法:
' 呼び出しの初期化 initCodecsResponse.Write(base64Encode("スクリプト ホームで暗号化したい文字列"))Response.Write(base64Decode("bWFyczIwMTAwMjIw0"))