dim newline dim Base64EncMap(63) dim Base64DecMap(127) dim inp,hu,encode call initCodecs '初始化 inp = "<WORD处理后的asp代码>" '将要保护的asp代码用WORD处理，然后填在此处 hu= base64Encode(inp) '调用函数base64Encode进行加密，得到密文hu Response.Write(hu) '显示密文 PUBLIC SUB initCodecs() '初始化函数initCodecs newline = "<P>" & chr(13) & chr(10) dim max, idx max = len(BASE_64_MAP_INIT) for idx = 0 to max - 1 Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1) next for idx = 0 to max - 1 Base64DecMap(ASC(Base64EncMap(idx))) = idx
精品推荐