API汇编取字节集左边右边、取重复内容

.计次循环首 (10000, )
bin ＝ 取重复字节集_ (len, { 10, 11, 12, 13, 14, 15, 16, 17, 18, 19 })
.计次循环尾 ()
.计次循环首 (10000, )
L ＝ 取字节集左边_ (bin, 20)
R ＝ 取字节集右边_ (bin, 20)
.计次循环尾 ()
标签1.标题 ＝ “耗时：” ＋ 到文本 (取启动时间 () － t) ＋ “毫秒”
编辑框1.内容 ＝ #换行符 ＋ “bin＝↓” ＋ #换行符 ＋ “取重复字节集(32，{10, 11, 12, 13, 14, 15, 16, 17, 18, 19}):” ＋ #换行符 ＋ BinTotxt (bin) ＋ #换行符 ＋ #换行符 ' 本源码
编辑框1.加入文本 (“取字节集左边（bin，20）：” ＋ #换行符 ＋ BinTotxt (L) ＋ #换行符 ＋ #换行符)
编辑框1.加入文本 (“取字节集右边（bin，20）：” ＋ #换行符 ＋ BinTotxt (R) ＋ #换行符)

.子程序 取字节集左边_, 字节集, 公开
.参数 欲取其左边的字节集, 字节集
.参数 取出数目, 整数型
.局部变量 buf, 字节集
.局部变量 a, 整数型
.局部变量 b, 整数型

buf ＝ { }
连续赋值 (0, a, b)
置入代码 ({ 139, 69, 8, 139, 0, 139, 64, 4, 137, 69, 248 })
.如果真 (取出数目 ≥ a)
置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 8, 0 })
.如果真结束
置入代码 ({ 139, 69, 8, 139, 0, 131, 192, 8, 137, 69, 248 })
HeapAlloc (GetProcessHeap (), 8, 取出数目 ＋ 8)
置入代码 ({ 254, 0, 255, 117, 12, 143, 64, 4, 137, 69, 252, 131, 192, 8, 137, 69, 244 })
CopyMemory (b, a, 取出数目)
返回 (buf)