开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1869|回复: 47
收起左侧

[易源码分享] 最快取文本中间_汇编

[复制链接]
结帖率:93% (246/265)
发表于 2024-3-11 00:15:52 | 显示全部楼层 |阅读模式   广西壮族自治区崇左市
分享源码
界面截图: -
是否带模块: -
备注说明: -
本帖最后由 果心豆腐酱 于 2024-3-11 00:49 编辑

改自[分享源码] 汇编 最快寻找文本+寻找字节集--->>一网打尽!

源码是取第一次出现的文本中间(和精易一样,)。
改写成最后一次文本中间。,已经测试过,目前我遇到的最快的代码了

  
DLL命令名返回值类型公开备 注
RtlAllocateHeap整数型 堆内存分配
DLL库文件名:
ntdll.dll
在DLL库中对应命令名:
RtlAllocateHeap
参数名类 型传址数组备 注
hHeap整数型堆句柄;可用GetProcessHeap()获取
dwFlags整数型标志
dwBytes整数型长度;单位为字节


  
子程序名返回值类型公开备 注
取文本中间文本_汇编文本型 取文本中间文本,取最后一个出现的文本
参数名类 型参考可空数组备 注
Str文本型源文本
SStr文本型前面文本
LStr文本型后面文本
区分大小写逻辑型
变量名类 型静态数组备 注
i整数型 
j整数型 
a整数型 
b整数型 
数组整数型0
c整数型 
成员数整数型 
i2  
j2双精度小数型 
判断循环首 (a = 0)
b = 寻找文本_汇编 (Str, SStr, b, 区分大小写)
判断 (b > 0)
i = b
加入成员 (数组, b)
跳出循环 ()
b = b + 1
判断循环尾 ()
如果真 (i > 0)
成员数 = 取数组成员数 (数组)
计次循环首 (成员数, i2)
i = 数组 [成员数 - i2 + 1]
c = 寻找文本_汇编 (Str, LStr, i, 区分大小写)
判断 (c > 0)
j = c
跳出循环 ()



计次循环尾 ()
如果真 (j > 0)
i2 = i + 取文本长度_汇编 (SStr)
j2 = j - i2
返回 (取文本中间_汇编 (Str, i2, j2))

