编码_URL编码_快速

jr21066

今天统一补上注释.汇编没留源格式真的失败啊.

  

子程序名	返回值类型	公开	备 注
汇编URL全编码
参数名	类 型	参考	可空	数组	备 注
局_表	整数型
局_目标地址	整数型
局_转换内容长度	整数型
局_转换内容	文本型

置入代码 ({ 139, 93, 8, 139, 125, 12, 139, 77, 16, 139, 117, 20, 139, 54, 176, 37, 170, 172, 138, 224, 192, 232, 4, 215, 170, 138, 196, 36, 15, 215, 170, 226, 237, 51, 192, 170, 201, 194, 16, 0 })
' mov ebx,dword ptr [ebp+08h]  取转换表地址
' mov edi,dword ptr [ebp+0Ch]  返回数值地址
' mov ecx,dword ptr [ebp+10h]  取长度
' mov esi,dword ptr [ebp+14h]  源文本
' mov esi,dword ptr [esi]
' Label1:
' mov al,25h  写入%
' stosb
' lodsb
' mov ah,al
' shr al,04h   取表索引值
' xlatb     取表项值
' stosb   保存转换内容
' mov al,ah
' and al,0Fh  处理高位
' xlatb
' stosb
' loop Label1  循环处理
' xor eax,eax  写入文本结束标志
' stosb
' leave
' retn 0010h

子程序名	返回值类型	公开	备 注
汇编URL半编码
参数名	类 型	参考	可空	数组	备 注
局_表	整数型
局_表2	整数型
局_目标地址	整数型
局_转换内容长度	整数型
局_转换内容	文本型

置入代码 ({ 96, 139, 125, 16, 139, 77, 20, 139, 117, 24, 139, 54, 172, 81, 87, 185, 75, 0, 0, 0, 139, 125, 12, 242, 174, 95, 89, 116, 20, 80, 176, 37, 170, 88, 138, 224, 192, 232, 4, 139, 93, 8, 215, 170, 138, 196, 36, 15, 215, 170, 226, 216, 51, 192, 170, 97, 201, 194, 20, 0 })
' pushad  代码长时记不清使用了哪些寄存器.不如全保存好了
' mov edi,dword ptr [ebp+10h]  取转换内容表地址
' mov ecx,dword ptr [ebp+14h]   取URL编码字符表地址
' mov esi,dword ptr [ebp+18h]   取长度
' mov esi,dword ptr [esi]     转换内容
' Label2:
' lodsb
' push ecx
' push edi
' mov ecx,0000004Bh
' mov edi,dword ptr [ebp+0Ch]
' repne scasb   判断是否是编码表中的字符内容
' pop edi
' pop ecx
' je Label1  如果是字符,跳过
' push eax
' mov al,25h  保存%符号
' stosb
' pop eax
' mov ah,al
' shr al,04h
' mov ebx,dword ptr [ebp+08h]
' xlatb   取表索引对应内容
' stosb
' mov al,ah
' and al,0Fh
' xlatb   取高位表项内容
' Label1:
' stosb
' loop Label2
' xor eax,eax
' stosb   写文本结束标记
' popad
' leave
' retn 0014h

子程序名	返回值类型	公开	备 注
编码_URL编码_快速	文本型		快速URL编码
参数名	类 型	参考	可空	数组	备 注
参_编码文本	文本型				需要URL编码的文本内容
参_是否不编码字母数字	逻辑型				不编码字母数字及符号

变量名	类 型	静态	数组	备 注
局_表1	文本型
局_返回值	文本型
局_待转换文本	文本型
局_表2	文本型

' 二进制数快速对应表内容.实现快速转换
局_表1 ＝ “0123456789ABCDEF”
' URL编码中字符内容
局_表2 ＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ;/?:@&=+$,#.-”
' 预申请返回内容空间
局_返回值 ＝ 取空白文本 (取文本长度 (参_编码文本) × 3)
' 汇编代码短小快,难控制.所以为了稳定和更有效,把代码分成了两部分,方便维护和提高效率.
如果 (参_是否不编码字母数字 ＝ 真)
汇编URL半编码 (取变量数据地址_文本 (局_表1), 取变量数据地址_文本 (局_表2), 取变量数据地址_文本 (局_返回值), 取文本长度 (参_编码文本), 参_编码文本)
汇编URL全编码 (取变量数据地址_文本 (局_表1), 取变量数据地址_文本 (局_返回值), 取文本长度 (参_编码文本), 参_编码文本)
返回 (局_返回值)

