VB.compiled.module.design.code.CALL.rar_The Call_VB汇编CALL

作者：孙林 博 客httpbycw2007.blog.163.com E-MAIL： bycw2005@yahoo.com.cn VB汇编类的优点 1.语句简单，近似汇编语言 2.可以在IDE里运行，这点比采用汇编的编译器的vbinlineasm,thundervb好多了，他们都需要编译后才能执行的 3.可以任意添加参数，随便几个 4.开源，以后用户可以随自己的心意改 5.编译后不需要额外的支持库，因为类里没有用到其他东西 使用此类不需要任何第三方软件支持,并且开源~~~ 内带两个实例，一个是网游诛仙CALL的注入，还有一个是演示如何操作汇编指令 汇编基础类里基本包含了常用的汇编指令，如果用户觉得不够可以使用OD等有汇编 功能的软件提取机械吗添加类内.. 第5次更新-7.12 此次更新内容如下 1.更改了run_asm这个函数，把打开进程和关闭进程加进去了（lewei2000说MS有位高手说过OpenProcess后长时间不CloseHandle会崩溃的，不管是不是加了会怎么样的） 2.添加了Mov_ECX_DWORD_Ptr_EAX_Add，Lea_EBX_DWORD_Ptr_ESI_Add 等40个指令 提醒一下：之前把 Lea_EAX_DWORD_Ptr_ESI 中的EAX忘记ptr这个了，格式看上去不是整齐，现在加入了。 我把push 对于255以下的注释掉了,倒不是我写错了，而是对于255以下的处理有两种，比如push 1这个，机械吗可能有两种 6A 01 或者 68 01 00 00 00 ,但是测试下来发现,第一种可能注入有的时候可能有问题,而后一种没有问题,反正大家如果原来的对的话，就去掉注释把。 第4次更新-7.12 此次更新主要是看到了一个致命的BUG,请重新下载第四次更新把~~,对不起大家了，类里东西实在比较多，所以有些地方难免有问题，哈哈，大家多多包含~~~ 第3次更新-7.11 谢谢zgh提醒,内存释放的问题,我这里诛仙卸载了，所以之前写出来也没有测试过,大家如果发现其他问题也可以发出来，大家一起使得这个类的比较合理一点 第2次更新-7.11 此次更新主要是添加了一些MOV指针操作和CALL的指令，我对照了一下论坛里贴出来CALL的源代码几乎都有指令对着的，其实我之前发的已经完全胜任CALL的工作了，大家不要为了几个指令来要我更新，我现在不写挂了，但是我也很忙的，缺少指令可以去打开OD试试去，然后写到类里，格式其实我已经写的很清楚了，当然现在应该不需要了，除了JMP指令没有补全（因为有的跳转需要计算的）应该类里的指令应该只多不少的...只此一次，以后请网友自己加入指令。以后我基本也不会有什么更新了，如果网友加入较多指令想拿出来分享不也不反对的，希望能给我邮箱 bycw2005@yahoo.com.cn发一份 提示一下： 有些CALL使用ECX,EDX等寄存器来实现，类里可能没有，但是同类的EAX我绝对是加入的，如果使用EAX程序逻辑不会出现错误的话，请用EAX可以代替，一般都可以的. 第1次更新-7.11 之前发的不大好意思，使得诛仙的实例一CALL就崩溃，现在修改了代码发上来了，谢谢laaa提醒 都怪我不好，之前测试的是实例2，实例1的代码完全从论坛里翻译成VB的代码的，主要也不是类设计的错误，主要就是大家在写代码的时候注意不要忘记加Ret,另外提醒大家转载的时候请尊重一下我的劳动成果，转载请注明我的相关信息，谢谢，因为我已经看到有人打着原创的旗帜把我的代码随意转载，我觉得我很厚道了，如果我不厚道，我完全可以制作成控件的形式，给大家，但是我想，用起来注册控件什么的不是很方便把，如果我更加不厚道，我可以完全自己藏起来自己使用的，我知道在网络上形形色色的人都有，所以就算有人盗用我的代码，我也不会后悔我开源的初衷的。 关于内存释放的问题的补充 Function Run_ASM(pid As Long) As Long Dim i As Long, tmp_Addr As Long, RThwnd As Long, h As Long, ret As Long ReDim AsmCode(Len(OPcode) 2 - 1) As Byte For i = 0 To UBound(AsmCode) AsmCode(i) = CByte(&H & Mid(OPcode, i 2 + 1, 2)) Next h = OpenProcess(PROCESS_ALL_ACCESS, False, pid) tmp_Addr = VirtualAllocEx(h, ByVal 0&, UBound(AsmCode) + 1, MEM_COMMIT, PAGE_EXECUTE_READWRITE) WriteProcessMemory h, ByVal tmp_Addr, ByVal VarPtr(AsmCode(0)), UBound(AsmCode) + 1, ByVal 0& 'MsgBox Hex(tmp_Addr) RThwnd = CreateRemoteThread(h, ByVal 0&, 0, ByVal tmp_Addr, ByVal 0&, ByVal 0&, ByVal 0&) Do ret = WaitForSingleObject(RThwnd, 100) DoEvents Loop Until ret WAIT_TIMEOUT VirtualFreeEx h, ByVal tmp_Addr, 0, ByVal MEM_DECOMMIT CloseHandle RThwnd CloseHandle h OPcode = End Function ┏━━━━━━━━━━━━━━━━━━━━━┓ ┃ 源 码 爱 好 者 ┃ ┣━━━━━━━━━━━━━━━━━━━━━┫ ┃ ┃ ┃ 提供源码发布与下载 ┃ ┃ ┃ ┃ http://www.codefans.net ┃ ┃ ┃ ┃ 互助、分享、提高 ┃ ┗━━━━━━━━━━━━━━━━━━━━━┛