转个汇编取文本长度的源码.速度可能不好再快了

jr21066

易论坛发现的.这是地址:
http://bbs.eyuyan.com/read.php?tid=407995


这是国人翻译后的原帖
https://bbs.pediy.com/thread-229243.htm


附件是已经转换参数地址的.也是易论坛原帖下载的.
看雪论坛的帖有解释.推荐看下

  

子程序名	返回值类型	公开	备 注
strlen	整数型		取文本长度，来自 心冷、鱼儿 改写 https://bbs.pediy.com/thread-229243.htm
参数名	类 型	参考	可空	数组	备 注
str	文本型

置入代码 ({ 139, 69, 8, 139, 0, 131, 248, 0, 116, 71, 82, 87, 141, 80, 3, 139, 56, 131, 192, 4, 141, 143, 255, 254, 254, 254, 247, 215, 33, 249, 129, 225, 128, 128, 128, 128, 117, 23, 139, 56, 131, 192, 4, 141, 143, 255, 254, 254, 254, 247, 215, 33, 249, 129, 225, 128, 128, 128, 128, 116, 210, 247, 193, 128, 128, 0, 0, 117, 6, 193, 233, 16, 131, 192, 2, 208, 225, 25, 208, 95, 90, 201, 194, 4, 0 })
' mov eax,dword [ebp+08h]
' mov eax,dword [eax]
' cmp eax,0
' je exit
' push edx
' push edi
' lea edx,dword [eax+03h]
' label_b:
' mov edi,dword [eax]
' add eax,4
' lea ecx,dword [edi-01010101h]
' not edi
' and ecx,edi
' and ecx,80808080h
' jnz nxt
' mov edi,dword [eax]
' add eax,4
' lea ecx,dword [edi-01010101h]
' not edi
' and ecx,edi
' and ecx,80808080h
' jz label_b
' nxt:
' test ecx,00008080h
' jnz label_f
' shr ecx,16
' add eax,2
' label_f:
' shl cl,1
' sbb eax,edx
' pop edi
' pop edx
' exit:
' leave
' ret 04h
返回 (0)

.版本 2<br /> <br /> .子程序 strlen, 整数型, 公开, 取文本长度，来自 心冷、鱼儿 改写 https://bbs.pediy.com/thread-229243.htm<br /> .参数 str, 文本型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 131, 248, 0, 116, 71, 82, 87, 141, 80, 3, 139, 56, 131, 192, 4, 141, 143, 255, 254, 254, 254, 247, 215, 33, 249, 129, 225, 128, 128, 128, 128, 117, 23, 139, 56, 131, 192, 4, 141, 143, 255, 254, 254, 254, 247, 215, 33, 249, 129, 225, 128, 128, 128, 128, 116, 210, 247, 193, 128, 128, 0, 0, 117, 6, 193, 233, 16, 131, 192, 2, 208, 225, 25, 208, 95, 90, 201, 194, 4, 0 })<br /> ' mov eax,dword [ebp+08h]<br /> ' mov eax,dword [eax]<br /> ' cmp eax,0<br /> ' je exit<br /> ' push edx<br /> ' push edi<br /> ' lea edx,dword [eax+03h]<br /> <br /> ' label_b:<br /> ' mov edi,dword [eax]<br /> ' add eax,4<br /> ' lea ecx,dword [edi-01010101h]<br /> ' not edi<br /> ' and ecx,edi<br /> ' and ecx,80808080h<br /> ' jnz nxt<br /> <br /> ' mov edi,dword [eax]<br /> ' add eax,4<br /> ' lea ecx,dword [edi-01010101h]<br /> ' not edi<br /> ' and ecx,edi<br /> ' and ecx,80808080h<br /> ' jz label_b<br /> <br /> ' nxt:<br /> ' test ecx,00008080h<br /> ' jnz label_f<br /> ' shr ecx,16<br /> ' add eax,2<br /> <br /> ' label_f:<br /> ' shl cl,1<br /> ' sbb eax,edx<br /> ' pop edi<br /> ' pop edx<br /> ' exit:<br /> ' leave<br /> ' ret 04h<br /> 返回 (0)

cf2006a

jr21066 发表于 2018-10-7 15:08
没有多余的代码吧.结果你测试了没

听说这个更快，还没试过!!!!

jr21066

cf2006a 发表于 2018-10-7 14:44
优化了下 把一样的代码删除掉

没有多余的代码吧.结果你测试了没

cf2006a

jr21066 发表于 2018-10-5 22:36
看雪的帖子是有说明的.

只有0这个特殊的数.所有位是0.但在减一后全部都是1.and的结果是0

优化了下 把一样的代码删除掉


{ 139, 69, 8, 139, 0, 141, 80, 3, 139, 56, 131, 192, 4, 141, 143, 255, 254, 254, 254, 247, 215, 33, 249, 129, 225, 128, 128, 128, 128, 117, 2, 116, 231, 247, 193, 128, 128, 0, 0, 117, 6, 193, 233, 16, 131, 192, 2, 208, 225, 25, 208, 201, 194, 4, 0 }

cf2006a

jr21066 发表于 2018-10-5 22:36
看雪的帖子是有说明的.

只有0这个特殊的数.所有位是0.但在减一后全部都是1.and的结果是0

不是太明白

jr21066

cf2006a 发表于 2018-10-5 22:18
很早就有人发过了，不过实现原理还是没能理解&#128522;

看雪的帖子是有说明的.

只有0这个特殊的数.所有位是0.但在减一后全部都是1.and的结果是0
通过这方法来一次检测四字节.

cf2006a

很早就有人发过了，不过实现原理还是没能理解&#128522;

一瓶矿泉水

jr21066 发表于 2018-10-5 20:17
试过了.比传统的汇编单字节快三倍.如果指令没用对.可能还要再快一些.

那就满足了，效率飞起来

jr21066

一瓶矿泉水 发表于 2018-10-5 19:49
用在web服务器上URL解析，看看效率能有多大的提升。

试过了.比传统的汇编单字节快三倍.如果指令没用对.可能还要再快一些.

一瓶矿泉水

用在web服务器上URL解析，看看效率能有多大的提升。