len = 取文本长度(URL) ret = 到字节集(URL) i = 1 p = 1 判断循环首(i ≤ len) 判断(ret [i] ≠ 37) ret [p] = ret [i] ret [p] = 位或(左移(StrToNum(ret [i + 1]), 4), StrToNum(ret [i + 2])) i = i + 2 p = p + 1 i = i + 1 判断循环尾() 如果真(p ≠ len) ret [p] = 0 如果真(是否UTF8) ret = 到字节集(编码_utf8到gb2312(到文本(ret))) 返回(到文本(ret))