.版本 2<br /> <br /> .子程序 汇编URL全编码<br /> .参数 局_表, 整数型<br /> .参数 局_目标地址, 整数型<br /> .参数 局_转换内容长度, 整数型<br /> .参数 局_转换内容, 文本型<br /> <br /> 置入代码 ({ 139, 93, 8, 139, 125, 12, 139, 77, 16, 139, 117, 20, 139, 54, 176, 37, 170, 172, 138, 224, 192, 232, 4, 215, 170, 138, 196, 36, 15, 215, 170, 226, 237, 51, 192, 170, 201, 194, 16, 0 })<br /> ' mov ebx,dword ptr [ebp+08h]  取转换表地址<br /> ' mov edi,dword ptr [ebp+0Ch]  返回数值地址<br /> ' mov ecx,dword ptr [ebp+10h]  取长度<br /> ' mov esi,dword ptr [ebp+14h]  源文本<br /> ' mov esi,dword ptr [esi]<br /> ' Label1:<br /> ' mov al,25h  写入%<br /> ' stosb<br /> ' lodsb<br /> ' mov ah,al<br /> ' shr al,04h   取表索引值<br /> ' xlatb     取表项值<br /> ' stosb   保存转换内容<br /> ' mov al,ah<br /> ' and al,0Fh  处理高位<br /> ' xlatb<br /> ' stosb<br /> ' loop Label1  循环处理<br /> ' xor eax,eax  写入文本结束标志<br /> ' stosb<br /> ' leave<br /> ' retn 0010h<br /> <br /> <br /> .子程序 汇编URL半编码<br /> .参数 局_表, 整数型<br /> .参数 局_表2, 整数型<br /> .参数 局_目标地址, 整数型<br /> .参数 局_转换内容长度, 整数型<br /> .参数 局_转换内容, 文本型<br /> <br /> 置入代码 ({ 96, 139, 125, 16, 139, 77, 20, 139, 117, 24, 139, 54, 172, 81, 87, 185, 75, 0, 0, 0, 139, 125, 12, 242, 174, 95, 89, 116, 20, 80, 176, 37, 170, 88, 138, 224, 192, 232, 4, 139, 93, 8, 215, 170, 138, 196, 36, 15, 215, 170, 226, 216, 51, 192, 170, 97, 201, 194, 20, 0 })<br /> ' pushad  代码长时记不清使用了哪些寄存器.不如全保存好了<br /> ' mov edi,dword ptr [ebp+10h]  取转换内容表地址<br /> ' mov ecx,dword ptr [ebp+14h]   取URL编码字符表地址<br /> ' mov esi,dword ptr [ebp+18h]   取长度<br /> ' mov esi,dword ptr [esi]     转换内容<br /> ' Label2:<br /> ' lodsb<br /> ' push ecx<br /> ' push edi<br /> ' mov ecx,0000004Bh<br /> ' mov edi,dword ptr [ebp+0Ch]<br /> ' repne scasb   判断是否是编码表中的字符内容<br /> ' pop edi<br /> ' pop ecx<br /> ' je Label1  如果是字符,跳过<br /> ' push eax<br /> ' mov al,25h  保存%符号<br /> ' stosb<br /> ' pop eax<br /> ' mov ah,al<br /> ' shr al,04h<br /> ' mov ebx,dword ptr [ebp+08h]<br /> ' xlatb   取表索引对应内容<br /> ' stosb<br /> ' mov al,ah<br /> ' and al,0Fh<br /> ' xlatb   取高位表项内容<br /> ' Label1:<br /> ' stosb<br /> ' loop Label2<br /> ' xor eax,eax<br /> ' stosb   写文本结束标记<br /> ' popad<br /> ' leave<br /> ' retn 0014h<br /> <br /> <br /> .子程序 编码_URL编码_快速, 文本型, 公开, 快速URL编码<br /> .参数 参_编码文本, 文本型, , 需要URL编码的文本内容<br /> .参数 参_是否不编码字母数字, 逻辑型, 可空, 不编码字母数字及符号<br /> .局部变量 局_表1, 文本型<br /> .局部变量 局_返回值, 文本型<br /> .局部变量 局_待转换文本, 文本型<br /> .局部变量 局_表2, 文本型<br /> <br /> ' 二进制数快速对应表内容.实现快速转换<br /> 局_表1 ＝ “0123456789ABCDEF”<br /> ' URL编码中字符内容<br /> 局_表2 ＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ;/?:@&=+$,#.-”<br /> ' 预申请返回内容空间<br /> 局_返回值 ＝ 取空白文本 (取文本长度 (参_编码文本) × 3)<br /> ' 汇编代码短小快,难控制.所以为了稳定和更有效,把代码分成了两部分,方便维护和提高效率.<br /> .如果 (参_是否不编码字母数字 ＝ 真)<br />     汇编URL半编码 (取变量数据地址_文本 (局_表1), 取变量数据地址_文本 (局_表2), 取变量数据地址_文本 (局_返回值), 取文本长度 (参_编码文本), 参_编码文本)<br /> .否则<br />     汇编URL全编码 (取变量数据地址_文本 (局_表1), 取变量数据地址_文本 (局_返回值), 取文本长度 (参_编码文本), 参_编码文本)<br /> .如果结束<br /> 返回 (局_返回值)

