编码_URL编码_快速

jr21066

经测试,编码_GB2312到UTF8不支持URL编码里的一些符号,所以代码里没有加入UTF-8支持.
可以自行先转码再调用本代码.

为了提升效率.代码是分了两个部分,一个是全编码.一个不编码数字字母符号的.
通过总接口统一使用.

  

子程序名	返回值类型	公开	备 注
汇编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 })

子程序名	返回值类型	公开	备 注
汇编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 })

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

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

局_表1 ＝ “0123456789ABCDEF”
局_表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 /> <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 /> <br /> <br /> .子程序 编码_URL编码_快速, 文本型, 公开, 快速URL编码<br /> .参数 参_编码文本, 文本型, , 需要URL编码的文本内容<br /> .参数 参_是否不编码字母数字, 逻辑型, 可空, 不编码字母数字及符号<br /> .局部变量 局_表1, 文本型<br /> .局部变量 局_返回值, 文本型<br /> .局部变量 局_待转换文本, 文本型<br /> .局部变量 局_表2, 文本型<br /> <br /> 局_表1 ＝ “0123456789ABCDEF”<br /> 局_表2 ＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ;/?:@&=+$,#.-”<br /> 局_返回值 ＝ 取空白文本 (取文本长度 (参_编码文本) × 3)<br /> <br /> .如果 (参_是否不编码字母数字 ＝ 真)<br />     汇编URL半编码 (取变量数据地址_文本 (局_表1), 取变量数据地址_文本 (局_表2), 取变量数据地址_文本 (局_返回值), 取文本长度 (参_编码文本), 参_编码文本)<br /> .否则<br />     汇编URL全编码 (取变量数据地址_文本 (局_表1), 取变量数据地址_文本 (局_返回值), 取文本长度 (参_编码文本), 参_编码文本)<br /> .如果结束<br /> 返回 (局_返回值)

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 /> 返回 (局_返回值)

dfxb120

11111111111111111

taohongsen1990

jr21066 发表于 2018-9-20 15:39
表2的长度我写死了.要保持长度不变才行

我试试吧,好像加=号可以的,但是_下划线不行,而且我这个长度没有你原来的长,要不你试试呢

jr21066

taohongsen1990 发表于 2018-9-20 15:39
这样不行

表2的长度我写死了.要保持长度不变才行

taohongsen1990

jr21066 发表于 2018-9-20 15:34
红框里的.找一个可能用不上的符号.修改成下划线就好了.

这样不行                             

jr21066

taohongsen1990 发表于 2018-9-20 15:31
看不懂 汇编

红框里的.找一个可能用不上的符号.修改成下划线就好了.

taohongsen1990

jr21066 发表于 2018-9-17 23:47
为了简单.我没有计算表的长度.而是使用了固定长度.

一个方法是你替换表中的一个符号 .另一个方法是修 ...

看不懂 汇编

jr21066

taohongsen1990 发表于 2018-9-17 15:39
楼主,下划线 "_" 怎么用 半编码的方式 编码呢,我在 局_表2 中增加好像没有用啊

为了简单.我没有计算表的长度.而是使用了固定长度.

一个方法是你替换表中的一个符号 .另一个方法是修改这里的ecx后的值
Label2:
lodsb
push ecx
push edi
mov ecx, 0x0000004B



增加一个字符就加一.是十六进制.

taohongsen1990

楼主,下划线 "_" 怎么用 半编码的方式 编码呢,我在 局_表2 中增加好像没有用啊

jr21066

项目部002 发表于 2018-9-8 09:25
感谢楼主分享，如果有可能，可以尝试整理一份汇编类的编码转换，这样便于分类调用。

好的
完了qq吗

项目部002

感谢楼主分享，如果有可能，可以尝试整理一份汇编类的编码转换，这样便于分类调用。