返回 (“”)
子程序名返回值类型公开备 注
寻找文本_汇编整数型 寻找文本
参数名类 型参考可空数组备 注
InStr通用型源文本
Str通用型要寻找的文本
Start整数型默认从1开始
UandL逻辑型默认,假:区分大小写
置入代码 ({ 96, 139, 117, 8, 139, 85, 12, 139, 54, 139, 18, 86, 139, 77, 24, 139, 93, 16, 193, 225, 5, 141, 44, 30, 252, 8, 205, 133, 210, 116, 127, 138, 34, 49, 219, 128, 252, 129, 15, 66, 217, 133, 246, 116, 113, 132, 228, 116, 109, 8, 220, 85, 137, 203, 235, 9, 60, 255, 116, 14, 56, 224, 116, 18, 70, 172, 60, 128, 119, 242, 132, 192, 116, 83, 8, 216, 56, 224, 117, 241, 48, 192, 57, 52, 36, 119, 63, 141, 126, 255, 137, 213, 138, 15, 138, 109, 0, 71, 69, 132, 237, 116, 61, 128, 253, 129, 114, 22, 128, 253, 255, 116, 17, 56, 205, 117, 33, 138, 15, 138, 109, 0, 71, 69, 56, 205, 116, 220, 235, 20, 56, 205, 116, 214, 9, 217, 56, 205, 117, 10, 128, 253, 97, 114, 5, 128, 253, 123, 114, 198, 208, 224, 131, 214, 0, 235, 164, 93, 93, 131, 200, 255, 235, 6, 93, 137, 240, 93, 41, 232, 137, 68, 36, 28, 97, 93, 194, 24, 0 })
' *** 缩略程序块 ***
' pushad
' mov esi, dword [ebp+0x08]
' mov edx, dword [ebp+0x0C]
' mov esi, dword [esi]
' mov edx, dword [edx]
' push esi
' mov ecx, dword [ebp+0x18]
' mov ebx, dword [ebp+0x10]
' shl ecx, 0x05
' lea ebp, dword [esi+ebx]
' cld
' or ch, cl
' test edx, edx
' je label9
' mov ah, byte [edx]
' xor ebx, ebx
' cmp ah, 0x81
' cmovb ebx, ecx
' test esi, esi
' je label9
' test ah, ah
' je label9
' or ah, bl
' push ebp
' mov ebx, ecx
' jmp label2
' label1:
' cmp al, 0xFF
' je label3
' cmp al, ah
' je label4
' inc esi
' label2:
' lodsb
' cmp al, 0x80
' jnbe label1
' test al, al
' je label8
' label3:
' or al, bl
' cmp al, ah
' jne label2
' xor al, al
' label4:
' cmp dword [esp], esi
' jnbe label7
' lea edi, dword [esi-0x01]
' mov ebp, edx
' label5:
' mov cl, byte [edi]
' mov ch, byte [ebp+0x00]
' inc edi
' inc ebp
' test ch, ch
' je label10
' cmp ch, 0x81
' jc label6
' cmp ch, 0xFF
' je label6
' cmp ch, cl
' jne label7
' mov cl, byte [edi]
' mov ch, byte [ebp+0x00]
' inc edi
' inc ebp
' cmp ch, cl
' je label5
' jmp label7
' label6:
' cmp ch, cl
' je label5
' or ecx, ebx
' cmp ch, cl
' jne label7
' cmp ch, 0x61
' jc label7
' cmp ch, 0x7B
' jc label5
' label7:
' shl al, 1
' adc esi, 0x00000000
' jmp label2
' label8:
' pop ebp
' label9:
' pop ebp
' or eax, 0xFFFFFFFF
' jmp label11
' label10:
' pop ebp
' mov eax, esi
' pop ebp
' sub eax, ebp
' label11:
' mov dword [esp+0x1C], eax
' popad
' pop ebp
' retn 0x0018
返回 (0)
子程序名返回值类型公开备 注
取文本长度_汇编整数型 取文本长度
参数名类 型参考可空数组备 注
Str通用型文本变量或文本指针
置入代码 ({ 82, 87, 81, 49, 192, 139, 69, 8, 139, 0, 133, 192, 116, 67, 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, 89, 137, 236, 93, 194, 4, 0 })
' *** 缩略程序块 ***
' push edx
' push edi
' push ecx
' xor eax,eax
' mov eax, dword [ebp+0x08]
' mov eax, dword [eax]
' test eax,eax
' je label4
' lea edx, dword [eax+0x03]
' label1:
' mov edi, dword [eax]
' add eax, 0x04
' lea ecx, dword [edi-0x01010101]
' not edi
' and ecx, edi
' and ecx, 0x80808080
' jne label2
' mov edi, dword [eax]
' add eax, 0x04
' lea ecx, dword [edi-0x01010101]
' not edi
' and ecx, edi
' and ecx, 0x80808080
' je label1
' label2:
' test ecx, 0x00008080
' jne label3
' shr ecx, 0x10
' add eax, 0x02
' label3:
' shl cl, 1
' sbb eax, edx
' label4:
' pop edi
' pop edx
' pop ecx
' mov esp,ebp
' pop ebp
' retn 0x0004
返回 (0)
子程序名返回值类型公开备 注
取文本中间_汇编文本型 取文本中间,溢出返回原文本
参数名类 型参考可空数组备 注
str通用型可以直接传文本指针
start整数型起始取出位置
count整数型欲取出字符的数目
变量名类 型静态数组备 注
Heap整数型 
Len整数型 
置入代码 ({ 81, 82, 83, 86, 87, 49, 192, 139, 69, 8, 139, 0, 133, 192, 116, 69, 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, 235, 11, 95, 94, 91, 90, 89, 137, 236, 93, 194, 12, 0, 64, 137, 69, 248, 137, 195, 100, 139, 13, 48, 0, 0, 0, 139, 73, 24, 137, 77, 252 })
' *** 缩略程序块 ***
' push ecx
' push edx
' push ebx
' push esi
' push edi
' xor eax,eax
' mov eax, dword [ebp+0x08]
' mov eax, dword [eax]
' test eax,eax
' je label4
' lea edx, dword [eax+0x03]
' label1:
' mov edi, dword [eax]
' add eax, 0x04
' lea ecx, dword [edi-0x01010101]
' not edi
' and ecx, edi
' and ecx, 0x80808080
' jne label2
' mov edi, dword [eax]
' add eax, 0x04
' lea ecx, dword [edi-0x01010101]
' not edi
' and ecx, edi
' and ecx, 0x80808080
' je label1
' label2:
' test ecx, 0x00008080
' jne label3
' shr ecx, 0x10
' add eax, 0x02
' label3:
' shl cl, 1
' sbb eax, edx
' jmp label5
' label4:
' pop edi
' pop esi
' pop ebx
' pop edx
' pop ecx
' mov esp,ebp
' pop ebp
' ret 12
' label5:
' inc eax
' mov dword[ebp-0x08],eax
' mov ebx,eax
' mov ecx, dword [fs:0x00000030]
' mov ecx, dword [ecx+0x18]
' mov dword[ebp-0x04],ecx
RtlAllocateHeap (Heap, 0, Len)
置入代码 ({ 133, 192, 116, 56, 139, 117, 8, 139, 54, 139, 85, 12, 57, 211, 126, 44, 131, 125, 16, 0, 126, 38, 43, 93, 16, 126, 29, 131, 250, 0, 127, 5, 186, 1, 0, 0, 0, 87, 141, 116, 22, 255, 139, 77, 16, 137, 199, 243, 164, 198, 4, 15, 0, 95, 235, 9, 137, 240, 235, 5, 184, 0, 0, 0, 0, 95, 94, 91, 90, 89, 137, 236, 93, 194, 12, 0 })
' *** 缩略程序块 ***
' test eax,eax
' je label3
' mov esi, dword [ebp+0x08]
' mov esi, dword [esi]
' mov edx, dword [ebp+0x0C]
' cmp ebx,edx
' jle label3
' cmp dword [ebp+0x10], 0x00000000
' jle label3
' sub ebx,dword[ebp+0x10]
' jle label2
' cmp edx, 0x00000000
' jnle label1
' mov edx, 0x00000001
' label1:
' push edi
' lea esi, dword [esi+edx-0x01]
' mov ecx, dword [ebp+0x10]
' mov edi, eax
' rep movsb
' mov byte [edi+ecx], 0x00
' pop edi
' jmp label4
' label2:
' mov eax, esi
' jmp label4
' label3:
' mov eax, 0x00000000
' label4:
' pop edi
' pop esi
' pop ebx
' pop edx
' pop ecx
' mov esp,ebp
' pop ebp
' ret 0x0C
返回 (“”)

