求一个网址编码解码算法

风丶初静

decodeURI

encodeURI

椋庝付鍒濋润???????????????

易语言版的

.版本 2

.子程序 Url解码, 字节集, 公开
.参数 文本, 字节集
.局部变量 位置
.局部变量 数据, 字节型
.局部变量 数据2, 字节型
.局部变量 文件号

文本 ＝ 子字节集替换 (文本, { 37 }, , , )
文件号 ＝ 打开内存文件 ()
位置 ＝ 1
.判断循环首 (位置 ＜ 取字节集长度 (文本))
数据 ＝ 到字节 (文本 [位置])
.判断开始 (数据 ＞ 64)
数据 ＝ (数据 － 55) × 16
.默认
数据 ＝ (数据 － 48) × 16
.判断结束
数据2 ＝ 到字节 (文本 [位置 ＋ 1])
.判断开始 (数据2 ＞ 64)
数据2 ＝ 数据2 － 55
.默认
数据2 ＝ 数据2 － 48
.判断结束
写出数据 (文件号, 到字节 (数据 ＋ 数据2))
位置 ＝ 位置 ＋ 2
.判断循环尾 ()
移到文件首 (文件号)
返回 (读入字节集 (文件号, 取文件长度 (文件号)) ＋ { 0 })

.子程序 Url编码, 文本型, 公开
.参数 文本, 字节集
.局部变量 i
.局部变量 文件号
.局部变量 数据, 文本型

文件号 ＝ 打开内存文件 ()
.计次循环首 (取字节集长度 (文本), i)
数据 ＝ 取十六进制文本 (文本 [i])
.如果 (取文本长度 (数据) ＝ 1)
写出文本 (文件号, “%”, “0”, 数据)