违规用户名309721

这种汇编 没必要   应该不会  采纳的  ，  感觉也不会太实用

jr21066

这就是用户名 发表于 2018-9-1 17:48
不支持utf8的应该不会采用的,毕竟现在都是utf8的多

.版本 2

.局部变量 内容, 文本型

内容 ＝ 编码_gb2312到utf8 (内容)
调试输出(编码_URL编码_快速(内容))

只是多一句话了.这样的话.编码就可以支持那些符号了.

jr21066

这就是用户名 发表于 2018-9-1 17:48
不支持utf8的应该不会采用的,毕竟现在都是utf8的多

可以这样使用, 不然URL编码的一些符号都用不成了.

  

变量名	类 型	静态	数组	备 注
内容	文本型

内容 ＝ 编码_gb2312到utf8 (内容)
调试输出 (编码_URL编码_快速 (内容))

.版本 2<br /> <br /> .局部变量 内容, 文本型<br /> <br /> 内容 ＝ 编码_gb2312到utf8 (内容)<br /> 调试输出(编码_URL编码_快速(内容))

这就是用户名

不支持utf8的应该不会采用的,毕竟现在都是utf8的多

jr21066

う网淅乄 发表于 2018-9-1 17:30
UTF8 用的最多

不影响.先转码再调用就可以了.
速度刚试了.还是有n倍的提升的

う网淅乄

UTF8 用的最多

咱得有自己独特

支持一下，乱码了。

jr21066

这里是示例

  

内容 ＝ “ABC.jr21066 测试文本” ＋ #换行符 ＋ “//-----------// ; / ? : @ & = + $ , #”
调试输出 (编码_URL编码_快速 (内容, ))
调试输出 (编码_URL编码_快速 (内容, 真))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 内容 ＝ “ABC.jr21066 测试文本” ＋ #换行符 ＋ “//-----------// ; / ? : @ & = + $ , #”<br /> 调试输出 (编码_URL编码_快速 (内容, ))<br /> 调试输出 (编码_URL编码_快速 (内容, 真))

jr21066

这里是调用示例

  

变量名	类 型	静态	数组	备 注
内容	文本型

内容 ＝ “ABC.jr21066 测试文本” ＋ #换行符 ＋ “//-----------// ; / ? : @ & = + $ , #”
调试输出 (编码_URL编码_快速 (内容, ))
调试输出 (编码_URL编码_快速 (内容, 真))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 内容, 文本型<br /> <br /> 内容 ＝ “ABC.jr21066 测试文本” ＋ #换行符 ＋ “//-----------// ; / ? : <a href="https://bbs.125.la/home.php?mod=space&uid=398972" target="_blank">@</a> & = + $ , #”<br /> 调试输出 (编码_URL编码_快速 (内容, ))<br /> 调试输出 (编码_URL编码_快速 (内容, 真))