补充内容 (2024-3-14 21:12):
原版汇编,不支持取最后一个中间内容,。这是改版。相当于是多执行好几次取中间文本,肯定会比较慢啊。

补充内容 (2024-3-15 14:41):
寻找文本,用原作者里面的就行,这里的寻找文本,是贴错了

点评

那你就不应该挂汇编二次了,你写的代码跟汇编没关系,而且你这写法不是最快的,我用核心库随便改造个,都比你的快。。。   广东省深圳市  发表于 2024-3-17 17:47
我怀疑你都没看过那个贴里源码。我指的慢,是指你这个【寻找文本_汇编】方法都比他也慢几十倍,所以你改了啥?   广东省深圳市  发表于 2024-3-15 14:04
汇编部分都不是那个帖子里面的,你写的也只是易语言代码,何来改版? 所以你这标题挂汇编不适合啊。。。   广东省深圳市  发表于 2024-3-15 13:58
好像和那源码没啥关系把?你这寻找都比他慢。。。   广东省深圳市  发表于 2024-3-12 03:10

评分

参与人数 6好评 +4 精币 +8 收起 理由
kk587 + 1 好像和那源码没啥关系把?你这寻找都比他慢。。。
光影魔术 + 1 + 1 支持开源~!感谢分享
kyo9766 + 1 感谢分享,很给力!~
钟于旧 + 1 + 2 感谢分享,很给力!~
喵帕斯和艾希 + 1 + 3 支持开源~!感谢分享
財財 + 1 感谢分享,很给力!~

查看全部评分


本帖被以下淘专辑推荐:

结帖率:93% (246/265)

签到天数: 28 天

 楼主| 发表于 2024-3-12 01:22:50 | 显示全部楼层   广西壮族自治区崇左市
  
子程序名返回值类型公开备 注
取文本中间文本_汇编文本型 取文本中间文本,取最后一个出现的文本
参数名类 型参考可空数组备 注
欲取全文本文本型源文本
前面文本文本型前面文本
后面文本文本型后面文本
起始搜寻位置整数型注明:可空,这里是指搜寻 参数二 前面文本 的开始位置。为空,取最后一个匹配的内容
是否不区分大小写逻辑型注明:为真不区分大小写,为假区分。默认为假
变量名类 型静态数组备 注
i整数型 
j整数型 
a整数型 
b整数型 
数组整数型0
c整数型 
成员数整数型 
i2整数型 
j2整数型 
前面文本长度整数型 
bb整数型 
b = 起始搜寻位置
前面文本长度 = 取文本长度_汇编 (前面文本)
判断循环首 (a = 0)
bb = 寻找文本_汇编 (欲取全文本, 前面文本, b, 是否不区分大小写)
判断 (bb > 0)
i = bb
加入成员 (数组, bb)
跳出循环 ()
b = bb + 前面文本长度
判断循环尾 ()
如果真 (i > 0)
成员数 = 取数组成员数 (数组)
j = 寻找文本_汇编 (欲取全文本, 后面文本, i + 前面文本长度, 是否不区分大小写)
如果真 (j > 0)
返回 (取文本中间_汇编 (欲取全文本, i + 前面文本长度, j - i - 前面文本长度))

