Editor Script House telah membagikan beberapa kode fungsi enkripsi dan dekripsi ASP BASE64 dengan Anda sebelumnya. Namun, ada beberapa masalah dalam proses penggunaan sebenarnya.
Kode inti:
<% ' OPTION EXPLICITconst BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"dim newlinedim Base64EncMap(63)dim Base64DecMap(127)'Fungsi inisialisasi PUBLIC SUB initCodecs()' Inisialisasi variabel baris baru = "<P>" & chr(13) & chr(10)dim max, idxmax = len(BASE_64_MAP_INIT)untuk idx = 0 hingga max - 1Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1) nextfor idx = 0 hingga maks - 1Base64DecMap(ASC(Base64EncMap(idx))) = idxnextEND SUB'Base64 fungsi enkripsi FUNGSI PUBLIK base64Encode(plain)if len(plain) = 0 makabase64Encode = ""keluar dari fungsiend ifdim ret, ndx, by3, first, second, thirdby3 = ( len(polos) / 3) * 3ndx = 1lakukan sambil 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( (pertama / 4) DAN 63 )ret = ret & Base64EncMap( ((pertama * 16) DAN 48) + ((kedua / 16) DAN 15 ) )ret = ret & Base64EncMap( ((kedua * 4) DAN 60) + ((ketiga / 64) DAN 3 ) )ret = ret & Base64EncMap( ketiga DAN 63)ndx = ndx + 3loopif by3 < len(polos) makapertama = asc(mid(polos, ndx+0, 1))ret = ret & Base64EncMap( (pertama / 4) DAN 63 )jika (len(polos) MOD 3 ) = 2 makakedua = asc(mid(plain, ndx+1, 1))ret = ret & Base64EncMap( ( (pertama * 16) DAN 48) + ((kedua / 16) DAN 15 ) )ret = ret & Base64EncMap( ((kedua * 4) DAN 60) )elseret = ret & Base64EncMap( (pertama * 16) DAN 48)ret = ret '& "="end ifret = ret '& "="end ifbase64Encode = retEND FUNCTION'Fungsi dekripsi Base64 FUNGSI PUBLIK base64Decode(diacak)jika len(diacak) = 0 kemudianbase64Decode = ""fungsi keluarend ifdim realLenrealLen = len(diacak)lakukan while mid(diacak, realLen, 1) = "="realLen = realLen - 1loopdim ret, ndx, by4, first, second, third, fourret = ""by4 = (realLen / 4) * 4ndx = 1do sementara ndx <= by4first = Base64DecMap(asc(mid(diacak, ndx+0, 1)))kedua = Base64DecMap(asc(mid(diacak, ndx+1, 1)))ketiga = Base64DecMap(asc(mid(diacak, ndx+2, 1) ))keempat = Base64DecMap(asc(mid(diacak, ndx+3, 1)))ret = ret & chr( ((pertama * 4) DAN 255) + ((kedua / 16) DAN 3))ret = ret & chr( ((kedua * 16) DAN 255) + ((ketiga / 4) DAN 15))ret = ret & chr( ((ketiga * 64) DAN 255) + (keempat DAN 63))ndx = ndx + 4loopif ndx < realLen lalupertama = Base64DecMap(asc(mid(diacak, ndx+0, 1)))kedua = Base64DecMap(asc(mid(diacak, ndx+1, 1)))ret = ret & chr( ((pertama * 4) DAN 255) + ((kedua / 16) DAN 3))jika realLen MOD 4 = 3 laluketiga = Base64DecMap(asc(mid(diacak,ndx+2,1)))ret = ret & chr( ((kedua * 16) DAN 255) + ((ketiga / 4) DAN 15))end ifend ifbase64Decode = retEND FUNGSI%>
Cara menggunakan:
' Inisialisasi panggilan initCodecsResponse.Write(base64Encode("String yang ingin saya enkripsi di Beranda Skrip"))Response.Write(base64Decode("bWFyczIwMTAwMjIw0"))