核心代码：


<
选项显式
const base_64_map_init =abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789 + /
昏暗的换行符
昏暗的base64encmap（63）
昏暗的base64decmap（127）
初始化函数
公共子initcodecs（）
初始化变量
换行符= CHR CHR（13）（10）
昏暗的最大编号
马克斯= Len（base_64_map_init）
对于IDX = 0最大1
base64encmap（IDX）=中（base_64_map_init，idx + 1, 1）
下一个
对于IDX = 0最大1
base64decmap（ASC（base64encmap（IDX）））=结果
下一个
端子
Base64加密功能
公共功能的Base64编码（平原）
如果莱恩（平原）= 0然后
Base64编码=
退出功能
最后如果
昏暗的网编，第一、二、三、第三
3 =（Len（平原） 3）* 3
诺德斯= 1
做当编3
第一= ASC（MID（平原、编+ 0, 1））
Second = ASC (mid (plain, ndx+1, 1))
第三= ASC（MID（平原、编+ 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）
编编+ 3 =
环
如果3 < len（平原）然后
第一= ASC（MID（平原、编+ 0, 1））
ret = RET base64encmap（（第一 4）和63）
如果（莱恩（平原）mod 3）= 2然后
二= ASC（MID（平原、编+ 1, 1））
ret = RET base64encmap (((((第一* 16）和48）+（（二 16）和15））
ret = RET base64encmap ((((((二* 4）和60））
其他的
ret = RET base64encmap（（1×16）和48）
=
最后如果
=
最后如果
Base64编码= ret
端功能
Base64解密功能
公共功能base64decode（炒）
如果莱恩（被炒）= 0
base64decode =
退出功能
最后如果
昏暗的reallen
reallen = Len（炒）
而中期（炒，reallen，1）= ==
reallen = reallen - 1
环
昏暗的网编，4，第一，二，第三，第四

4 =（reallen 4）* 4
诺德斯= 1
做当编4
首先base64decmap（ASC（MID（炒，编+ 0, 1））））
二= base64decmap（ASC（MID（炒，编+ 1, 1））））
第三= base64decmap（ASC（MID（炒，编+ 2, 1））））
第四= base64decmap（ASC（MID（炒，编+ 3, 1））））
ret = RET CHR (((((第一* 4）和255）+（（二 16）和3））
ret = RET CHR (((((二×16）和（255）+（第三 4）和15））
ret = RET CHR (((((第三×64）和255）+（第四，63））
编编+ 4 =
环
如果编<< reallen然后
首先base64decmap（ASC（MID（炒，编+ 0, 1））））
二= base64decmap（ASC（MID（炒，编+ 1, 1））））
ret = RET CHR (((((第一* 4）和255）+（（二 16）和3））
如果reallen mod 4 = 3
第三= base64decmap（ASC（MID（炒，编+ 2,1）））
ret = RET CHR (((((二×16）和（255）+（第三 4）和15））
最后如果
最后如果
base64decode = ret
端功能

%>


使用方法：


初始化
电话initcodecs
响应。写（Base64编码（我要加密的字符串））
响应。写（base64decode（bwfycziwmtawmjiw0 ））