บรรณาธิการของ Script House ได้แบ่งปันรหัสฟังก์ชันการเข้ารหัสและถอดรหัส ASP BASE64 กับคุณมาก่อน อย่างไรก็ตาม มีปัญหาบางประการในกระบวนการใช้งานจริง ตอนนี้ฉันจะจัดระเบียบใหม่
รหัสหลัก:
<% ' ตัวเลือกที่ชัดเจนconst BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"dim newlinedim Base64EncMap(63)dim Base64DecMap(127)'Initialization function PUBLIC SUB initCodecs()' เริ่มต้นตัวแปร newline = "<P>" & chr(13) & chr(10)dim max, idxmax = len(BASE_64_MAP_INIT)for idx = 0 ถึงสูงสุด - 1Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1) ถัดไปสำหรับ idx = 0 ถึงสูงสุด - 1Base64DecMap(ASC(Base64EncMap(idx))) = idxnextEND ฟังก์ชันการเข้ารหัส SUB'Base64 ฟังก์ชั่นสาธารณะ base64Encode(plain)if len(plain) = 0 แล้วbase64Encode = ""exit functionend ifdim ret, ndx, by3, first, second, threeby3 = ( เลน(ธรรมดา) / 3) * 3ndx = 1do ในขณะที่ ndx <= by3first = asc(กลาง(ธรรมดา, ndx+0, 1))วินาที = asc(กลาง(ธรรมดา, ndx+1, 1))ที่สาม = asc(กลาง(ธรรมดา, ndx+2, 1)) ret = ret & Base64EncMap( (แรก / 4) และ 63 )ret = ret & Base64EncMap( ((แรก * 16) และ 48) + ((วินาที / 16) และ 15 ) )ret = ret & Base64EncMap( ((วินาที * 4) และ 60) + ((ที่สาม / 64) และ 3 ) )ret = ret & Base64EncMap( สามและ 63)ndx = ndx + 3loopif by3 < len(ธรรมดา) จากนั้นก่อน = asc(กลาง(ธรรมดา, ndx+0, 1))ret = ret & Base64EncMap( (แรก / 4) และ 63 )if (len(ธรรมดา) MOD 3 ) = 2 จากนั้นวินาที = asc(กลาง(ธรรมดา, ndx+1, 1))ret = ret & Base64EncMap( ( (แรก * 16) และ 48) + ((วินาที / 16) และ 15 ) )ret = ret & Base64EncMap( ((วินาที * 4) และ 60) )elseret = ret & Base64EncMap( (แรก * 16) และ 48)ret = ret '& "="end ifret = ret '& "="end ifbase64Encode = retEND FUNCTION'ฟังก์ชันถอดรหัส Base64 ฟังก์ชั่นสาธารณะ base64Decode (สัญญาณรบกวน) ถ้า len (สัญญาณรบกวน) = 0 thenbase64Decode = ""ออกจากฟังก์ชั่นสิ้นสุด ifdim realLenrealLen = len(สัญญาณรบกวน) ทำในขณะที่กลาง(สัญญาณรบกวน, realLen, 1) = "="realLen = realLen - 1loopdim ret, ndx, by4, อันดับแรก, วินาที, สาม, fourret = ""by4 = (realLen / 4) * 4ndx = 1do ในขณะที่ ndx <= by4first = Base64DecMap(asc(mid(สัญญาณรบกวน, ndx+0, 1)))second = Base64DecMap(asc(กลาง(สัญญาณรบกวน, ndx+1, 1)))third = Base64DecMap(asc(mid(สัญญาณรบกวน, ndx+2, 1) ))ที่สี่ = Base64DecMap(asc(mid(scrambled, ndx+3, 1)))ret = ret & chr( ((วินาที * 4) และ 255) + ((วินาที / 16) และ 3))ret = ret & chr( ((วินาที * 16) และ 255) + ((ที่สาม / 4) และ 15))ret = ret & chr( ((ที่สาม * 64) และ 255) + (ที่สี่และ 63))ndx = ndx + 4loopif ndx < realLen จากนั้นอันดับแรก = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))second = Base64DecMap(asc(mid(scrambled, ndx+1, 1))))ret = ret & chr( ((first * 4) และ 255) + ((วินาที / 16) และ 3))ถ้า realLen MOD 4 = 3 จากนั้นที่สาม = Base64DecMap(asc(mid(scrambled,ndx+2,1)))ret = ret & chr( ((วินาที * 16) AND 255) + ((third / 4) AND 15))end ifend ifbase64Decode = retEND ฟังก์ชัน%>
วิธีใช้:
' เริ่มต้นการโทร initCodecsResponse.Write(base64Encode("The string I want to encrypt in Script Home"))Response.Write(base64Decode("bWFyczIwMTAwMjIw0"))