返回 (“”)


有个BUG,修复了下
回复 支持 反对

使用道具 举报

结帖率:93% (246/265)

签到天数: 28 天

 楼主| 发表于 2024-3-16 01:12:32 | 显示全部楼层   广西壮族自治区崇左市
  
子程序名返回值类型公开备 注
文本_取出中间文本_汇编文本型 取文本中间文本,取最后一个出现的文本
参数名类 型参考可空数组备 注
欲取全文本文本型源文本
前面文本文本型前面文本
后面文本文本型后面文本
起始搜寻位置整数型注明:可空,这里是指搜寻 参数二 前面文本 的开始位置。为空,取最后一个匹配的内容
是否不区分大小写逻辑型注明:为真不区分大小写,为假区分。默认为假
变量名类 型静态数组备 注
i整数型 
j整数型 
a整数型 
b整数型 
数组整数型0
c整数型 
成员数整数型 
i2整数型 
j2整数型 
前面文本长度整数型 
bb整数型 
匹配数整数型 
b = 起始搜寻位置
前面文本长度 = 取文本长度_汇编 (前面文本)
判断循环首 (a = 0)
bb = 寻找文本_汇编 (欲取全文本, 前面文本, b, 是否不区分大小写)
判断 (bb > 0)
i = bb
加入成员 (数组, bb)
跳出循环 ()
b = bb + 前面文本长度
判断循环尾 ()
匹配数 = 取数组成员数 (数组)
判断 (前面文本 = 后面文本 匹配数 ≥ 2)
调试输出 (数组 [匹配数 - 1] + 前面文本长度 - 1)
返回 (取文本中间_汇编 (欲取全文本, 数组 [匹配数 - 1] + 前面文本长度, 数组 [匹配数] - 数组 [匹配数 - 1] - 前面文本长度))
如果真 (i > 0)
成员数 = 取数组成员数 (数组)
j = 寻找文本_汇编 (欲取全文本, 后面文本, i + 前面文本长度, 是否不区分大小写)
如果真 (j > 0)
返回 (取文本中间_汇编 (欲取全文本, i + 前面文本长度, j - i - 前面文本长度))



返回 (“”)


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

回复 支持 反对

使用道具 举报

签到天数: 24 天

发表于 2024-3-31 21:01:07 | 显示全部楼层   山东省临沂市
        感谢分享,很给力!~
回复 支持 反对

使用道具 举报

发表于 2024-3-20 15:01:15 | 显示全部楼层   湖北省孝感市

        支持开源~!感谢分享
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)

签到天数: 6 天

发表于 2024-3-16 18:03:42 | 显示全部楼层   广东省深圳市
学习一下
回复 支持 反对

使用道具 举报

结帖率:93% (246/265)

签到天数: 28 天

 楼主| 发表于 2024-3-16 01:13:17 | 显示全部楼层   广西壮族自治区崇左市
xiaosep123 发表于 2024-3-15 23:09
bug太多了,随便测试一下,就有bug

看置顶0.0
回复 支持 反对

使用道具 举报

结帖率:93% (246/265)

签到天数: 28 天

 楼主| 发表于 2024-3-16 00:59:48 | 显示全部楼层   广西壮族自治区崇左市
xiaosep123 发表于 2024-3-15 23:09
bug太多了,随便测试一下,就有bug

    哦
0.0   0.0
回复 支持 反对

使用道具 举报

签到天数: 4 天

发表于 2024-3-15 23:09:58 | 显示全部楼层   四川省泸州市
果心豆腐酱 发表于 2024-3-12 01:22
[e=0].版本 2

.子程序 取文本中间文本_汇编, 文本型, 公开, 取文本中间文本,取最后一个出现的文本

bug太多了,随便测试一下,就有bug
QWQ.png
回复 支持 反对

使用道具 举报

结帖率:78% (7/9)

签到天数: 26 天

发表于 2024-3-15 09:14:04 | 显示全部楼层   福建省泉州市
学习学习学习学习
回复 支持 反对

使用道具 举报

结帖率:93% (246/265)

签到天数: 28 天

 楼主| 发表于 2024-3-14 21:25:30 | 显示全部楼层   广西壮族自治区崇左市
weihua2018 发表于 2024-3-14 21:14
错误(4): 没有找到名为“通用型”的数据类型

我也不懂这个在哪里,在原模块里没有提示错误,。。。不过你可以改成文本型。是一样的
回复 支持 反对

使用道具 举报

结帖率:80% (4/5)

签到天数: 28 天

发表于 2024-3-14 21:14:39 | 显示全部楼层   广东省东莞市
错误(4): 没有找到名为“通用型”的数据类型
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表